--- a/MenuEditor.st	Thu Mar 06 15:44:53 2014 +0100
+++ b/MenuEditor.st	Mon Mar 17 14:10:29 2014 +0100
@@ -2619,30 +2619,30 @@
 
     browsedClass := cls.
     (cls includesSelector:selector) ifFalse:[
+        | generate |    
         (implClass := cls whichClassImplements:selector) notNil ifTrue:[
-            (Dialog 
+            generate := (Dialog 
                 confirm:(resources 
                             stringWithCRs:'The application does not directly implement %1.\However it inherits this from %2.\\Create a redefinition in %1?'
                             with:cls name
                             with:implClass name)
                 initialAnswer:false)
-            ifTrue:[
-                category := UserPreferences current categoryForMenuActionsMethods.
-
-                SmalltalkCodeGeneratorTool
-                    createActionMethodFor:selector in:cls
-                    category:category
-                    redefine:(self redefineAspectMethodsChannel value).
-            ] ifFalse:[
-                browsedClass := implClass
-            ]
-        ]
+        ] ifFalse:[ 
+            generate := true.
+        ].
+        category := UserPreferences current categoryForMenuActionsMethods.
+
+        SmalltalkCodeGeneratorTool
+            createActionMethodFor:selector in:cls
+            category:category
+            redefine:(self redefineAspectMethodsChannel value).
     ].
 
     UserPreferences systemBrowserClass openInClass:browsedClass selector:selector
 
     "Created: / 21-10-2010 / 14:07:32 / cg"
     "Modified: / 31-01-2011 / 18:28:59 / cg"
+    "Modified: / 17-03-2014 / 12:25:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doBrowseChoiceMethod