--- a/TerminalView.st	Tue Jul 21 19:36:36 1998 +0200
+++ b/TerminalView.st	Tue Jul 21 20:12:32 1998 +0200
@@ -403,21 +403,47 @@
 !
 
 doClearDisplay
+    self doClearEntireScreen.
+
+    "Modified: / 21.7.1998 / 20:05:35 / cg"
+!
+
+doClearEntireScreen
     firstLineShown to:(list size) do:[:l |
         self at:l put:''
     ].
 
-    "Created: / 10.6.1998 / 14:43:06 / cg"
-    "Modified: / 10.6.1998 / 14:58:07 / cg"
+    "Modified: / 21.7.1998 / 20:00:19 / cg"
+    "Created: / 21.7.1998 / 20:05:24 / cg"
 !
 
-doClearToEnd
-    self doClearToEndOfLine.
-    cursorLine+1 to:(list size) do:[:l |
+doClearFromBeginningOfLine
+    |l|
+
+    l := self listAt:cursorLine.
+    l notNil ifTrue:[
+        (l size >= (cursorCol-1)) ifTrue:[
+            l := l copy from:1 to:cursorCol-1 put:(Character space).
+        ] ifFalse:[
+            l := nil.
+        ].
+        self withoutRedrawAt:cursorLine put:l.
+        self invalidateLine:cursorLine
+        "/ self at:cursorLine put:l.
+    ]
+
+    "Modified: / 20.6.1998 / 19:10:21 / cg"
+    "Created: / 21.7.1998 / 20:10:58 / cg"
+!
+
+doClearFromBeginningOfScreen
+    self doClearFromBeginningOfLine.
+    cursorLine-1 to:firstLineShown do:[:l |
         self at:l put:''
     ].
 
     "Modified: / 10.6.1998 / 14:45:43 / cg"
+    "Created: / 21.7.1998 / 20:08:29 / cg"
 !
 
 doClearToEndOfLine
@@ -437,6 +463,16 @@
     "Modified: / 20.6.1998 / 19:10:21 / cg"
 !
 
+doClearToEndOfScreen
+    self doClearToEndOfLine.
+    cursorLine+1 to:(list size) do:[:l |
+        self at:l put:''
+    ].
+
+    "Modified: / 10.6.1998 / 14:45:43 / cg"
+    "Created: / 21.7.1998 / 20:06:14 / cg"
+!
+
 doCursorDown:n
     |wasOn rEnd|
 
@@ -1075,5 +1111,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.47 1998-07-21 17:36:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.48 1998-07-21 18:12:32 cg Exp $'
 ! !