--- a/TerminalView.st	Thu May 03 23:21:22 2018 +0200
+++ b/TerminalView.st	Wed May 09 15:00:15 2018 +0200
@@ -604,6 +604,14 @@
 
 !TerminalView methodsFor:'accessing-behavior'!
 
+disableLineEditMode
+    self lineEditMode:false.
+!
+
+enableLineEditMode
+    self lineEditMode:true.
+!
+
 filterOnly:aBoolean
     "if true, any output from the program is ONLY
      sent to the filterStream (if any), not to the window.
@@ -2095,6 +2103,16 @@
                     ('-'                                  )
                     ('Linebuffer Size...' doSetLineLimit  )  
               ).
+    lineEditMode == true ifTrue:[
+        items := items , #(
+                    ('Disable Line Edit Mode' disableLineEditMode  )  
+              ).
+    ] ifFalse:[
+        items := items , #(
+                    ('Enable Line Edit Mode' enableLineEditMode  )  
+              ).
+    ].
+
     subMenu := PopUpMenu itemList:items resources:resources.
 
     items := #(