# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1372188745 -7200
# Node ID 0bf0d52eb92e69171a4294bd7b4aa936059813c1
# Parent  7509aa3559e9efba82cdaf1da1c33ad54b82a2a2
class: MenuEditor
changed: #doBrowseApplicationMethodFor:

diff -r 7509aa3559e9 -r 0bf0d52eb92e MenuEditor.st
--- 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"