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.
oops - catching the terminateSignal is no good idea
authorClaus Gittinger <cg@exept.de>
Wed, 16 Oct 1996 01:35:39 +0200
changeset 771 5cd10b4845f3
parent 770 3da310ebef8d
child 772 75752d2e781a
oops - catching the terminateSignal is no good idea
ProcMonitor.st file | annotate | diff | comparison | revisions
ProcessMonitor.st file | annotate | diff | comparison | revisions 
--- a/ProcMonitor.st	Tue Oct 15 23:17:14 1996 +0200
+++ b/ProcMonitor.st	Wed Oct 16 01:35:39 1996 +0200
@@ -19,7 +19,7 @@
 	category:'Interface-Tools'
 !
 
-!ProcessMonitor  class methodsFor:'documentation'!
+!ProcessMonitor class methodsFor:'documentation'!
 
 copyright
 "
@@ -64,7 +64,7 @@
 "
 ! !
 
-!ProcessMonitor  class methodsFor:'defaults'!
+!ProcessMonitor class methodsFor:'defaults'!
 
 defaultIcon
     |i|
@@ -78,7 +78,7 @@
     ^ 'Process Monitor'
 ! !
 
-!ProcessMonitor  class methodsFor:'startup'!
+!ProcessMonitor class methodsFor:'startup'!
 
 open
     |top monitor|
@@ -437,9 +437,7 @@
         Processor addTimedBlock:listUpdateBlock afterSeconds:listUpdateDelay.
     ] ifFalse:[
         updateProcess := [
-            Process terminateSignal handle:[:ex |
-                updateProcess := nil
-            ] do:[
+            [
                 |id cnt|
 
                 "
@@ -463,6 +461,8 @@
                     Delay waitForSeconds:0.5.
                     self updateList.
                 ]
+            ] valueOnUnwindDo:[
+                updateProcess := nil
             ]
         ]  forkAt:(Processor userSchedulingPriority + 1).
         updateProcess name:'monitor [' , 
@@ -653,7 +653,7 @@
     ^ (font widthOf:self titleLine) + 40 @ 100
 ! !
 
-!ProcessMonitor  class methodsFor:'documentation'!
+!ProcessMonitor class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.40 1996-07-24 15:23:54 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.41 1996-10-15 23:35:39 cg Exp $'! !
--- a/ProcessMonitor.st	Tue Oct 15 23:17:14 1996 +0200
+++ b/ProcessMonitor.st	Wed Oct 16 01:35:39 1996 +0200
@@ -19,7 +19,7 @@
 	category:'Interface-Tools'
 !
 
-!ProcessMonitor  class methodsFor:'documentation'!
+!ProcessMonitor class methodsFor:'documentation'!
 
 copyright
 "
@@ -64,7 +64,7 @@
 "
 ! !
 
-!ProcessMonitor  class methodsFor:'defaults'!
+!ProcessMonitor class methodsFor:'defaults'!
 
 defaultIcon
     |i|
@@ -78,7 +78,7 @@
     ^ 'Process Monitor'
 ! !
 
-!ProcessMonitor  class methodsFor:'startup'!
+!ProcessMonitor class methodsFor:'startup'!
 
 open
     |top monitor|
@@ -437,9 +437,7 @@
         Processor addTimedBlock:listUpdateBlock afterSeconds:listUpdateDelay.
     ] ifFalse:[
         updateProcess := [
-            Process terminateSignal handle:[:ex |
-                updateProcess := nil
-            ] do:[
+            [
                 |id cnt|
 
                 "
@@ -463,6 +461,8 @@
                     Delay waitForSeconds:0.5.
                     self updateList.
                 ]
+            ] valueOnUnwindDo:[
+                updateProcess := nil
             ]
         ]  forkAt:(Processor userSchedulingPriority + 1).
         updateProcess name:'monitor [' , 
@@ -653,7 +653,7 @@
     ^ (font widthOf:self titleLine) + 40 @ 100
 ! !
 
-!ProcessMonitor  class methodsFor:'documentation'!
+!ProcessMonitor class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.40 1996-07-24 15:23:54 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.41 1996-10-15 23:35:39 cg Exp $'! !
hg/stx-libtool