3180 "opens a browser on the aspect methods" |
3180 "opens a browser on the aspect methods" |
3181 |
3181 |
3182 |methods| |
3182 |methods| |
3183 |
3183 |
3184 self painter isModified ifTrue:[ |
3184 self painter isModified ifTrue:[ |
3185 self warn:'The current window spec has not yet been saved!!\\The System Browser may show the code of the old aspect methods.' withCRs. |
3185 self warn:'The current window spec has not yet been saved!!\\The System Browser may show the code of the old aspect methods.' withCRs. |
3186 ]. |
3186 ]. |
3187 |
3187 |
3188 (methods := self painter aspectMethods) isEmpty ifTrue:[ |
3188 (methods := self painter aspectMethods) isEmpty ifTrue:[ |
3189 self warn:'No aspect methods found!!'. |
3189 self warn:'No aspect methods found!!'. |
3190 ^ self. |
3190 ^ self. |
3191 ]. |
3191 ]. |
3192 SystemBrowser browseMethods:methods title:'Aspect methods'. |
3192 UserPreferences current systemBrowserClass browseMethods:methods title:'Aspect methods'. |
3193 |
|
3194 ! |
3193 ! |
3195 |
3194 |
3196 doBrowseClass |
3195 doBrowseClass |
3197 "opens a System Browser on the specClass" |
3196 "opens a System Browser on the specClass" |
3198 |
3197 |
3199 self painter isModified ifTrue:[ |
3198 self painter isModified ifTrue:[ |
3200 self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs. |
3199 self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs. |
3201 ]. |
3200 ]. |
3202 |
3201 |
3203 SystemBrowser openInClass:(self resolveName:specClass) |
3202 UserPreferences current systemBrowserClass openInClass:(self resolveName:specClass) |
3204 |
|
3205 ! |
3203 ! |
3206 |
3204 |
3207 doDefineClassAndSelector |
3205 doDefineClassAndSelector |
3208 "launches a dialog for defining class, superclass, and selector of the application" |
3206 "launches a dialog for defining class, superclass, and selector of the application" |
3209 |
3207 |