equal
deleted
inserted
replaced
658 sortedBySpellingDistance ifFalse:[ |
658 sortedBySpellingDistance ifFalse:[ |
659 classNames := classNames asArray sort. |
659 classNames := classNames asArray sort. |
660 ]. |
660 ]. |
661 |
661 |
662 aMatchString includesMatchCharacters ifTrue:[ |
662 aMatchString includesMatchCharacters ifTrue:[ |
663 msg := 'Classes matching "%1"\\Select or enter name of class to switch to:' |
663 msg := 'Classes matching or similar to "%1"\\Select or enter name of class to switch to:' |
664 ] ifFalse:[ |
664 ] ifFalse:[ |
665 msg := 'Classes containing "%1"\\Select or enter name of class to switch to:' |
665 msg := 'Classes containing or similar to "%1"\\Select or enter name of class to switch to:' |
666 ]. |
666 ]. |
667 |
667 |
668 box := self listBoxTitle:(resources string:msg with:matchStringArg) withCRs |
668 box := self listBoxTitle:(resources string:msg with:matchStringArg) withCRs |
669 okText:'OK' |
669 okText:'OK' |
670 list:classNames. |
670 list:classNames. |
675 |
675 |
676 browseButton := Button label:(resources string:'Browse All'). |
676 browseButton := Button label:(resources string:'Browse All'). |
677 browseButton action:[ |
677 browseButton action:[ |
678 |classes title| |
678 |classes title| |
679 |
679 |
680 title := resources string:'Classes Matching "%1"' with:matchStringArg. |
680 title := resources string:'Classes Matching or Similar to "%1"' with:matchStringArg. |
681 classes := classNames collect:[:nm | Smalltalk classNamed:nm]. |
681 classes := classNames collect:[:nm | Smalltalk classNamed:nm]. |
682 aBrowserOrNil isNil ifTrue:[ |
682 aBrowserOrNil isNil ifTrue:[ |
683 SystemBrowser |
683 SystemBrowser |
684 browseClasses:classes |
684 browseClasses:classes |
685 label:title. |
685 label:title. |
5554 ! ! |
5554 ! ! |
5555 |
5555 |
5556 !SystemBrowser class methodsFor:'documentation'! |
5556 !SystemBrowser class methodsFor:'documentation'! |
5557 |
5557 |
5558 version |
5558 version |
5559 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.274 2009-10-20 10:15:48 cg Exp $' |
5559 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.275 2009-10-24 12:43:04 cg Exp $' |
5560 ! |
5560 ! |
5561 |
5561 |
5562 version_CVS |
5562 version_CVS |
5563 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.274 2009-10-20 10:15:48 cg Exp $' |
5563 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.275 2009-10-24 12:43:04 cg Exp $' |
5564 ! ! |
5564 ! ! |
5565 |
5565 |
5566 SystemBrowser initialize! |
5566 SystemBrowser initialize! |