equal
deleted
inserted
replaced
2641 |
2641 |
2642 doBrowseApplicationMethodFor:aspect |
2642 doBrowseApplicationMethodFor:aspect |
2643 |selector cls implClass browsedClass category| |
2643 |selector cls implClass browsedClass category| |
2644 |
2644 |
2645 specClass isNil ifTrue:[ |
2645 specClass isNil ifTrue:[ |
2646 self warn:(resources string:'Please define the application class first.'). |
2646 self warn:('Please define the application class first.'). |
2647 ^ self |
2647 ^ self |
2648 ]. |
2648 ]. |
2649 |
2649 |
2650 selector := (self aspectValueFor:aspect). |
2650 selector := (self aspectValueFor:aspect). |
2651 selector isEmptyOrNil ifTrue:[ |
2651 selector isEmptyOrNil ifTrue:[ |
2687 browsedClass browserClass openInClass:browsedClass selector:selector |
2687 browsedClass browserClass openInClass:browsedClass selector:selector |
2688 |
2688 |
2689 "Created: / 21-10-2010 / 14:07:32 / cg" |
2689 "Created: / 21-10-2010 / 14:07:32 / cg" |
2690 "Modified: / 31-01-2011 / 18:28:59 / cg" |
2690 "Modified: / 31-01-2011 / 18:28:59 / cg" |
2691 "Modified: / 17-03-2014 / 12:25:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2691 "Modified: / 17-03-2014 / 12:25:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2692 "Modified: / 09-08-2018 / 15:31:11 / Claus Gittinger" |
2692 ! |
2693 ! |
2693 |
2694 |
2694 doBrowseChoiceMethod |
2695 doBrowseChoiceMethod |
2695 "open a browser on the choice aspect method (create if not yet existing)" |
2696 "open a browser on the choice aspect method (create if not yet existing)" |
2696 |
2697 |