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