comment/format
authorClaus Gittinger <cg@exept.de>
Tue, 22 Dec 2009 18:14:12 +0100
changeset 9332 1728915191a1
parent 9331 f5f593eca2dd
child 9333 07f71c363807
comment/format
NewSystemBrowser.st
Tools__NewSystemBrowser.st
--- a/NewSystemBrowser.st	Tue Dec 22 12:06:10 2009 +0100
+++ b/NewSystemBrowser.st	Tue Dec 22 18:14:12 2009 +0100
@@ -6722,162 +6722,6 @@
       )
 !
 
-codeMenu
-    "This resource specification was automatically generated
-     by the MenuEditor of ST/X."
-
-    "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:#codeMenu
-     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser codeMenu)) startUp
-    "
-
-    <resource: #menu>
-
-    ^
-     #(Menu
-        (
-         (MenuItem
-            enabled: canUseRefactoringSupport
-            label: 'Variables'
-            translateLabel: true
-            submenu:
-           (Menu
-              (
-               (MenuItem
-                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
-                  label: 'Rename Local Variable...'
-                  itemValue: codeMenuRenameTemporary
-                  translateLabel: true
-                  showBusyCursorWhilePerforming: true
-                )
-               (MenuItem
-                  label: '-'
-                )
-               (MenuItem
-                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
-                  label: 'Move to Inner Scope...'
-                  itemValue: codeMenuMoveVariableToInnerScope
-                  translateLabel: true
-                  showBusyCursorWhilePerforming: true
-                )
-               (MenuItem
-                  label: '-'
-                )
-               (MenuItem
-                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
-                  label: 'Make Instance Variable'
-                  itemValue: codeMenuMakeInstanceVariable
-                  translateLabel: true
-                  isVisible: hasNotMultipleTemporaryVariablesSelectedInCodeViewHolder
-                  showBusyCursorWhilePerforming: true
-                )
-               (MenuItem
-                  enabled: hasMultipleTemporaryVariablesSelectedInCodeViewHolder
-                  label: 'Make Instance Variables'
-                  itemValue: codeMenuMakeInstanceVariable
-                  translateLabel: true
-                  isVisible: hasMultipleTemporaryVariablesSelectedInCodeViewHolder
-                  showBusyCursorWhilePerforming: true
-                )
-               (MenuItem
-                  label: '-'
-                )
-               (MenuItem
-                  enabled: hasUndefinedUppercaseIdentifierSelectedInCodeViewHolder
-                  label: 'Declare as Class Variable'
-                  itemValue: codeMenuDeclareSelectionAsClassVariable
-                  translateLabel: true
-                )
-               )
-              nil
-              nil
-            )
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
-            label: 'Inline Message'
-            itemValue: codeMenuInlineMessage
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
-            label: 'Extract Selection to Temporary...'
-            itemValue: codeMenuExtractSelectionToTemporary
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
-            label: 'Extract Method...'
-            itemValue: codeMenuExtractMethod
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
-            label: 'Extract Method to Component...'
-            itemValue: codeMenuExtractMethodToComponent
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndCanUseRefactoringSupportHolder
-            label: 'Add Parameter to Method...'
-            itemValue: codeMenuAddParameter
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndSingleSelectedMethodHasParameterAndCanUseRefactoringSupportHolder
-            label: 'Inline Parameter of Method'
-            itemValue: codeMenuInlineParameter
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndSingleSelectedMethodHasParameterAndCanUseRefactoringSupportHolder
-            label: 'Remove Parameter from Method'
-            itemValue: codeMenuRemoveParameter
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndCanUseRefactoringSupportHolder
-            label: 'Format'
-            itemValue: codeMenuFormat
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            label: '-'
-            isVisible: canLoadRefactoringSupport
-          )
-         (MenuItem
-            label: 'Load Refactoring and Undo Features'
-            itemValue: doLoadRefactoringSupport
-            translateLabel: true
-            isVisible: canLoadRefactoringSupport
-            showBusyCursorWhilePerforming: true
-          )
-         )
-        nil
-        nil
-      )
-!
-
 compareBuildSupportFileMenu
     "This resource specification was automatically generated
      by the MenuEditor of ST/X."
