--- a/Tools_BrowserList.st Mon Aug 21 12:22:20 2006 +0200
+++ b/Tools_BrowserList.st Mon Aug 21 12:22:34 2006 +0200
@@ -531,15 +531,15 @@
enqueueDelayedUpdateOutputGenerator
slaveMode value == true ifTrue:[
- self halt:'should not be invoked'
+ self halt:'should not be invoked'
].
(NewSystemBrowser synchronousUpdate == true
or:[ immediateUpdate value == true ])
ifTrue:[
- self updateOutputGenerator.
- ^ self.
+ self updateOutputGenerator.
+ ^ self.
].
- listValid := false.
+ "/ listValid := false.
self enqueueMessage:#updateOutputGenerator for:self arguments:#()
!
@@ -562,12 +562,12 @@
!
forceUpdateList
- |listView|
-
- listView := builder componentAt:#List.
- listView notNil ifTrue:[
- listView list:#()
- ].
+"/ |listView|
+"/
+"/ listView := builder componentAt:#List.
+"/ listView notNil ifTrue:[
+"/ listView list:#()
+"/ ].
self updateList
!
@@ -1259,5 +1259,5 @@
!BrowserList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.15 2006-08-11 13:43:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.16 2006-08-21 10:22:34 cg Exp $'
! !