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.
care for selectedProcess dying
authorClaus Gittinger <cg@exept.de>
Thu, 24 Apr 1997 21:17:56 +0200
changeset 1165 c5329c0e03dd
parent 1164 efc737c75d9f
child 1166 0029f77ccea7
care for selectedProcess dying
ProcMonitor.st file | annotate | diff | comparison | revisions
ProcessMonitor.st file | annotate | diff | comparison | revisions 
--- a/ProcMonitor.st	Thu Apr 24 18:24:21 1997 +0200
+++ b/ProcMonitor.st	Thu Apr 24 21:17:56 1997 +0200
@@ -154,7 +154,14 @@
         processes notNil ifTrue:[
             oldSelection := listView selection.
             oldSelection notNil ifTrue:[
-                oldSelection := oldSelection collect:[:idx | processes at:idx-numHeaderLines].
+                oldSelection := oldSelection collect:[:idx | |pI|
+                                                pI := idx-numHeaderLines.
+                                                pI > processes size ifTrue:[
+                                                    nil
+                                                ] ifFalse:[
+                                                    processes at:pI
+                                                ]
+                                             ].
                 newSelection := OrderedCollection new.
             ].
 
@@ -341,7 +348,7 @@
     ]
 
     "Modified: 3.7.1996 / 13:56:01 / stefan"
-    "Modified: 28.3.1997 / 16:58:17 / cg"
+    "Modified: 24.4.1997 / 21:16:25 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -621,5 +628,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.52 1997-03-28 15:59:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.53 1997-04-24 19:17:56 cg Exp $'
 ! !
--- a/ProcessMonitor.st	Thu Apr 24 18:24:21 1997 +0200
+++ b/ProcessMonitor.st	Thu Apr 24 21:17:56 1997 +0200
@@ -154,7 +154,14 @@
         processes notNil ifTrue:[
             oldSelection := listView selection.
             oldSelection notNil ifTrue:[
-                oldSelection := oldSelection collect:[:idx | processes at:idx-numHeaderLines].
+                oldSelection := oldSelection collect:[:idx | |pI|
+                                                pI := idx-numHeaderLines.
+                                                pI > processes size ifTrue:[
+                                                    nil
+                                                ] ifFalse:[
+                                                    processes at:pI
+                                                ]
+                                             ].
                 newSelection := OrderedCollection new.
             ].
 
@@ -341,7 +348,7 @@
     ]
 
     "Modified: 3.7.1996 / 13:56:01 / stefan"
-    "Modified: 28.3.1997 / 16:58:17 / cg"
+    "Modified: 24.4.1997 / 21:16:25 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -621,5 +628,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.52 1997-03-28 15:59:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.53 1997-04-24 19:17:56 cg Exp $'
 ! !
hg/stx-libtool