@@ -8451,11 +8295,7 @@
 !
 
 refactoringMenu
-    "This resource specification was automatically generated
-     by the MenuEditor of ST/X."
-
-    "Do not manually edit this!! If it is corrupted,
-     the MenuEditor may not be able to read the specification."
+    "get here via codeViewMenu (holder in codeView)"
 
     "
      MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#refactoringMenu
@@ -10857,6 +10697,164 @@
       )
 ! !
 
+!NewSystemBrowser class methodsFor:'menu specs - obsolete'!
+
+codeMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "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:#codeMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser codeMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            enabled: canUseRefactoringSupport
+            label: 'Variables'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
+                  label: 'xxxxRename Local Variable...'
+                  itemValue: codeMenuRenameTemporary
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
+                  label: 'Move to Inner Scope...'
+                  itemValue: codeMenuMoveVariableToInnerScope
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
+                  label: 'Make Instance Variable'
+                  itemValue: codeMenuMakeInstanceVariable
+                  translateLabel: true
+                  isVisible: hasNotMultipleTemporaryVariablesSelectedInCodeViewHolder
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  enabled: hasMultipleTemporaryVariablesSelectedInCodeViewHolder
+                  label: 'Make Instance Variables'
+                  itemValue: codeMenuMakeInstanceVariable
+                  translateLabel: true
+                  isVisible: hasMultipleTemporaryVariablesSelectedInCodeViewHolder
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasUndefinedUppercaseIdentifierSelectedInCodeViewHolder
+                  label: 'Declare as Class Variable'
+                  itemValue: codeMenuDeclareSelectionAsClassVariable
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
+            label: 'Inline Message'
+            itemValue: codeMenuInlineMessage
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
+            label: 'Extract Selection to Temporary...'
+            itemValue: codeMenuExtractSelectionToTemporary
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
+            label: 'Extract Method...'
+            itemValue: codeMenuExtractMethod
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
+            label: 'Extract Method to Component...'
+            itemValue: codeMenuExtractMethodToComponent
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndCanUseRefactoringSupportHolder
+            label: 'Add Parameter to Method...'
+            itemValue: codeMenuAddParameter
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndSingleSelectedMethodHasParameterAndCanUseRefactoringSupportHolder
+            label: 'Inline Parameter of Method'
+            itemValue: codeMenuInlineParameter
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndSingleSelectedMethodHasParameterAndCanUseRefactoringSupportHolder
+            label: 'Remove Parameter from Method'
+            itemValue: codeMenuRemoveParameter
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndCanUseRefactoringSupportHolder
+            label: 'Format'
+            itemValue: codeMenuFormat
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+            isVisible: canLoadRefactoringSupport
+          )
+         (MenuItem
+            label: 'Load Refactoring and Undo Features'
+            itemValue: doLoadRefactoringSupport
+            translateLabel: true
+            isVisible: canLoadRefactoringSupport
+            showBusyCursorWhilePerforming: true
+          )
+         )
+        nil
+        nil
+      )
+! !
+
 !NewSystemBrowser class methodsFor:'menu specs-dialogs'!
 
 classesWhichHaveBeenModifiedPopupMenu
@@ -11100,7 +11098,9 @@
 !
 
 shiftedCodeViewPopUpMenu
-    "return the Shift-popUpMenu for the code-view"
+    "return the Shift-popUpMenu for the code-view.
+     get here via codeViewMenu (holder in codeView)"
+
 
     <resource: #programMenu>
 
@@ -35320,7 +35320,8 @@
 !
 
 codeViewMenu
-    "add more functionality to the codeViews text-editor-menu"
+    "add more functionality to the codeViews text-editor-menu.
+     Get here via the menuHolder-plug in codeView."
 
     <resource: #programMenu>
 
