--- a/Tools_ProjectList.st Mon Mar 06 19:48:40 2006 +0100
+++ b/Tools_ProjectList.st Mon Mar 06 19:48:49 2006 +0100
@@ -488,57 +488,57 @@
allProjects := IdentitySet new.
inGeneratorHolder isNil ifTrue:[
- (self hideUnloadedClasses value) ifTrue:[
- Smalltalk allClassesDo:[:eachClass |
- |cls pkg|
+ (self hideUnloadedClasses value) ifTrue:[
+ Smalltalk allClassesDo:[:eachClass |
+ |cls pkg|
- eachClass isLoaded ifTrue:[
- cls := eachClass theNonMetaclass.
- cls isPrivate ifTrue:[
- cls := cls topOwningClass
- ].
- pkg := cls package.
- pkg withoutSeparators size > 0 ifTrue:[
- allProjects add:pkg asSymbol.
- ] ifFalse:[
- "/ for now, nameSpaces are not in any package;
- "/ this might change. Then, 0-sized packages are
- "/ illegal, and the following should be enabled.
- "/ self halt
- ].
- cls isJavaClass ifFalse:[
- cls instAndClassSelectorsAndMethodsDo:[:sel :mthd |
- allProjects add:mthd package asSymbol.
- ].
- ].
- ].
- ].
- allProjects := allProjects asOrderedCollection.
- ] ifFalse:[
- allProjects := NewSystemBrowser allProjectsIDs.
- ].
+ eachClass isLoaded ifTrue:[
+ cls := eachClass theNonMetaclass.
+ cls isPrivate ifTrue:[
+ cls := cls topOwningClass
+ ].
+ pkg := cls package.
+ pkg withoutSeparators size > 0 ifTrue:[
+ allProjects add:pkg asSymbol.
+ ] ifFalse:[
+ "/ for now, nameSpaces are not in any package;
+ "/ this might change. Then, 0-sized packages are
+ "/ illegal, and the following should be enabled.
+ "/ self halt
+ ].
+ cls isJavaClass ifFalse:[
+ cls instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+ allProjects add:mthd package asSymbol.
+ ].
+ ].
+ ].
+ ].
+ allProjects := allProjects asOrderedCollection.
+ ] ifFalse:[
+ allProjects := Smalltalk allProjectIDs.
+ ].
- "/ those are simulated - in ST/X, empty projects do not
- "/ really exist; however, during browsing, it makes sense.
- AdditionalEmptyProjects size > 0 ifTrue:[
- "/ remove those that are present ...
- AdditionalEmptyProjects := AdditionalEmptyProjects select:[:pkg | (allProjects includes:pkg) not].
- allProjects addAll:AdditionalEmptyProjects.
- ].
+ "/ those are simulated - in ST/X, empty projects do not
+ "/ really exist; however, during browsing, it makes sense.
+ AdditionalEmptyProjects size > 0 ifTrue:[
+ "/ remove those that are present ...
+ AdditionalEmptyProjects := AdditionalEmptyProjects select:[:pkg | (allProjects includes:pkg) not].
+ allProjects addAll:AdditionalEmptyProjects.
+ ].
] ifFalse:[
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[^ #() ].
- generator do:[:prj | allProjects add:prj].
- allProjects := allProjects asOrderedCollection.
+ generator := inGeneratorHolder value.
+ generator isNil ifTrue:[^ #() ].
+ generator do:[:prj | allProjects add:prj].
+ allProjects := allProjects asOrderedCollection.
].
allProjects sort.
allProjects size == 1 ifTrue:[
- "/ self projectLabelHolder value:(allProjects first , ' [Project]').
- self projectLabelHolder value:(LabelAndIcon icon:(self class packageIcon) string:allProjects first).
+ "/ self projectLabelHolder value:(allProjects first , ' [Project]').
+ self projectLabelHolder value:(LabelAndIcon icon:(self class packageIcon) string:allProjects first).
].
allProjects size > 1 ifTrue:[
- allProjects addFirst:(self class nameListEntryForALL).
+ allProjects addFirst:(self class nameListEntryForALL).
].
^ allProjects
@@ -618,5 +618,5 @@
!ProjectList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.5 2006-01-24 16:55:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.6 2006-03-06 18:48:49 cg Exp $'
! !