equal
deleted
inserted
replaced
1672 |
1672 |
1673 autoSelect == true ifTrue:[ |
1673 autoSelect == true ifTrue:[ |
1674 classesRemovedFromList := OrderedCollection new. |
1674 classesRemovedFromList := OrderedCollection new. |
1675 newSet := newList asSet. |
1675 newSet := newList asSet. |
1676 oldSet := oldList asSet. |
1676 oldSet := oldList asSet. |
1677 classesAddedToList := newSet select:[:eachNewClass | (oldSet includes:eachNewClass) not]. |
1677 classesAddedToList := newSet reject:[:eachNewClass | (oldSet includes:eachNewClass)]. |
1678 classesRemovedFromList := oldSet select:[:eachOldClass | (newSet includes:eachOldClass) not]. |
1678 classesRemovedFromList := oldSet reject:[:eachOldClass | (newSet includes:eachOldClass)]. |
1679 ]. |
1679 ]. |
1680 |
1680 |
1681 (newList ~= oldList |
1681 (newList ~= oldList |
1682 or:[self classNameList value isNil and:[newList size > 0]]) ifTrue:[ |
1682 or:[self classNameList value isNil and:[newList size > 0]]) ifTrue:[ |
1683 prevSelection := lastSelectedClasses ? #(). |
1683 prevSelection := lastSelectedClasses ? #(). |
1886 ]. |
1886 ]. |
1887 |
1887 |
1888 aClass isLoaded ifFalse:[ |
1888 aClass isLoaded ifFalse:[ |
1889 "/ nm := nm,(' (?) ' colorizeAllWith:Color grey). |
1889 "/ nm := nm,(' (?) ' colorizeAllWith:Color grey). |
1890 ] ifTrue:[ |
1890 ] ifTrue:[ |
|
1891 nm := (nm , ' '). |
1891 aClass isAbstract ifTrue:[ nm := nm allItalic ]. |
1892 aClass isAbstract ifTrue:[ nm := nm allItalic ]. |
1892 nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size)) |
1893 nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size)) |
1893 colorizeAllWith:self class pseudoEntryForegroundColor). |
1894 colorizeAllWith:self class pseudoEntryForegroundColor). |
1894 ]. |
1895 ]. |
1895 |
1896 |
2025 ! ! |
2026 ! ! |
2026 |
2027 |
2027 !ClassList class methodsFor:'documentation'! |
2028 !ClassList class methodsFor:'documentation'! |
2028 |
2029 |
2029 version |
2030 version |
2030 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.72 2013-03-30 14:15:52 cg Exp $' |
2031 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $' |
2031 ! |
2032 ! |
2032 |
2033 |
2033 version_CVS |
2034 version_CVS |
2034 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.72 2013-03-30 14:15:52 cg Exp $' |
2035 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $' |
2035 ! ! |
2036 ! ! |
2036 |
2037 |