class: TerminalView
authorClaus Gittinger <cg@exept.de>
Sat, 10 Aug 2013 01:21:00 +0200
changeset 4322 c60e10e1b145
parent 4321 4803ecdf9a7a
child 4323 c05e731505fb
class: TerminalView comment/format in: #defineWindowSize changed: #send: #sendCharacter:
TerminalView.st
--- a/TerminalView.st	Sat Aug 10 00:53:59 2013 +0200
+++ b/TerminalView.st	Sat Aug 10 01:21:00 2013 +0200
@@ -642,7 +642,6 @@
                     Transcript showCR:'VT100: cannot change windowSize'.
                 ].
             ].
-
         ].
         shellPid notNil ifTrue:[
             OperatingSystem sendSignal:OperatingSystem sigWINCH to:shellPid
@@ -1619,6 +1618,9 @@
         recorderStream notNil ifTrue:[
             recorderStream nextPutAll:aString
         ].
+        Debug == true ifTrue:[
+            Transcript showCR:'send <',aString,'>'
+        ].
         inStream nextPutAll:aString
     ].
 
@@ -1644,6 +1646,9 @@
     recorderStream notNil ifTrue:[
         recorderStream nextPut:aCharacter
     ].
+    Debug == true ifTrue:[
+        Transcript showCR:'send <',aCharacter,'>'
+    ].
     inStream nextPut:aCharacter.
     "/ inStream flush.
 
@@ -2170,11 +2175,11 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.158 2013-08-09 22:53:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.159 2013-08-09 23:21:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.158 2013-08-09 22:53:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.159 2013-08-09 23:21:00 cg Exp $'
 ! !