list invalidation
authorClaus Gittinger <cg@exept.de>
Wed, 06 Jun 2012 00:04:08 +0200
changeset 11563 38df8cbd2591
parent 11562 270c71f65f43
child 11564 67a8e0885c2c
list invalidation
Tools_BrowserList.st
--- a/Tools_BrowserList.st	Wed Jun 06 00:03:39 2012 +0200
+++ b/Tools_BrowserList.st	Wed Jun 06 00:04:08 2012 +0200
@@ -685,14 +685,18 @@
 !
 
 enqueueDelayedUpdateList
+    listValid := false.
+
     (NewSystemBrowser synchronousUpdate == true
     or:[ immediateUpdate value == true ])
     ifTrue:[
-	self updateList.
-	^ self.
+        self updateList.
+        ^ self.
     ].
 
     self enqueueMessage:#updateList for:self arguments:#()
+
+    "Modified: / 05-06-2012 / 23:38:18 / cg"
 !
 
 enqueueDelayedUpdateOutputGenerator
@@ -1792,5 +1796,5 @@
 !BrowserList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.41 2012-05-15 09:32:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.42 2012-06-05 22:04:08 cg Exp $'
 ! !