--- a/TerminalView.st	Fri Mar 30 16:39:29 2007 +0200
+++ b/TerminalView.st	Tue Apr 10 16:36:52 2007 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libwidg2' }"
 
 TextCollector subclass:#TerminalView
@@ -1468,6 +1466,18 @@
 
 !TerminalView methodsFor:'menu'!
 
+doClear
+    "reset the scroll-range etc, clear the text buffer"
+
+    rangeStartLine := 1.
+    rangeEndLine := numberOfLines.
+
+    self normal.
+    self clear.
+
+    "Created: / 03-04-2007 / 08:58:59 / cg"
+!
+
 doReset
     "reset the scroll-range; 
      may have to reset more in the future (current font-set; color; etc)"
@@ -1506,10 +1516,11 @@
     |items subMenu m sensor|
 
     items := #(
-                    ('Interrupt'      doSendInterrupt)  
+                    ('Interrupt'      doSendInterrupt )  
                     ('Kill'           doSendKillSignal)  
-                    ('-'                                    )
-                    ('Reset'          doReset)  
+                    ('-'                              )
+                    ('Clear'          doClear         )  
+                    ('Reset'          doReset         )  
               ).
     subMenu := PopUpMenu itemList:items resources:resources.
 
@@ -1554,7 +1565,7 @@
     ].
     ^ m.
 
-    "Modified: / 29.4.1999 / 11:12:56 / cg"
+    "Modified: / 03-04-2007 / 08:58:26 / cg"
 !
 
 startSaveAs
@@ -1907,7 +1918,7 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.126 2006-03-30 17:08:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.127 2007-04-10 14:36:52 cg Exp $'
 ! !
 
 TerminalView initialize!