#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 06 Jun 2019 11:26:38 +0200
changeset 6599 c74062ad83c7
parent 6598 90b1f72eeb96
child 6600 9a4a44808e01
#REFACTORING by cg class: EditTextView added: #showLineLimitInMenu changed: #editMenu
EditTextView.st
--- a/EditTextView.st	Thu Jun 06 11:26:22 2019 +0200
+++ b/EditTextView.st	Thu Jun 06 11:26:38 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -6803,13 +6805,20 @@
                     ('Tools'            tools                   )
                     ('Font...'           changeFont             )
                     ('Insert Unicode...' insertUnicode )
-            ).
+            ).        
     CharacterSetView notNil ifTrue:[
         items := items ,
                     #(
                         ('Special Characters...'    specialCharacters  OpenSpecialCharacterWindow )
                     ).
     ].
+    self showLineLimitInMenu ifTrue:[
+        items := items ,
+                    #(
+                        ('Set Line Limit...'               doSetLineLimit                         )
+                    ).
+    ].                                
+
     items := items , #(
                     ('-'                                        )
                     ('Save As...'       save           SaveAs   )
@@ -7058,7 +7067,7 @@
     ^ m.
 
     "Modified: / 30-11-2017 / 15:06:03 / cg"
-    "Modified: / 28-05-2019 / 10:32:17 / Claus Gittinger"
+    "Modified: / 06-06-2019 / 11:22:31 / Claus Gittinger"
 !
 
 getTextSelectionFromHistory
@@ -7818,6 +7827,14 @@
     v topView label:'deleted text'.
 !
 
+showLineLimitInMenu
+    "only for text collectors"
+
+    ^ false.
+
+    "Created: / 06-06-2019 / 11:22:09 / Claus Gittinger"
+!
+
 sort:how ignoreCase:ignoreCase fromLine:start toLine:end
     "sort/reorder the selected lines.
      how: