refactored character processing
authorClaus Gittinger <cg@exept.de>
Mon, 25 Nov 2013 00:14:01 +0100
changeset 4447 1ea9b1d38a4b
parent 4446 02b5fbf621d3
child 4448 da0df393ce27
refactored character processing
VT100TerminalView.st
--- a/VT100TerminalView.st	Mon Nov 25 00:13:26 2013 +0100
+++ b/VT100TerminalView.st	Mon Nov 25 00:14:01 2013 +0100
@@ -743,7 +743,7 @@
 !
 
 evaluateProcessCharacter:char return:aSymbol
-    " evaluate the return value of the process state methods except for state 0
+    " evaluate the return value of the process state method except for state 0
     "
 
     aSymbol isNil ifTrue:[
@@ -904,7 +904,7 @@
             ^ #waitForNextChar.
         ]
     ].
-    super nextPut:char.
+    self show:char.
     ^ nil
 !
 
@@ -1273,10 +1273,10 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.59 2013-08-09 22:53:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.60 2013-11-24 23:14:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.59 2013-08-09 22:53:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.60 2013-11-24 23:14:01 cg Exp $'
 ! !