equal
deleted
inserted
replaced
5724 values:#(abort browseImplementors createAndBrowse create ) |
5724 values:#(abort browseImplementors createAndBrowse create ) |
5725 default:#create |
5725 default:#create |
5726 onCancel:#abort. |
5726 onCancel:#abort. |
5727 |
5727 |
5728 answer == #browseImplementors ifTrue:[ |
5728 answer == #browseImplementors ifTrue:[ |
5729 UserPreferences systemBrowserClass browseImplementorsOf:aspect. |
5729 SystemBrowser default browseImplementorsOf:aspect. |
5730 ^ self |
5730 ^ self |
5731 ]. |
5731 ]. |
5732 answer == #abort ifTrue:[ |
5732 answer == #abort ifTrue:[ |
5733 ^ self |
5733 ^ self |
5734 ]. |
5734 ]. |
5741 (Dialog confirm:(resources string:'Browse the implementation of "%1" ?' with:aspect)) ifFalse:[ |
5741 (Dialog confirm:(resources string:'Browse the implementation of "%1" ?' with:aspect)) ifFalse:[ |
5742 ^ self. |
5742 ^ self. |
5743 ]. |
5743 ]. |
5744 ]. |
5744 ]. |
5745 |
5745 |
5746 UserPreferences systemBrowserClass |
5746 SystemBrowser default |
5747 openInClass:implementingClass selector:aspect |
5747 openInClass:implementingClass selector:aspect |
|
5748 |
|
5749 "Modified: / 01-09-2017 / 14:23:30 / cg" |
5748 ! |
5750 ! |
5749 |
5751 |
5750 doBrowseAspectMethods |
5752 doBrowseAspectMethods |
5751 "opens a browser on all the aspect methods" |
5753 "opens a browser on all the aspect methods" |
5752 |
5754 |
5758 |
5760 |
5759 (methods := self painter aspectMethods) isEmpty ifTrue:[ |
5761 (methods := self painter aspectMethods) isEmpty ifTrue:[ |
5760 self warn:'No aspect methods found !!'. |
5762 self warn:'No aspect methods found !!'. |
5761 ^ self. |
5763 ^ self. |
5762 ]. |
5764 ]. |
5763 UserPreferences systemBrowserClass |
5765 SystemBrowser default |
5764 browseMethods:methods |
5766 browseMethods:methods |
5765 title:'Aspect methods'. |
5767 title:'Aspect methods'. |
|
5768 |
|
5769 "Modified: / 01-09-2017 / 14:23:34 / cg" |
5766 ! |
5770 ! |
5767 |
5771 |
5768 doBrowseClass |
5772 doBrowseClass |
5769 "opens a System Browser on the specClass" |
5773 "opens a System Browser on the specClass" |
5770 |
5774 |
6005 doBrowse ifTrue:[ |
6009 doBrowse ifTrue:[ |
6006 methods := selectorsToGenerateCode |
6010 methods := selectorsToGenerateCode |
6007 collect:[:sel | cls compiledMethodAt:sel] |
6011 collect:[:sel | cls compiledMethodAt:sel] |
6008 thenSelect:[:m | m notNil]. |
6012 thenSelect:[:m | m notNil]. |
6009 |
6013 |
6010 UserPreferences systemBrowserClass |
6014 SystemBrowser default |
6011 browseMethods:methods |
6015 browseMethods:methods |
6012 title:'Some Aspect methods'. |
6016 title:'Some Aspect methods'. |
6013 ]. |
6017 ]. |
|
6018 |
|
6019 "Modified: / 01-09-2017 / 14:23:37 / cg" |
6014 ! |
6020 ! |
6015 |
6021 |
6016 doGenerateAspectMethods |
6022 doGenerateAspectMethods |
6017 "generates aspect and action methods for the application class" |
6023 "generates aspect and action methods for the application class" |
6018 |
6024 |