equal
deleted
inserted
replaced
3519 ]. |
3519 ]. |
3520 |
3520 |
3521 nameSpaceList do:[:aNamespace | |
3521 nameSpaceList do:[:aNamespace | |
3522 aNamespace allClassesDo:[:aClass | |
3522 aNamespace allClassesDo:[:aClass | |
3523 aClass isMeta ifFalse:[ |
3523 aClass isMeta ifFalse:[ |
3524 (aClass isRealNameSpace not) ifTrue:[ |
3524 aClass isRealNameSpace ifFalse:[ |
3525 (allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[ |
3525 (allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[ |
3526 cat := aClass category. |
3526 cat := aClass category. |
3527 cat isNil ifTrue:[ |
3527 cat isNil ifTrue:[ |
3528 cat := '* no category *' |
3528 cat := '* no category *' |
3529 ]. |
3529 ]. |
6384 listOfClasses := OrderedCollection new. |
6384 listOfClasses := OrderedCollection new. |
6385 |
6385 |
6386 self classHierarchyOf:(environment at:#Object) withAutoloaded:true do:[:aClass :lvl| |
6386 self classHierarchyOf:(environment at:#Object) withAutoloaded:true do:[:aClass :lvl| |
6387 |indent| |
6387 |indent| |
6388 |
6388 |
6389 (aClass isRealNameSpace not) ifTrue:[ |
6389 aClass isRealNameSpace ifFalse:[ |
6390 aClass isObsolete ifFalse:[ |
6390 aClass isObsolete ifFalse:[ |
6391 nm := self displayedClassNameOf:aClass. |
6391 nm := self displayedClassNameOf:aClass. |
6392 |
6392 |
6393 (namesPresent includes:nm) ifFalse:[ |
6393 (namesPresent includes:nm) ifFalse:[ |
6394 indent := String new:lvl*2. |
6394 indent := String new:lvl*2. |
6437 nameSpaces do:[:aNamespace | |
6437 nameSpaces do:[:aNamespace | |
6438 aNamespace allClassesDo:[:aClass | |
6438 aNamespace allClassesDo:[:aClass | |
6439 |thisCategory actualNamespace nm owner| |
6439 |thisCategory actualNamespace nm owner| |
6440 |
6440 |
6441 aClass isMeta ifFalse:[ |
6441 aClass isMeta ifFalse:[ |
6442 (aClass isRealNameSpace not) ifTrue:[ |
6442 aClass isRealNameSpace ifFalse:[ |
6443 (classesPresent includes:aClass) ifFalse:[ |
6443 (classesPresent includes:aClass) ifFalse:[ |
6444 |
6444 |
6445 match := anyCategory. |
6445 match := anyCategory. |
6446 match ifFalse:[ |
6446 match ifFalse:[ |
6447 thisCategory := aClass category. |
6447 thisCategory := aClass category. |
14510 ! ! |
14510 ! ! |
14511 |
14511 |
14512 !BrowserView class methodsFor:'documentation'! |
14512 !BrowserView class methodsFor:'documentation'! |
14513 |
14513 |
14514 version |
14514 version |
14515 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.826 2009-11-11 21:29:24 cg Exp $' |
14515 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.827 2010-03-09 12:08:22 cg Exp $' |
14516 ! |
14516 ! |
14517 |
14517 |
14518 version_CVS |
14518 version_CVS |
14519 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.826 2009-11-11 21:29:24 cg Exp $' |
14519 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.827 2010-03-09 12:08:22 cg Exp $' |
14520 ! ! |
14520 ! ! |
14521 |
14521 |
14522 BrowserView initialize! |
14522 BrowserView initialize! |