equal
deleted
inserted
replaced
158 "/ must update the list (notice, that the hierarchy might have changed..) |
158 "/ must update the list (notice, that the hierarchy might have changed..) |
159 |
159 |
160 self updateList. |
160 self updateList. |
161 |
161 |
162 selectedClassesHolder value ~= prevSelection ifTrue:[ |
162 selectedClassesHolder value ~= prevSelection ifTrue:[ |
163 newSelection := prevSelection collect:[:eachOldClass | Smalltalk classNamed:(eachOldClass name)]. |
163 newSelection := prevSelection collect:[:eachOldClass | environment classNamed:(eachOldClass name)]. |
164 selectedClassesHolder value:newSelection. |
164 selectedClassesHolder value:newSelection. |
165 ] |
165 ] |
166 |
166 |
167 "Modified: / 26.2.2000 / 01:17:01 / cg" |
167 "Modified: / 26.2.2000 / 01:17:01 / cg" |
168 ! |
168 ! |
173 prevTop := self topClassHolder value. |
173 prevTop := self topClassHolder value. |
174 |
174 |
175 prevTop notNil ifTrue:[ |
175 prevTop notNil ifTrue:[ |
176 wasMeta := prevTop isMeta. |
176 wasMeta := prevTop isMeta. |
177 newTop := prevTop theNonMetaclass. |
177 newTop := prevTop theNonMetaclass. |
178 [newTop notNil and:[(Smalltalk at:newTop name) ~= newTop]] whileTrue:[ |
178 [newTop notNil and:[(environment at:newTop name) ~= newTop]] whileTrue:[ |
179 newTop := newTop superclass. |
179 newTop := newTop superclass. |
180 ]. |
180 ]. |
181 wasMeta ifTrue:[ |
181 wasMeta ifTrue:[ |
182 newTop := newTop theMetaclass |
182 newTop := newTop theMetaclass |
183 ]. |
183 ]. |
219 |
219 |
220 addTo:aList whereSuperclassIs:aSuperclass |
220 addTo:aList whereSuperclassIs:aSuperclass |
221 |theClasses| |
221 |theClasses| |
222 |
222 |
223 aSuperclass isNil ifTrue:[ |
223 aSuperclass isNil ifTrue:[ |
224 theClasses := Smalltalk allClasses select:[:cls | cls superclass isNil] |
224 theClasses := environment allClasses select:[:cls | cls superclass isNil] |
225 ] ifFalse:[ |
225 ] ifFalse:[ |
226 theClasses := aSuperclass subclasses. |
226 theClasses := aSuperclass subclasses. |
227 ]. |
227 ]. |
228 (self hideUnloadedClasses value) ifTrue:[ |
228 (self hideUnloadedClasses value) ifTrue:[ |
229 theClasses := theClasses select:[:cls | cls isLoaded]. |
229 theClasses := theClasses select:[:cls | cls isLoaded]. |
314 ! ! |
314 ! ! |
315 |
315 |
316 !HierarchicalClassList class methodsFor:'documentation'! |
316 !HierarchicalClassList class methodsFor:'documentation'! |
317 |
317 |
318 version |
318 version |
319 ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.12 2013-07-04 15:20:12 cg Exp $' |
319 ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.13 2013-09-05 10:46:11 vrany Exp $' |
320 ! ! |
320 ! ! |
321 |
321 |
322 |
322 |
323 HierarchicalClassList initialize! |
323 HierarchicalClassList initialize! |