equal
deleted
inserted
replaced
3189 |
3189 |
3190 (methods := self painter aspectMethods) isEmpty ifTrue:[ |
3190 (methods := self painter aspectMethods) isEmpty ifTrue:[ |
3191 self warn:'No aspect methods found!!'. |
3191 self warn:'No aspect methods found!!'. |
3192 ^ self. |
3192 ^ self. |
3193 ]. |
3193 ]. |
3194 UserPreferences current systemBrowserClass browseMethods:methods title:'Aspect methods'. |
3194 UserPreferences systemBrowserClass browseMethods:methods title:'Aspect methods'. |
3195 ! |
3195 ! |
3196 |
3196 |
3197 doBrowseClass |
3197 doBrowseClass |
3198 "opens a System Browser on the specClass" |
3198 "opens a System Browser on the specClass" |
3199 |
3199 |
3200 self painter isModified ifTrue:[ |
3200 self painter isModified ifTrue:[ |
3201 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 self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs. |
3202 ]. |
3202 ]. |
3203 |
3203 |
3204 UserPreferences current systemBrowserClass openInClass:(self resolveName:specClass) |
3204 UserPreferences systemBrowserClass openInClass:(self resolveName:specClass) |
3205 ! |
3205 ! |
3206 |
3206 |
3207 doDefineClassAndSelector |
3207 doDefineClassAndSelector |
3208 "launches a dialog for defining class, superclass, and selector of the application" |
3208 "launches a dialog for defining class, superclass, and selector of the application" |
3209 |
3209 |