equal
deleted
inserted
replaced
5089 subs add:(String new:lvl*2) , aClass name |
5089 subs add:(String new:lvl*2) , aClass name |
5090 ]. |
5090 ]. |
5091 "/ subs := cls allSubclasses. |
5091 "/ subs := cls allSubclasses. |
5092 (subs notNil and:[subs size ~~ 0]) ifTrue:[ |
5092 (subs notNil and:[subs size ~~ 0]) ifTrue:[ |
5093 brwsr := SystemBrowser browseClasses:subs |
5093 brwsr := SystemBrowser browseClasses:subs |
5094 title:('subclasses of ' , cls name) |
5094 label:('subclasses of ' , cls name) |
5095 sort:false. |
5095 sort:false. |
5096 brwsr environment:environment |
5096 brwsr environment:environment |
5097 ] |
5097 ] |
5098 ] |
5098 ] |
5099 |
5099 |
6069 ifTrue:[ |
6069 ifTrue:[ |
6070 environment at:cls name asSymbol put:cls |
6070 environment at:cls name asSymbol put:cls |
6071 ] |
6071 ] |
6072 ] ifFalse:[ |
6072 ] ifFalse:[ |
6073 self warn:('found multiple classes with a name of ' , nm , '.\\Select and rename as required') withCRs. |
6073 self warn:('found multiple classes with a name of ' , nm , '.\\Select and rename as required') withCRs. |
6074 SystemBrowser browseClasses:classes asOrderedCollection |
6074 SystemBrowser browseClasses:classes asOrderedCollection |
6075 title:'choose and rename as required' |
6075 label:'choose and rename as required' |
6076 ] |
6076 ] |
6077 ] ifFalse:[ |
6077 ] ifFalse:[ |
6078 Class allSubInstancesDo:[:aClass | |
6078 Class allSubInstancesDo:[:aClass | |
6079 aClass isMeta ifFalse:[ |
6079 aClass isMeta ifFalse:[ |
6080 (environment at:aClass name) ~~ aClass ifTrue:[ |
6080 (environment at:aClass name) ~~ aClass ifTrue:[ |
12635 ! |
12635 ! |
12636 |
12636 |
12637 listBoxTitle:title okText:okText list:aList |
12637 listBoxTitle:title okText:okText list:aList |
12638 "convenient method: setup a listBox & return it" |
12638 "convenient method: setup a listBox & return it" |
12639 |
12639 |
12640 |box| |
12640 ^ SystemBrowser listBoxTitle:title okText:okText list:aList |
12641 |
|
12642 box := ListSelectionBox |
|
12643 title:(resources string:title) |
|
12644 okText:(resources string:okText) |
|
12645 action:nil. |
|
12646 box list:aList. |
|
12647 ^ box |
|
12648 ! |
12641 ! |
12649 |
12642 |
12650 normalLabel |
12643 normalLabel |
12651 "set the normal (inactive) window- and icon labels" |
12644 "set the normal (inactive) window- and icon labels" |
12652 |
12645 |
14510 ! ! |
14503 ! ! |
14511 |
14504 |
14512 !BrowserView class methodsFor:'documentation'! |
14505 !BrowserView class methodsFor:'documentation'! |
14513 |
14506 |
14514 version |
14507 version |
14515 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.821 2009-05-12 07:42:52 cg Exp $' |
14508 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.822 2009-09-15 12:12:59 cg Exp $' |
14516 ! ! |
14509 ! ! |
14517 |
14510 |
14518 BrowserView initialize! |
14511 BrowserView initialize! |