class: Tools::BrowserList
authorClaus Gittinger <cg@exept.de>
Wed, 12 Dec 2012 16:38:00 +0100
changeset 12081 9c6c76360b9d
parent 12080 38d87cf1f475
child 12082 f5d2e51d6665
class: Tools::BrowserList changed: #commonPostBuild #commonPostOpen avoid extra list updates (experimental - tell cg if the browser does not behave ok)
Tools_BrowserList.st
--- a/Tools_BrowserList.st	Wed Dec 12 15:47:19 2012 +0100
+++ b/Tools_BrowserList.st	Wed Dec 12 16:38:00 2012 +0100
@@ -1565,11 +1565,12 @@
     |list|
 
     self inSlaveMode ifFalse:[
-        listValid ifFalse:[self enqueueDelayedUpdateList "updateList"].
+        "/ listValid ifFalse:[self enqueueDelayedUpdateList "updateList"].
+        listValid := false.
     ] ifTrue:[
         listValid := false.
         "/ self enqueueDelayedUpdateList.
-"/        self invalidateList
+        "/ self invalidateList
     ].
 
     self makeDependent.
@@ -1596,7 +1597,7 @@
 commonPostOpen
     super commonPostOpen.
     listValid ifFalse:[
-        self enqueueDelayedUpdateList.
+        "/ self enqueueDelayedUpdateList.
     ]. 
 ! !
 
@@ -1871,9 +1872,9 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.53 2012-11-12 09:06:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.54 2012-12-12 15:38:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.53 2012-11-12 09:06:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.54 2012-12-12 15:38:00 cg Exp $'
 ! !