class: Tools::ProjectList
comment/format in: #update:with:from:
changed: #delayedUpdate:with:from:
fixed for slave mode with given projectListGenerator
(browse classes with extensions)
--- a/Tools_ProjectList.st Sun Mar 10 15:18:47 2013 +0100
+++ b/Tools_ProjectList.st Sun Mar 10 15:22:06 2013 +0100
@@ -239,7 +239,12 @@
changedObject == self selectionHolder ifTrue:[
selectionIndexValid := false.
].
- ^ self
+ changedObject == inGeneratorHolder ifTrue:[
+ self invalidateList.
+ self updateList.
+ ].
+"/
+"/ self window shown ifFalse:[ ^ self ].
].
(changedObject == self selectionHolder) ifTrue:[
@@ -256,6 +261,9 @@
listValid ifFalse:[
self updateList.
].
+ changedObject value == 0 ifTrue:[
+ self selectionIndexHolder value:#()
+ ].
newSel := changedObject value collect:[:idx | projectList value at:idx].
newSel ~= self selectedProjects value ifTrue:[
self selectedProjects value:newSel.
@@ -354,7 +362,6 @@
!
update:something with:aParameter from:changedObject
-
(self builder isNil or:[self window topView realized not]) ifTrue:[
"/ self makeIndependent.
listValid := false.
@@ -1000,10 +1007,10 @@
!ProjectList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.60 2013-03-06 18:07:10 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.61 2013-03-10 14:22:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.60 2013-03-06 18:07:10 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.61 2013-03-10 14:22:06 cg Exp $'
! !