2595 |
2595 |
2596 doBrowseApplicationMethodFor:aspect |
2596 doBrowseApplicationMethodFor:aspect |
2597 |selector cls category| |
2597 |selector cls category| |
2598 |
2598 |
2599 specClass isNil ifTrue:[ |
2599 specClass isNil ifTrue:[ |
2600 self warn:(resources string:'Please define the application class first.'). |
2600 self warn:(resources string:'Please define the application class first.'). |
2601 ^ self |
2601 ^ self |
2602 ]. |
2602 ]. |
2603 |
2603 |
2604 selector := (self aspectFor:aspect) value. |
2604 selector := (self aspectFor:aspect) value. |
2605 selector isEmptyOrNil ifTrue:[ |
2605 selector isEmptyOrNil ifTrue:[ |
2606 Dialog information:(resources string:'Please enter an action method name.'). |
2606 Dialog information:(resources string:'Please enter an action method name.'). |
2607 ^ self |
2607 ^ self |
2608 ]. |
2608 ]. |
2609 (selector = 'true' or:[selector = 'false']) ifTrue:[^ self]. |
2609 (selector = 'true' or:[selector = 'false']) ifTrue:[^ self]. |
2610 (selector == true or:[selector == false]) ifTrue:[^ self]. |
2610 (selector == true or:[selector == false]) ifTrue:[^ self]. |
2611 |
2611 |
2612 selector := selector asSymbol. |
2612 selector := selector asSymbol. |
2613 |
2613 |
2614 cls := self resolveName:specClass. |
2614 cls := self resolveName:specClass. |
2615 cls isNil ifTrue:[ |
2615 cls isNil ifTrue:[ |
2616 self warn:(resources string:'Class %1 does not exist!!' with:specClass asString). |
2616 self warn:(resources string:'Class %1 does not exist!!' with:specClass asString). |
2617 ^ self |
2617 ^ self |
2618 ]. |
2618 ]. |
2619 |
2619 |
2620 (cls includesSelector:selector) ifFalse:[ |
2620 (cls includesSelector:selector) ifFalse:[ |
2621 category := UserPreferences current categoryForMenuActionsMethods. |
2621 category := UserPreferences current categoryForMenuActionsMethods. |
2622 |
2622 |
2623 SmalltalkCodeGeneratorTool |
2623 SmalltalkCodeGeneratorTool |
2624 createActionMethodFor:selector in:cls |
2624 createActionMethodFor:selector in:cls |
2625 category:category |
2625 category:category |
2626 redefine:(self redefineAspectMethodsChannel value). |
2626 redefine:(self redefineAspectMethodsChannel value). |
2627 ]. |
2627 ]. |
2628 |
2628 |
2629 UserPreferences current systemBrowserClass openInClass:cls selector:selector |
2629 UserPreferences systemBrowserClass openInClass:cls selector:selector |
2630 |
2630 |
2631 "Created: / 21-10-2010 / 14:07:32 / cg" |
2631 "Created: / 21-10-2010 / 14:07:32 / cg" |
2632 "Modified: / 31-01-2011 / 18:28:59 / cg" |
2632 "Modified: / 31-01-2011 / 18:28:59 / cg" |
2633 ! |
2633 ! |
2634 |
2634 |
4171 |
4171 |
4172 doBrowseImageClass |
4172 doBrowseImageClass |
4173 |cls sel image| |
4173 |cls sel image| |
4174 |
4174 |
4175 (cls := retrieverHolder value) isNil ifTrue:[ |
4175 (cls := retrieverHolder value) isNil ifTrue:[ |
4176 Dialog warn:'No resource retriever is defined.'. |
4176 Dialog warn:'No resource retriever is defined.'. |
4177 ] ifFalse:[ |
4177 ] ifFalse:[ |
4178 sel := selectorHolder value. |
4178 sel := selectorHolder value. |
4179 |
4179 |
4180 cls := Smalltalk classNamed:cls. |
4180 cls := Smalltalk classNamed:cls. |
4181 cls isNil ifTrue:[ |
4181 cls isNil ifTrue:[ |
4182 Dialog warn:'No such resource retriever class.'. |
4182 Dialog warn:'No such resource retriever class.'. |
4183 ] ifFalse:[ |
4183 ] ifFalse:[ |
4184 (cls respondsTo:#visualFor:) ifTrue:[ |
4184 (cls respondsTo:#visualFor:) ifTrue:[ |
4185 image := cls visualFor:sel. |
4185 image := cls visualFor:sel. |
4186 image ~~ (cls perform:sel) ifTrue:[ |
4186 image ~~ (cls perform:sel) ifTrue:[ |
4187 self warn:'The image is resolved via #visualFor: from some unknown class'. |
4187 self warn:'The image is resolved via #visualFor: from some unknown class'. |
4188 sel := #visualFor:. |
4188 sel := #visualFor:. |
4189 ]. |
4189 ]. |
4190 ]. |
4190 ]. |
4191 UserPreferences current systemBrowserClass openInClass:cls class selector:sel |
4191 UserPreferences systemBrowserClass openInClass:cls class selector:sel |
4192 ] |
4192 ] |
4193 ] |
4193 ] |
4194 |
4194 |
4195 "Created: / 20-09-2010 / 13:27:34 / cg" |
4195 "Created: / 20-09-2010 / 13:27:34 / cg" |
4196 ! |
4196 ! |
4197 |
4197 |