--- 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 $'
 ! !