# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1362925326 -3600
# Node ID 3ba4a65fc521fb76a8681a940e7dd60428b1bb65
# Parent  11538d987c58d42fdde1f4e4328d8a3e0eecd6de
class: Tools::ProjectList
comment/format in: #update:with:from:
changed: #delayedUpdate:with:from:
fixed for slave mode with given projectListGenerator
(browse classes with extensions)

diff -r 11538d987c58 -r 3ba4a65fc521 Tools_ProjectList.st
--- 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 $'
 ! !