class: Tools::BrowserList
changed:
#commonPostBuild
#commonPostOpen
avoid extra list updates
(experimental - tell cg if the browser does not behave ok)
--- 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 $'
! !