--- 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