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