--- a/MenuEditor.st Tue Jun 25 21:31:05 2013 +0200
+++ b/MenuEditor.st Tue Jun 25 21:32:25 2013 +0200
@@ -2597,14 +2597,14 @@
|selector cls category|
specClass isNil ifTrue:[
- self warn:(resources string:'Please define the application class first.').
- ^ self
+ self warn:(resources string:'Please define the application class first.').
+ ^ self
].
selector := (self aspectFor:aspect) value.
selector isEmptyOrNil ifTrue:[
- Dialog information:(resources string:'Please enter an action method name.').
- ^ self
+ Dialog information:(resources string:'Please enter an action method name.').
+ ^ self
].
(selector = 'true' or:[selector = 'false']) ifTrue:[^ self].
(selector == true or:[selector == false]) ifTrue:[^ self].
@@ -2613,20 +2613,20 @@
cls := self resolveName:specClass.
cls isNil ifTrue:[
- self warn:(resources string:'Class %1 does not exist!!' with:specClass asString).
- ^ self
+ self warn:(resources string:'Class %1 does not exist!!' with:specClass asString).
+ ^ self
].
(cls includesSelector:selector) ifFalse:[
- category := UserPreferences current categoryForMenuActionsMethods.
-
- SmalltalkCodeGeneratorTool
- createActionMethodFor:selector in:cls
- category:category
- redefine:(self redefineAspectMethodsChannel value).
+ category := UserPreferences current categoryForMenuActionsMethods.
+
+ SmalltalkCodeGeneratorTool
+ createActionMethodFor:selector in:cls
+ category:category
+ redefine:(self redefineAspectMethodsChannel value).
].
- UserPreferences current systemBrowserClass openInClass:cls selector:selector
+ UserPreferences systemBrowserClass openInClass:cls selector:selector
"Created: / 21-10-2010 / 14:07:32 / cg"
"Modified: / 31-01-2011 / 18:28:59 / cg"
@@ -4173,23 +4173,23 @@
|cls sel image|
(cls := retrieverHolder value) isNil ifTrue:[
- Dialog warn:'No resource retriever is defined.'.
+ Dialog warn:'No resource retriever is defined.'.
] ifFalse:[
- sel := selectorHolder value.
-
- cls := Smalltalk classNamed:cls.
- cls isNil ifTrue:[
- Dialog warn:'No such resource retriever class.'.
- ] ifFalse:[
- (cls respondsTo:#visualFor:) ifTrue:[
- image := cls visualFor:sel.
- image ~~ (cls perform:sel) ifTrue:[
- self warn:'The image is resolved via #visualFor: from some unknown class'.
- sel := #visualFor:.
- ].
- ].
- UserPreferences current systemBrowserClass openInClass:cls class selector:sel
- ]
+ sel := selectorHolder value.
+
+ cls := Smalltalk classNamed:cls.
+ cls isNil ifTrue:[
+ Dialog warn:'No such resource retriever class.'.
+ ] ifFalse:[
+ (cls respondsTo:#visualFor:) ifTrue:[
+ image := cls visualFor:sel.
+ image ~~ (cls perform:sel) ifTrue:[
+ self warn:'The image is resolved via #visualFor: from some unknown class'.
+ sel := #visualFor:.
+ ].
+ ].
+ UserPreferences systemBrowserClass openInClass:cls class selector:sel
+ ]
]
"Created: / 20-09-2010 / 13:27:34 / cg"