VT52TerminalView.st
changeset 4445 c9eea14d6956
parent 4292 f2d5256fca75
child 4770 6634b540fea2
--- a/VT52TerminalView.st	Wed Nov 06 16:41:48 2013 +0100
+++ b/VT52TerminalView.st	Mon Nov 25 00:13:04 2013 +0100
@@ -107,7 +107,7 @@
 
 !VT52TerminalView methodsFor:'processing - input'!
 
-processCharacter:char
+nextPut:char
     "process a character (i.e. the shells output)"
 
     Debug ifTrue:[
@@ -119,7 +119,7 @@
         char == Character nl ifTrue:[
             "/ cr-nl
             "/ stay in buffering mode.
-            self nextPut:Character cr.
+            super cr.
             ^ self.
         ].
         self endEntry.
@@ -167,7 +167,7 @@
                 ^ self.
             ]
         ].
-        ^ self nextPut:char
+        ^ self show:char
     ].
 
     state == #gotESC ifTrue:[
@@ -268,6 +268,6 @@
 !VT52TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.19 2013-07-23 14:00:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.20 2013-11-24 23:13:04 cg Exp $'
 ! !