5053 UserPreferences current systemBrowserClass openInClass:cls selector:aspect |
5053 UserPreferences current systemBrowserClass openInClass:cls selector:aspect |
5054 |
5054 |
5055 "Modified: / 28-01-2014 / 21:55:56 / cg" |
5055 "Modified: / 28-01-2014 / 21:55:56 / cg" |
5056 ! |
5056 ! |
5057 |
5057 |
|
5058 doBrowseAspectClass: aspect |
|
5059 | spec className class | |
|
5060 |
|
5061 spec := painter specForSelection. |
|
5062 spec isNil ifTrue:[ self error: 'No spec!!'.]. |
|
5063 className := spec perform: aspect. |
|
5064 class := self resolveName: className inClass: specClass. |
|
5065 class isNil ifTrue:[ |
|
5066 Dialog warn: (resources string: 'No such class (%1)' with: className). |
|
5067 ^ self. |
|
5068 ]. |
|
5069 Smalltalk browseInClass: (self resolveName: className inClass: specClass) |
|
5070 |
|
5071 "Created: / 24-02-2014 / 17:20:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
5072 ! |
|
5073 |
5058 doBrowseAspectMethod:aspectSelector |
5074 doBrowseAspectMethod:aspectSelector |
5059 "browse or create the aspect method as entered in the field (button beside input fieled pressed)" |
5075 "browse or create the aspect method as entered in the field (button beside input fieled pressed)" |
5060 |
5076 |
5061 self isModified ifTrue:[ self accept ]. |
5077 self isModified ifTrue:[ self accept ]. |
5062 "/ self acceptOrIgnoreSectionModification. |
5078 "/ self acceptOrIgnoreSectionModification. |
5063 self doBrowseAspectMethod:aspectSelector nameAs:aspectSelector |
5079 self doBrowseAspectMethod:aspectSelector nameAs:aspectSelector |
5064 |
5080 |
5065 "Modified: / 12-01-2008 / 10:32:15 / cg" |
5081 "Modified: / 12-01-2008 / 10:32:15 / cg" |
|
5082 "Modified (format): / 24-02-2014 / 17:44:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5066 ! |
5083 ! |
5067 |
5084 |
5068 doBrowseAspectMethod:aspectSelector nameAs:aspectNameShown |
5085 doBrowseAspectMethod:aspectSelector nameAs:aspectNameShown |
5069 "browse or create the aspect method as entered in the field" |
5086 "browse or create the aspect method as entered in the field" |
5070 |
5087 |