TerminalView.st
changeset 2207 d352a2f0a83a
parent 2205 b81118bb49da
child 2268 e3b57c072b89
--- a/TerminalView.st	Thu Sep 19 11:40:27 2002 +0200
+++ b/TerminalView.st	Thu Sep 19 15:39:48 2002 +0200
@@ -14,14 +14,14 @@
 "{ Package: 'stx:libwidg2' }"
 
 TextCollector subclass:#TerminalView
-	instanceVariableNames:'inStream outStream readerProcess shellPid kbdSequences
-		escapeSequenceTree currentSequence kbdMap escapeLeadingChars
-		numberOfColumns numberOfLines shellTerminateAction rangeStartLine
-		rangeEndLine state savedCursor shellCommand shellDirectory
-		filterStream localEcho translateNLToCRNL inputTranslateCRToNL'
-	classVariableNames:'Debug'
-	poolDictionaries:''
-	category:'Views-TerminalViews'
+        instanceVariableNames:'inStream outStream readerProcess shellPid kbdSequences
+                escapeSequenceTree currentSequence kbdMap escapeLeadingChars
+                numberOfColumns numberOfLines shellTerminateAction rangeStartLine
+                rangeEndLine state savedCursor shellCommand shellDirectory
+                filterStream localEcho translateNLToCRNL inputTranslateCRToNL'
+        classVariableNames:'Debug'
+        poolDictionaries:''
+        category:'Views-TerminalViews'
 !
 
 !TerminalView class methodsFor:'documentation'!
@@ -92,10 +92,15 @@
 "
 ! !
 
-!TerminalView class methodsFor:'class initialization'!
+!TerminalView class methodsFor:'initialization'!
 
 initialize
+
     Debug := false.
+
+"
+    self initialize
+"
 ! !
 
 !TerminalView class methodsFor:'defaults'!
@@ -1656,10 +1661,10 @@
                 "/ must handle individual characters
                 "/ to update the state machine.
 
-                self processCharacter:(buffer at:index).
+                self nextPut:(buffer at:index).
                 index := index + 1.
                 [state ~~ 0 and:[index <= count]] whileTrue:[
-                    self processCharacter:(buffer at:index).
+                    self nextPut:(buffer at:index).
                     index := index + 1.
                 ]
             ]
@@ -1814,7 +1819,7 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.104 2002-09-19 09:38:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.105 2002-09-19 13:39:45 penk Exp $'
 ! !
 
 TerminalView initialize!