equal
deleted
inserted
replaced
11 " |
11 " |
12 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
13 |
13 |
14 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
15 |
15 |
16 ClassList subclass:#HierarchicalClassList |
16 Tools::ClassList subclass:#HierarchicalClassList |
17 instanceVariableNames:'topClassHolder' |
17 instanceVariableNames:'topClassHolder' |
18 classVariableNames:'InheritedEntry' |
18 classVariableNames:'InheritedEntry' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
20 category:'Interface-Browsers-New' |
20 category:'Interface-Browsers-New' |
21 ! |
21 ! |
268 aClass == InheritedEntry ifTrue:[ ^ aClass ]. |
268 aClass == InheritedEntry ifTrue:[ ^ aClass ]. |
269 |
269 |
270 nm := aClass name. |
270 nm := aClass name. |
271 nm isNil ifTrue:[^ '???']. |
271 nm isNil ifTrue:[^ '???']. |
272 |
272 |
|
273 aClass isLoaded ifFalse:[ |
|
274 "/ nm := nm,(' (?) ' colorizeAllWith:Color grey). |
|
275 ] ifTrue:[ |
|
276 nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size)) |
|
277 colorizeAllWith:self class pseudoEntryForegroundColor). |
|
278 ]. |
|
279 |
273 indent := 0. |
280 indent := 0. |
274 |
|
275 superClass := aClass superclass. |
281 superClass := aClass superclass. |
276 [superClass notNil] whileTrue:[ |
282 [superClass notNil] whileTrue:[ |
277 indent := indent + 1. |
283 indent := indent + 1. |
278 superClass := superClass superclass. |
284 superClass := superClass superclass. |
279 ]. |
285 ]. |
306 ! ! |
312 ! ! |
307 |
313 |
308 !HierarchicalClassList class methodsFor:'documentation'! |
314 !HierarchicalClassList class methodsFor:'documentation'! |
309 |
315 |
310 version |
316 version |
311 ^ '$Id: Tools__HierarchicalClassList.st 8059 2012-09-27 20:08:20Z vranyj1 $' |
317 ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.10 2012/10/30 10:09:09 cg Exp $' |
312 ! |
318 ! |
313 |
319 |
314 version_SVN |
320 version_SVN |
315 ^ '$Id: Tools__HierarchicalClassList.st 8059 2012-09-27 20:08:20Z vranyj1 $' |
321 ^ '$Id: Tools__HierarchicalClassList.st 8074 2012-11-30 17:23:39Z vranyj1 $' |
316 ! ! |
322 ! ! |
317 |
323 |
318 HierarchicalClassList initialize! |
324 HierarchicalClassList initialize! |