VT100TerminalView.st
changeset 937 9823aad16498
parent 934 b450dbaeedac
child 939 54698a16b65c
--- a/VT100TerminalView.st	Wed Jun 10 20:06:49 1998 +0200
+++ b/VT100TerminalView.st	Wed Jun 10 20:06:57 1998 +0200
@@ -164,6 +164,8 @@
 !
 
 nextPut:char
+    "process a character (i.e. the shells output)"
+
 "/ Transcript show:state; show:' '; showCR:char asciiValue.
 
     state == #gotReturn ifTrue:[
@@ -205,6 +207,12 @@
             self beep.
             ^ self 
         ].
+"/        (char == Character tab) ifTrue:[
+"/            self endEntry.
+"/            super nextPut:char.
+"/            self endEntry.
+"/            ^ self.
+"/        ].
         ^ super nextPut:char
     ].
 
@@ -324,7 +332,7 @@
 
     self doNothing
 
-    "Modified: / 10.6.1998 / 17:53:07 / cg"
+    "Modified: / 10.6.1998 / 20:01:13 / cg"
 ! !
 
 !VT100TerminalView methodsFor:'queries'!
@@ -338,5 +346,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.6 1998-06-10 16:24:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.7 1998-06-10 18:06:57 cg Exp $'
 ! !