Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
subprocess name of button event handler
authorClaus Gittinger <cg@exept.de>
Fri, 22 Jan 1999 18:01:45 +0100
changeset 1983 50157c992ef9
parent 1982 ef1e7a141694
child 1984 234c397b8b00
subprocess name of button event handler
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Thu Jan 21 20:53:11 1999 +0100
+++ b/FBrowser.st	Fri Jan 22 18:01:45 1999 +0100
@@ -3828,7 +3828,8 @@
      otherwise, its inserted as selected text at the cursor position."
 
     |command stream line lnr myProcess myPriority startLine startCol stopSignal
-     pauseSignal access stillReplacing pauseHolder lowerFrameView|
+     pauseSignal access stillReplacing pauseHolder lowerFrameView
+     buttonWindowGroup|
 
     command := commandArg asString.
 
@@ -3888,12 +3889,14 @@
      start kill button under its own windowgroup
     "
     killButton openAutonomous.
-    killButton windowGroup process processGroupId:(Processor activeProcess id).
+    buttonWindowGroup := killButton windowGroup.
+    buttonWindowGroup process name:'FileBrowser sub'.
+    buttonWindowGroup process processGroupId:(Processor activeProcess id).
 
     "
      and add the pauseToggle to its windowGroup
     "
-    pauseToggle windowGroup:(killButton windowGroup).
+    pauseToggle windowGroup:buttonWindowGroup.
 
 
     lowerFrameView := subView superView.
@@ -3912,7 +3915,7 @@
                 "/ allow interaction with
                 "/ the codeView via the other windowGroup
                 "/
-                lowerFrameView windowGroup:(killButton windowGroup).
+                lowerFrameView windowGroup:buttonWindowGroup.
 
                 "/
                 "/ wait for pause to be turned off
@@ -6156,5 +6159,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.284 1999-01-20 21:51:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.285 1999-01-22 17:01:45 cg Exp $'
 ! !
--- a/FileBrowser.st	Thu Jan 21 20:53:11 1999 +0100
+++ b/FileBrowser.st	Fri Jan 22 18:01:45 1999 +0100
@@ -3828,7 +3828,8 @@
      otherwise, its inserted as selected text at the cursor position."
 
     |command stream line lnr myProcess myPriority startLine startCol stopSignal
-     pauseSignal access stillReplacing pauseHolder lowerFrameView|
+     pauseSignal access stillReplacing pauseHolder lowerFrameView
+     buttonWindowGroup|
 
     command := commandArg asString.
 
@@ -3888,12 +3889,14 @@
      start kill button under its own windowgroup
     "
     killButton openAutonomous.
-    killButton windowGroup process processGroupId:(Processor activeProcess id).
+    buttonWindowGroup := killButton windowGroup.
+    buttonWindowGroup process name:'FileBrowser sub'.
+    buttonWindowGroup process processGroupId:(Processor activeProcess id).
 
     "
      and add the pauseToggle to its windowGroup
     "
-    pauseToggle windowGroup:(killButton windowGroup).
+    pauseToggle windowGroup:buttonWindowGroup.
 
 
     lowerFrameView := subView superView.
@@ -3912,7 +3915,7 @@
                 "/ allow interaction with
                 "/ the codeView via the other windowGroup
                 "/
-                lowerFrameView windowGroup:(killButton windowGroup).
+                lowerFrameView windowGroup:buttonWindowGroup.
 
                 "/
                 "/ wait for pause to be turned off
@@ -6156,5 +6159,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.284 1999-01-20 21:51:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.285 1999-01-22 17:01:45 cg Exp $'
 ! !
hg/stx-libtool