# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1155800950 -7200
# Node ID 3e2cf6ca0c23d355774945304578cebfb73d1d5b
# Parent  851a79dfb57a5153d64fa8f1e28eaf33d1f42045
*** empty log message ***

diff -r 851a79dfb57a -r 3e2cf6ca0c23 Tools_OrganizerCanvas.st
--- a/Tools_OrganizerCanvas.st	Thu Aug 17 09:49:04 2006 +0200
+++ b/Tools_OrganizerCanvas.st	Thu Aug 17 09:49:10 2006 +0200
@@ -3593,6 +3593,7 @@
 
         "/ must update the packageFilter
         orgMode == OrganizerCanvas organizerModeProject ifTrue:[
+            self selectedProjects value:(classes collect:[:each | each package]) asSet.
             packageFilter setValue:(self selectedProjects value)
         ] ifFalse:[
             packageFilter value:nil
@@ -3672,7 +3673,7 @@
 
     super update:something with:aParameter from:changedObject
 
-    "Modified: / 11-08-2006 / 15:08:03 / cg"
+    "Modified: / 17-08-2006 / 08:29:12 / cg"
 !
 
 updateCategorySelectionFromClasses
@@ -3876,5 +3877,5 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.13 2006-08-11 13:44:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.14 2006-08-17 07:49:10 cg Exp $'
 ! !