VT100TerminalView.st
changeset 941 137464350e42
parent 939 54698a16b65c
child 944 c59be5892714
--- a/VT100TerminalView.st	Thu Jun 11 19:11:45 1998 +0200
+++ b/VT100TerminalView.st	Thu Jun 11 22:48:37 1998 +0200
@@ -201,7 +201,7 @@
         ].
         (char == Character backspace) ifTrue:[ 
             self endEntry.
-            ^ self doBackspace
+            ^ self cursorLeft. "/ doBackspace
         ].
         (char == Character bell) ifTrue:[
             self beep.
@@ -253,7 +253,7 @@
             ^ self insertCharacters
         ].
         char == $A ifTrue: [
-            self doCursorUp:((parameters at: 1) max: 1).
+            self cursorUp:((parameters at: 1) max: 1).
             ^ self endOfSequence
         ].
         char == $B ifTrue: [
@@ -265,7 +265,7 @@
             ^ self endOfSequence
         ].
         char == $D ifTrue: [
-            self doCursorDown:((parameters at: 1) max: 1).
+            self cursorDown:((parameters at: 1) max: 1).
             ^ self endOfSequence
         ].
         char == $H ifTrue: [
@@ -332,7 +332,7 @@
 
     self doNothing
 
-    "Modified: / 10.6.1998 / 20:46:08 / cg"
+    "Modified: / 11.6.1998 / 22:12:53 / cg"
 ! !
 
 !VT100TerminalView methodsFor:'queries'!
@@ -346,5 +346,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.8 1998-06-10 18:48:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.9 1998-06-11 20:48:37 cg Exp $'
 ! !