Tools__NewSystemBrowser.st
changeset 19513 229c6767b2ab
parent 19469 fbef11ebee03
child 19524 0f29c5f06418
--- a/Tools__NewSystemBrowser.st	Sat Feb 22 01:51:52 2020 +0100
+++ b/Tools__NewSystemBrowser.st	Sat Feb 22 10:02:17 2020 +0100
@@ -9636,38 +9636,38 @@
     <resource: #menu>
 
     ^ 
-     #(Menu
-        (
-         (MenuItem
-            label: 'Insert'
-            itemValue: editModeInsert
-          )
-         (MenuItem
-            label: 'Overwrite'
-            itemValue: editModeOverwrite
-          )
-         (MenuItem
-            label: 'Insert Selecting'
-            itemValue: editModeInsertAndSelect
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            label: 'Autoindent'
-            indication: editModeAutoIndentHolder
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            label: 'Learn Macro'
-            itemValue: toggleLearnMode
-          )
-         )
-        nil
-        nil
-      )
+     #(Menu 
+       (MenuItem
+          label: 'Insert'
+          itemValue: editModeInsert
+       ) 
+       (MenuItem
+          label: 'Overwrite'
+          itemValue: editModeOverwrite
+       ) 
+       (MenuItem
+          label: 'Insert Selecting'
+          itemValue: editModeInsertAndSelect
+       ) 
+       (MenuItem
+          label: '-'
+       ) 
+       (MenuItem
+          label: 'Autoindent'
+          indication: editModeAutoIndentHolder
+       ) 
+       (MenuItem
+          label: 'Standard Cursor Behavior at Line-End'
+          indication: editModeST80CursorHolder
+       ) 
+       (MenuItem
+          label: '-'
+       ) 
+       (MenuItem
+          label: 'Learn Macro'
+          itemValue: toggleLearnMode
+       )
+     )
 !
 
 inheritanceViewMenu
@@ -19517,6 +19517,14 @@
     "Modified (comment): / 26-06-2019 / 23:09:58 / Claus Gittinger"
 !
 
+editModeST80CursorHolder
+    "the current buffer's line-end cursor mode"
+
+    ^ PluggableAdaptor new
+            getBlock:[:m | UserPreferences current st80EditMode ]
+            putBlock:[:m :newValue | UserPreferences current st80EditMode:newValue] 
+!
+
 environmentHolder
     "return/create the 'environmentHolder' value holder (automatically generated)"