--- a/VT100TerminalView.st	Wed Jun 10 17:37:18 1998 +0200
+++ b/VT100TerminalView.st	Wed Jun 10 18:24:16 1998 +0200
@@ -18,33 +18,6 @@
 
 ! !
 
-!VT100TerminalView ignoredMethodsFor:'defaults'!
-
-vt100Codes
-    ^ #(
-         ( '\eD'   #doCursorDown  )
-         ( '\eM'   #doCursorUp  )
-
-         ( '\e[A'  #doCursorUp    )
-         ( '\e[B'  #doCursorLeft  )
-         ( '\e[C'  #doCursorRight )
-         ( '\e[D'  #doCursorDown  )
-
-         ( '\e[H'  #doCursorHome  )
-         ( '\e[2J' #doClearToEnd  )
-         ( '\e[J'  #doClearAll  )
-         ( '\e[K'  #doClearLines  )
-         ( '\e[r'  #doResetDefaults  )
-
-         ( '\r'   #doCursorReturn  )
-         ( '\n'   #doCursorNewLine  )
-         ( '\b'   #doBackspace  )
-       )
-
-    "Created: / 9.6.1998 / 20:45:16 / cg"
-    "Modified: / 9.6.1998 / 20:50:55 / cg"
-! !
-
 !VT100TerminalView methodsFor:'defaults'!
 
 vt100KeyCodes
@@ -232,9 +205,7 @@
             self beep.
             ^ self 
         ].
-"/        self replaceCharAtCursor:char.
-"/        ^ self.
-        ^ super basicNextPut:char
+        ^ super nextPut:char
     ].
 
     state == 1 ifTrue:[
@@ -353,7 +324,7 @@
 
     self doNothing
 
-    "Modified: / 10.6.1998 / 17:23:46 / cg"
+    "Modified: / 10.6.1998 / 17:53:07 / cg"
 ! !
 
 !VT100TerminalView methodsFor:'queries'!
@@ -367,5 +338,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.5 1998-06-10 15:37:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.6 1998-06-10 16:24:16 cg Exp $'
 ! !