ProcessMonitorV2.st
changeset 4505 4c309bc91890
parent 4504 e07fb8560de3
child 4561 893af000a82d
--- a/ProcessMonitorV2.st	Tue Jan 28 16:17:59 2003 +0100
+++ b/ProcessMonitorV2.st	Tue Jan 28 16:35:02 2003 +0100
@@ -613,6 +613,7 @@
               #model: #increaseupdateListDelayTime
               #enableChannel: #enableIncreaseListDelayTime
               #isTriggerOnDown: true
+              #autoRepeat: true
               #actionValue: ''
               #direction: #right
             )
@@ -631,6 +632,7 @@
               #model: #decreaseupdateListDelayTime
               #enableChannel: #enableDecreaseListDelayTime
               #isTriggerOnDown: true
+              #autoRepeat: true
               #actionValue: ''
               #direction: #left
             )
@@ -654,6 +656,7 @@
               #model: #increaseupdateContentsDelayTime
               #enableChannel: #enableIncreaseContentsDelayTime
               #isTriggerOnDown: true
+              #autoRepeat: true
               #actionValue: ''
               #direction: #right
             )
@@ -672,6 +675,7 @@
               #model: #decreaseupdateContentsDelayTime
               #enableChannel: #enableDecreaseContentsDelayTime
               #isTriggerOnDown: true
+              #autoRepeat: true
               #actionValue: ''
               #direction: #left
             )
@@ -2318,7 +2322,7 @@
 
 updateTable:newProcessList
 
-    | oldSelection newList locNewProcs sel|
+    | oldSelection newList locNewProcs sel diff|
 
 
     processTable shown ifTrue:[
@@ -2372,6 +2376,10 @@
                     self redrawChangedItems:oldItem newItem:newItem on:index
                 ]
             ].
+            diff := processList size - newList size.
+            diff > 0 ifTrue:[
+                processList removeLast:diff
+            ].
 "/            Transcript showCR:'oldSelection on set in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
             self changeSelectionToProcess:oldSelection.
         ]
@@ -2613,5 +2621,5 @@
 !ProcessMonitorV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.6 2003-01-28 15:17:59 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.7 2003-01-28 15:35:02 penk Exp $'
 ! !