--- a/ProjectBrowser.st	Thu Sep 02 23:14:04 1999 +0200
+++ b/ProjectBrowser.st	Thu Sep 02 23:43:57 1999 +0200
@@ -3021,17 +3021,21 @@
     tree root:(root := TreeItem name:'invisibleRoot').
     root hide:false.
 
-    (Project knownProjects asOrderedCollection
-        sort:[:a :b | a packageName < b packageName]) 
-    do:[:aProject |
-        |doShow|
-
-        (doShow := showWhat == #all) ifFalse:[
-            doShow := (aProject package startsWith:'stx:') not
+    showWhat == #current ifTrue:[
+        root add:(self nodeFor:Project current).
+    ] ifFalse:[
+        (Project knownProjects asOrderedCollection
+            sort:[:a :b | a packageName < b packageName]) 
+        do:[:aProject |
+            |doShow|
+
+            (doShow := showWhat == #all) ifFalse:[
+                doShow := (aProject package startsWith:'stx:') not
+            ].
+            doShow ifTrue:[
+                root add:(self nodeFor:aProject).
+            ]
         ].
-        doShow ifTrue:[
-            root add:(self nodeFor:aProject).
-        ]
     ].
     projectTree := root.
 
@@ -3315,6 +3319,9 @@
         project := selectedNode contents.
 
         Project current:project.
+        self showWhat value == #current ifTrue:[
+            self updateProjectTree
+        ]
     ]
 !
 
@@ -3639,7 +3646,7 @@
             msg := 'Project is not loaded completely - ' , nMissing printString
                             , ' of the projects ' , nTotal printString , ' classes are not loaded'.
         ].
-        self notify:msg.
+"/        self notify:msg.
     ].
     modifiedChannel value:false.
 ! !