--- a/Tools__NewSystemBrowser.st Fri Mar 02 14:51:23 2012 +0100
+++ b/Tools__NewSystemBrowser.st Fri Mar 02 14:51:51 2012 +0100
@@ -11595,6 +11595,7 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#variablesMenu
(Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser variablesMenu)) startUp
@@ -11680,14 +11681,14 @@
(MenuItem
enabled: hasInstanceVariableSelectedInCodeViewOrVariableListAndCanUseRefactoringSupportHolder
label: 'Pull Up'
- itemValue: codeMenuPullUpInstanceVariable
+ itemValue: variablesMenuPullUp
translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasInstanceVariableSelectedInCodeViewOrVariableListAndCanUseRefactoringSupportHolder
label: 'Push Down'
- itemValue: codeMenuPushDownInstanceVariable
+ itemValue: variablesMenuPushDown
translateLabel: true
showBusyCursorWhilePerforming: true
)
@@ -11835,14 +11836,14 @@
(MenuItem
enabled: hasClassVariableSelectedInCodeViewOrVariableListAndCanUseRefactoringSupportHolder
label: 'Pull Up'
- itemValue: codeMenuPullUpClassVariable
+ itemValue: variablesMenuPullUp
translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasClassVariableSelectedInCodeViewOrVariableListAndCanUseRefactoringSupportHolder
label: 'Push Down'
- itemValue: codeMenuPushDownClassVariable
+ itemValue: variablesMenuPushDown
translateLabel: true
showBusyCursorWhilePerforming: true
)
@@ -34579,11 +34580,13 @@
cls := mthd mclass.
] ifFalse:[
self codeAspect value ~= #classDefinition ifTrue:[
- ^ self warn:'Select either a class or a method.'
+ ^ self warn:'Select either a single class or a single method.'
].
cls := self theSingleSelectedClass.
].
aOneArgBlock value:cls.
+
+ "Modified: / 02-03-2012 / 14:32:58 / cg"
!
withCurrentMethodsClassAndSelectorDo:aTwoArgBlock
@@ -56105,11 +56108,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1724 2012-03-01 19:21:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1725 2012-03-02 13:51:51 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1724 2012-03-01 19:21:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1725 2012-03-02 13:51:51 cg Exp $'
!
version_SVN