--- a/Tools_ProjectList.st Fri Aug 11 15:44:22 2006 +0200
+++ b/Tools_ProjectList.st Fri Aug 11 15:44:26 2006 +0200
@@ -393,79 +393,79 @@
selectedPackages := self selectedProjects value.
selectedPackages size == 0 ifTrue:[
- ^ #()
+ ^ #()
].
hideUnloadedClasses := self hideUnloadedClasses value.
(selectedPackages includes:(self class nameListEntryForALL)) ifTrue:[
- hideUnloadedClasses ifTrue:[
- ^ Iterator on:[:whatToDo |
- Smalltalk allClassesDo:[:cls |
- cls isLoaded ifTrue:[
- (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
- whatToDo value:cls
- ]
- ]
- ]
- ]
- ].
- ^ Iterator on:[:whatToDo |
- Smalltalk allClassesDo:[:cls |
- (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
- whatToDo value:cls
- ]
- ]
- ]
+ hideUnloadedClasses ifTrue:[
+ ^ Iterator on:[:whatToDo |
+ Smalltalk allClassesDo:[:cls |
+ cls isLoaded ifTrue:[
+ (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
+ whatToDo value:cls
+ ]
+ ]
+ ]
+ ]
+ ].
+ ^ Iterator on:[:whatToDo |
+ Smalltalk allClassesDo:[:cls |
+ (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
+ whatToDo value:cls
+ ]
+ ]
+ ]
].
selectedPackages size == 1 ifTrue:[
- "/ faster common case
- thePackage := selectedPackages first.
+ "/ faster common case
+ thePackage := selectedPackages first.
- ^ Iterator on:[:whatToDo | |doInclude|
- Smalltalk allClassesDo:[:cls |
- (hideUnloadedClasses not or:[cls isLoaded])
- ifTrue:[
- (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
- doInclude := (thePackage = cls package).
- doInclude ifFalse:[
- cls isJavaClass ifFalse:[
- doInclude := (cls methodDictionary contains:[:mthd | thePackage = mthd package])
- or:[ cls class methodDictionary contains:[:mthd | thePackage = mthd package]].
- ]
- ].
- doInclude ifTrue:[
- whatToDo value:cls
- ]
- ]
- ]
- ]
- ]
+ ^ Iterator on:[:whatToDo | |doInclude|
+ Smalltalk allClassesDo:[:cls |
+ (hideUnloadedClasses not or:[cls isLoaded])
+ ifTrue:[
+ (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
+ doInclude := (thePackage = cls package).
+ doInclude ifFalse:[
+ cls isJavaClass ifFalse:[
+ doInclude := (cls methodDictionary contains:[:mthd | thePackage = mthd package])
+ or:[ cls class methodDictionary contains:[:mthd | thePackage = mthd package]].
+ ]
+ ].
+ doInclude ifTrue:[
+ whatToDo value:cls
+ ]
+ ]
+ ]
+ ]
+ ]
].
^ Iterator on:[:whatToDo | |doInclude|
- Smalltalk allClassesDo:[:cls |
- (hideUnloadedClasses not or:[cls isLoaded])
- ifTrue:[
- (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
- doInclude := (selectedPackages includes:cls package).
- doInclude ifFalse:[
- cls isJavaClass ifFalse:[
- doInclude := (cls methodDictionary contains:[:mthd | thePackage = mthd package])
- or:[ cls class methodDictionary contains:[:mthd | thePackage = mthd package]].
- ]
- ].
- doInclude ifTrue:[
- whatToDo value:cls
- ]
- ]
- ]
- ]
- ]
+ Smalltalk allClassesDo:[:cls |
+ (hideUnloadedClasses not or:[cls isLoaded])
+ ifTrue:[
+ (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
+ doInclude := (selectedPackages includes:cls package).
+ doInclude ifFalse:[
+ cls isJavaClass ifFalse:[
+ doInclude := (cls methodDictionary contains:[:mthd | selectedPackages includes:mthd package])
+ or:[ cls class methodDictionary contains:[:mthd | selectedPackages includes:mthd package]].
+ ]
+ ].
+ doInclude ifTrue:[
+ whatToDo value:cls
+ ]
+ ]
+ ]
+ ]
+ ]
- "Created: / 17.2.2000 / 23:49:37 / cg"
- "Modified: / 24.2.2000 / 22:53:46 / cg"
+ "Created: / 17-02-2000 / 23:49:37 / cg"
+ "Modified: / 11-08-2006 / 15:37:54 / cg"
! !
!ProjectList methodsFor:'private'!
@@ -619,5 +619,5 @@
!ProjectList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.8 2006-03-27 17:09:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.9 2006-08-11 13:44:26 cg Exp $'
! !