diff -r 3599cba929d5 -r 7a28499914b1 Tools_ClassList.st --- a/Tools_ClassList.st Thu Jul 04 17:20:12 2013 +0200 +++ b/Tools_ClassList.st Thu Jul 04 17:20:19 2013 +0200 @@ -1674,8 +1674,8 @@ classesRemovedFromList := OrderedCollection new. newSet := newList asSet. oldSet := oldList asSet. - classesAddedToList := newSet select:[:eachNewClass | (oldSet includes:eachNewClass) not]. - classesRemovedFromList := oldSet select:[:eachOldClass | (newSet includes:eachOldClass) not]. + classesAddedToList := newSet reject:[:eachNewClass | (oldSet includes:eachNewClass)]. + classesRemovedFromList := oldSet reject:[:eachOldClass | (newSet includes:eachOldClass)]. ]. (newList ~= oldList @@ -1888,6 +1888,7 @@ aClass isLoaded ifFalse:[ "/ nm := nm,(' (?) ' colorizeAllWith:Color grey). ] ifTrue:[ + nm := (nm , ' '). aClass isAbstract ifTrue:[ nm := nm allItalic ]. nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size)) colorizeAllWith:self class pseudoEntryForegroundColor). @@ -2027,10 +2028,10 @@ !ClassList class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.72 2013-03-30 14:15:52 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.72 2013-03-30 14:15:52 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $' ! !