@@ -43918,11 +43919,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1438 2009-12-17 17:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1439 2009-12-22 17:14:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1438 2009-12-17 17:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1439 2009-12-22 17:14:12 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Tue Dec 22 12:06:10 2009 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Dec 22 18:14:12 2009 +0100
@@ -6722,162 +6722,6 @@
       )
 !
 
-codeMenu
-    "This resource specification was automatically generated
-     by the MenuEditor of ST/X."
-
-    "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:#codeMenu
-     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser codeMenu)) startUp
-    "
-
-    <resource: #menu>
-
-    ^
-     #(Menu
-        (
-         (MenuItem
-            enabled: canUseRefactoringSupport
-            label: 'Variables'
-            translateLabel: true
-            submenu:
-           (Menu
-              (
-               (MenuItem
-                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
-                  label: 'Rename Local Variable...'
-                  itemValue: codeMenuRenameTemporary
-                  translateLabel: true
-                  showBusyCursorWhilePerforming: true
-                )
-               (MenuItem
-                  label: '-'
-                )
-               (MenuItem
-                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
-                  label: 'Move to Inner Scope...'
-                  itemValue: codeMenuMoveVariableToInnerScope
-                  translateLabel: true
-                  showBusyCursorWhilePerforming: true
-                )
-               (MenuItem
-                  label: '-'
-                )
-               (MenuItem
-                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
-                  label: 'Make Instance Variable'
-                  itemValue: codeMenuMakeInstanceVariable
-                  translateLabel: true
-                  isVisible: hasNotMultipleTemporaryVariablesSelectedInCodeViewHolder
-                  showBusyCursorWhilePerforming: true
-                )
-               (MenuItem
-                  enabled: hasMultipleTemporaryVariablesSelectedInCodeViewHolder
-                  label: 'Make Instance Variables'
-                  itemValue: codeMenuMakeInstanceVariable
-                  translateLabel: true
-                  isVisible: hasMultipleTemporaryVariablesSelectedInCodeViewHolder
-                  showBusyCursorWhilePerforming: true
-                )
-               (MenuItem
-                  label: '-'
-                )
-               (MenuItem
-                  enabled: hasUndefinedUppercaseIdentifierSelectedInCodeViewHolder
-                  label: 'Declare as Class Variable'
-                  itemValue: codeMenuDeclareSelectionAsClassVariable
-                  translateLabel: true
-                )
-               )
-              nil
-              nil
-            )
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
-            label: 'Inline Message'
-            itemValue: codeMenuInlineMessage
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
-            label: 'Extract Selection to Temporary...'
-            itemValue: codeMenuExtractSelectionToTemporary
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
-            label: 'Extract Method...'
-            itemValue: codeMenuExtractMethod
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
-            label: 'Extract Method to Component...'
-            itemValue: codeMenuExtractMethodToComponent
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndCanUseRefactoringSupportHolder
-            label: 'Add Parameter to Method...'
-            itemValue: codeMenuAddParameter
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndSingleSelectedMethodHasParameterAndCanUseRefactoringSupportHolder
-            label: 'Inline Parameter of Method'
-            itemValue: codeMenuInlineParameter
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndSingleSelectedMethodHasParameterAndCanUseRefactoringSupportHolder
-            label: 'Remove Parameter from Method'
-            itemValue: codeMenuRemoveParameter
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            enabled: hasSingleMethodSelectedAndCanUseRefactoringSupportHolder
-            label: 'Format'
-            itemValue: codeMenuFormat
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            label: '-'
-            isVisible: canLoadRefactoringSupport
-          )
-         (MenuItem
-            label: 'Load Refactoring and Undo Features'
-            itemValue: doLoadRefactoringSupport
-            translateLabel: true
-            isVisible: canLoadRefactoringSupport
-            showBusyCursorWhilePerforming: true
-          )
-         )
-        nil
-        nil
-      )
-!
-
 compareBuildSupportFileMenu
     "This resource specification was automatically generated
      by the MenuEditor of ST/X."
@@ -8451,11 +8295,7 @@
 !
 
 refactoringMenu
