--- 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 $'
! !