--- a/TextCollector.st	Thu Jun 06 11:25:52 2019 +0200
+++ b/TextCollector.st	Thu Jun 06 11:26:22 2019 +0200
@@ -474,39 +474,6 @@
     "Modified: / 9.11.1998 / 21:18:17 / cg"
 ! !
 
-!TextCollector methodsFor:'menu'!
-
-editMenu
-    "return my popUpMenu; that's the superClasses menu,
-     plus a 'Line Limit' item."
-
-    <resource: #programMenu>
-
-    |m sub sensor|
-
-    m := super editMenu.
-    self showLineLimitInMenu ifTrue:[
-        ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[
-            sub := m.
-        ] ifFalse:[
-            sub := m subMenuAt:#others.
-        ].
-
-        sub notNil ifTrue:[
-            sub
-                addItemList:#(
-                    ('-'                                                                    )
-                    ('Set Line Limit...'               doSetLineLimit                         ))
-                resources:resources
-                after:#doPrint.
-        ].
-    ].
-    
-    ^ m.
-
-    "Modified: / 06-06-2019 / 10:17:43 / Claus Gittinger"
-! !
-
 !TextCollector methodsFor:'menu - actions'!
 
 doSetLineLimit