equal
deleted
inserted
replaced
5085 values:#(abort browseImplementors createAndBrowse create ) |
5085 values:#(abort browseImplementors createAndBrowse create ) |
5086 default:#create |
5086 default:#create |
5087 onCancel:#abort. |
5087 onCancel:#abort. |
5088 |
5088 |
5089 answer == #browseImplementors ifTrue:[ |
5089 answer == #browseImplementors ifTrue:[ |
5090 UserPreferences current systemBrowserClass browseImplementorsOf:aspect. |
5090 UserPreferences systemBrowserClass browseImplementorsOf:aspect. |
5091 ^ self |
5091 ^ self |
5092 ]. |
5092 ]. |
5093 answer == #abort ifTrue:[ |
5093 answer == #abort ifTrue:[ |
5094 ^ self |
5094 ^ self |
5095 ]. |
5095 ]. |
5102 (Dialog confirm:(resources string:'Browse the implementation of "%1" ?' with:aspect)) ifFalse:[ |
5102 (Dialog confirm:(resources string:'Browse the implementation of "%1" ?' with:aspect)) ifFalse:[ |
5103 ^ self. |
5103 ^ self. |
5104 ]. |
5104 ]. |
5105 ]. |
5105 ]. |
5106 |
5106 |
5107 UserPreferences current systemBrowserClass |
5107 UserPreferences systemBrowserClass |
5108 openInClass:implementingClass selector:aspect |
5108 openInClass:implementingClass selector:aspect |
5109 ! |
5109 ! |
5110 |
5110 |
5111 doBrowseAspectMethods |
5111 doBrowseAspectMethods |
5112 "opens a browser on all the aspect methods" |
5112 "opens a browser on all the aspect methods" |