Tools__NewSystemBrowser.st
changeset 18848 d85d4cf51cec
parent 18838 2751cc4960c2
child 18851 1986435c87c0
--- a/Tools__NewSystemBrowser.st	Wed Jun 26 23:23:24 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Jun 26 23:24:59 2019 +0200
@@ -9636,6 +9636,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:#editModeInfoLabelMenu
      (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser editModeInfoLabelMenu)) startUp
@@ -9643,23 +9644,27 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
             label: 'Insert'
             itemValue: editModeInsert
-            translateLabel: true
           )
          (MenuItem
             label: 'Overwrite'
             itemValue: editModeOverwrite
-            translateLabel: true
           )
          (MenuItem
             label: 'Insert Selecting'
             itemValue: editModeInsertAndSelect
-            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'Autoindent'
+            indication: editModeAutoIndentHolder
           )
          (MenuItem
             label: '-'
@@ -9667,7 +9672,6 @@
          (MenuItem
             label: 'Learn Macro'
             itemValue: toggleLearnMode
-            translateLabel: true
           )
          )
         nil
@@ -19436,10 +19440,20 @@
     RefactoryChangeManager autoload.
 !
 
+editModeAutoIndentHolder
+    "the current buffer's autoIndent Holder (insert/overwrite/...)"
+
+    ^ self navigationState editModeAutoIndentHolder
+
+    "Created: / 26-06-2019 / 23:09:53 / Claus Gittinger"
+!
+
 editModeHolder
-    "the current buffers editMode Holder (insert/overwrite/...)"
+    "the current buffer's editMode Holder (insert/overwrite/...)"
 
     ^ self navigationState editModeHolder
+
+    "Modified (comment): / 26-06-2019 / 23:09:58 / Claus Gittinger"
 !
 
 environmentHolder
@@ -61591,6 +61605,7 @@
     ^ selectorCompletion
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass