equal
deleted
inserted
replaced
54783 |
54783 |
54784 "/ impl := environment allImplementorsOf:aMatchString asSymbol. |
54784 "/ impl := environment allImplementorsOf:aMatchString asSymbol. |
54785 "/ impl notEmptyOrNil ifTrue:[ |
54785 "/ impl notEmptyOrNil ifTrue:[ |
54786 "/ ]. |
54786 "/ ]. |
54787 (aMatchString first isLetter not |
54787 (aMatchString first isLetter not |
54788 or:[ aMatchString first isLowercase]) ifTrue:[ |
54788 or:[ aMatchString isLowercaseFirst]) ifTrue:[ |
54789 implementors := SystemBrowser findImplementorsMatching:aMatchString in:(environment allClasses) ignoreCase:true. |
54789 implementors := SystemBrowser findImplementorsMatching:aMatchString in:(environment allClasses) ignoreCase:true. |
54790 implementors size > 0 ifTrue:[ |
54790 implementors size > 0 ifTrue:[ |
54791 |searchClassToken browseAllImplementorsToken| |
54791 |searchClassToken browseAllImplementorsToken| |
54792 |
54792 |
54793 searchClassToken := Object new. |
54793 searchClassToken := Object new. |
54890 className notNil ifTrue:[ |
54890 className notNil ifTrue:[ |
54891 self switchToClassNamed:className. |
54891 self switchToClassNamed:className. |
54892 ] |
54892 ] |
54893 |
54893 |
54894 "Modified: / 04-07-2006 / 18:48:25 / fm" |
54894 "Modified: / 04-07-2006 / 18:48:25 / fm" |
54895 "Modified (comment): / 07-03-2012 / 12:05:07 / cg" |
|
54896 "Modified: / 14-10-2013 / 10:36:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
54895 "Modified: / 14-10-2013 / 10:36:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
54896 "Modified: / 22-06-2017 / 06:57:40 / cg" |
54897 ! |
54897 ! |
54898 |
54898 |
54899 switchToClassNamed:aString |
54899 switchToClassNamed:aString |
54900 |str theClass| |
54900 |str theClass| |
54901 |
54901 |