--- a/Tools__ClassList.st Mon Dec 22 01:56:56 2014 +0100
+++ b/Tools__ClassList.st Tue Dec 23 15:51:55 2014 +0100
@@ -1387,23 +1387,28 @@
(classesAlready includes:cls) ifFalse:[
classesAlready add:cls.
(owner := cls owningClass) notNil ifTrue:[
+ (classesAlready includes:owner) ifFalse:[
+ classesAlready add:owner.
+ classes add:owner.
+ ].
bucket := privateClassesPerClass at:owner ifAbsentPut:[SortedCollection new sortBlock:[:a :b | a name < b name] ].
- "Do not show Java anonymous classes"
- cls isJavaClass ifTrue:[
- cls isAnonymous ifFalse:[
- bucket add:cls.
- ]
- ] ifFalse:[
+
+ "Do not show Java anonymous classes"
+ cls isJavaClass ifTrue:[
+ cls isAnonymous ifFalse:[
bucket add:cls.
- ].
+ ]
] ifFalse:[
- cls isJavaClass ifTrue:[
- cls isAnonymous ifFalse:[
- classes add:cls.
- ]
- ] ifFalse:[
- classes add:cls.
- ]
+ bucket add:cls.
+ ].
+ ] ifFalse:[
+ cls isJavaClass ifTrue:[
+ cls isAnonymous ifFalse:[
+ classes add:cls.
+ ]
+ ] ifFalse:[
+ classes add:cls.
+ ]
]
]
]
@@ -1411,10 +1416,11 @@
]
].
- privateClassesPerClass keysAndValuesDo:
- [:owner :privateClasses|
- (owner isPrivate not and:[(classes includes: owner) not])
- ifTrue:[classes addAll: privateClasses]].
+ privateClassesPerClass keysAndValuesDo:[:owner :privateClasses|
+ (owner isPrivate not and:[(classes includes: owner) not]) ifTrue:[
+ classes addAll: privateClasses
+ ]
+ ].
classes size == 1 ifTrue:[
@@ -2115,10 +2121,10 @@
!ClassList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.86 2014-11-19 21:41:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.87 2014-12-23 14:51:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.86 2014-11-19 21:41:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.87 2014-12-23 14:51:55 cg Exp $'
! !