--- 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.
! !