equal
deleted
inserted
replaced
3930 ifFalse:[ |
3930 ifFalse:[ |
3931 (Dialog confirm:(resources |
3931 (Dialog confirm:(resources |
3932 stringWithCRs:'Browse implementors of %1 ?' |
3932 stringWithCRs:'Browse implementors of %1 ?' |
3933 with:aspect allBold)) |
3933 with:aspect allBold)) |
3934 ifTrue:[ |
3934 ifTrue:[ |
3935 SystemBrowser browseImplementorsOf:aspect |
3935 UserPreferences current systemBrowserClass browseImplementorsOf:aspect |
3936 ]. |
3936 ]. |
3937 ^ self |
3937 ^ self |
3938 ]. |
3938 ]. |
3939 code := painter |
3939 code := painter |
3940 generateActionMethodFor:aspect |
3940 generateActionMethodFor:aspect |
3941 spec:nil |
3941 spec:nil |
3942 inClass:cls. |
3942 inClass:cls. |
3943 code readStream fileIn. |
3943 code readStream fileIn. |
3944 ]. |
3944 ]. |
3945 SystemBrowser openInClass:cls selector:aspect |
3945 UserPreferences current systemBrowserClass openInClass:cls selector:aspect |
3946 ! |
3946 ! |
3947 |
3947 |
3948 doBrowseAspectMethods |
3948 doBrowseAspectMethods |
3949 "opens a browser on the aspect methods" |
3949 "opens a browser on the aspect methods" |
3950 |
3950 |