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