-    "This resource specification was automatically generated
-     by the MenuEditor of ST/X."
-
-    "Do not manually edit this!! If it is corrupted,
-     the MenuEditor may not be able to read the specification."
+    "get here via codeViewMenu (holder in codeView)"
 
     "
      MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#refactoringMenu
@@ -10857,6 +10697,164 @@
       )
 ! !
 
+!NewSystemBrowser class methodsFor:'menu specs - obsolete'!
+
+codeMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "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:#codeMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser codeMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            enabled: canUseRefactoringSupport
+            label: 'Variables'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
+                  label: 'xxxxRename Local Variable...'
+                  itemValue: codeMenuRenameTemporary
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
+                  label: 'Move to Inner Scope...'
+                  itemValue: codeMenuMoveVariableToInnerScope
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasTemporaryVariableSelectedInCodeViewHolder
+                  label: 'Make Instance Variable'
+                  itemValue: codeMenuMakeInstanceVariable
+                  translateLabel: true
+                  isVisible: hasNotMultipleTemporaryVariablesSelectedInCodeViewHolder
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  enabled: hasMultipleTemporaryVariablesSelectedInCodeViewHolder
+                  label: 'Make Instance Variables'
+                  itemValue: codeMenuMakeInstanceVariable
+                  translateLabel: true
+                  isVisible: hasMultipleTemporaryVariablesSelectedInCodeViewHolder
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasUndefinedUppercaseIdentifierSelectedInCodeViewHolder
+                  label: 'Declare as Class Variable'
+                  itemValue: codeMenuDeclareSelectionAsClassVariable
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
+            label: 'Inline Message'
+            itemValue: codeMenuInlineMessage
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
+            label: 'Extract Selection to Temporary...'
+            itemValue: codeMenuExtractSelectionToTemporary
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
+            label: 'Extract Method...'
+            itemValue: codeMenuExtractMethod
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndCanUseRefactoringSupportHolder
+            label: 'Extract Method to Component...'
+            itemValue: codeMenuExtractMethodToComponent
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndCanUseRefactoringSupportHolder
+            label: 'Add Parameter to Method...'
+            itemValue: codeMenuAddParameter
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndSingleSelectedMethodHasParameterAndCanUseRefactoringSupportHolder
+            label: 'Inline Parameter of Method'
+            itemValue: codeMenuInlineParameter
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndSelectionInCodeViewAndSingleSelectedMethodHasParameterAndCanUseRefactoringSupportHolder
+            label: 'Remove Parameter from Method'
+            itemValue: codeMenuRemoveParameter
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSingleMethodSelectedAndCanUseRefactoringSupportHolder
+            label: 'Format'
+            itemValue: codeMenuFormat
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+            isVisible: canLoadRefactoringSupport
+          )
+         (MenuItem
+            label: 'Load Refactoring and Undo Features'
+            itemValue: doLoadRefactoringSupport
+            translateLabel: true
+            isVisible: canLoadRefactoringSupport
+            showBusyCursorWhilePerforming: true
+          )
+         )
+        nil
+        nil
+      )
+! !
+
 !NewSystemBrowser class methodsFor:'menu specs-dialogs'!
 
 classesWhichHaveBeenModifiedPopupMenu
@@ -11100,7 +11098,9 @@
 !
 
 shiftedCodeViewPopUpMenu
-    "return the Shift-popUpMenu for the code-view"
+    "return the Shift-popUpMenu for the code-view.
+     get here via codeViewMenu (holder in codeView)"
+
 
     <resource: #programMenu>
 
@@ -35320,7 +35320,8 @@
 !
 
 codeViewMenu
-    "add more functionality to the codeViews text-editor-menu"
+    "add more functionality to the codeViews text-editor-menu.
+     Get here via the menuHolder-plug in codeView."
 
     <resource: #programMenu>
 
@@ -43918,11 +43919,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1438 2009-12-17 17:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1439 2009-12-22 17:14:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1438 2009-12-17 17:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1439 2009-12-22 17:14:12 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!