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