--- 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 $'
! !