equal
deleted
inserted
replaced
11592 !NewSystemBrowser class methodsFor:'startup'! |
11592 !NewSystemBrowser class methodsFor:'startup'! |
11593 |
11593 |
11594 browseClass:aClass |
11594 browseClass:aClass |
11595 "launch a single class browser." |
11595 "launch a single class browser." |
11596 |
11596 |
11597 ^ self basicNew spawnClassBrowserFor:(Array with:aClass) in:#newBrowser. |
11597 |browser| |
|
11598 |
|
11599 browser := self basicNew spawnClassBrowserFor:(Array with:aClass theNonMetaclass) in:#newBrowser. |
|
11600 aClass isMeta ifTrue:[ |
|
11601 browser switchToClass:aClass. |
|
11602 ]. |
|
11603 ^ browser. |
11598 |
11604 |
11599 " |
11605 " |
11600 self browseClass:Array |
11606 self browseClass:Array |
11601 " |
11607 " |
|
11608 |
|
11609 "Modified: / 15-01-2011 / 14:07:36 / cg" |
11602 ! |
11610 ! |
11603 |
11611 |
11604 browseClasses:aCollectionOfClasses |
11612 browseClasses:aCollectionOfClasses |
11605 "launch a multi class browser." |
11613 "launch a multi class browser." |
11606 |
11614 |
44789 ! ! |
44797 ! ! |
44790 |
44798 |
44791 !NewSystemBrowser class methodsFor:'documentation'! |
44799 !NewSystemBrowser class methodsFor:'documentation'! |
44792 |
44800 |
44793 version |
44801 version |
44794 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $' |
44802 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1499 2011-01-15 13:08:05 cg Exp $' |
44795 ! |
44803 ! |
44796 |
44804 |
44797 version_CVS |
44805 version_CVS |
44798 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $' |
44806 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1499 2011-01-15 13:08:05 cg Exp $' |
44799 ! ! |
44807 ! ! |
44800 |
44808 |
44801 NewSystemBrowser initialize! |
44809 NewSystemBrowser initialize! |