--- a/VT52TerminalView.st	Tue Sep 17 11:07:29 2002 +0200
+++ b/VT52TerminalView.st	Wed Sep 18 16:32:06 2002 +0200
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libwidg2' }"
+
 TerminalView subclass:#VT52TerminalView
 	instanceVariableNames:'param1 param2'
 	classVariableNames:''
@@ -104,6 +106,11 @@
     kbdSequences := (self vt52KeyCodes)
 
 
+!
+
+setTerminalModes
+
+    ^ self.
 ! !
 
 !VT52TerminalView methodsFor:'processing - input'!
@@ -111,7 +118,9 @@
 nextPut:char
     "process a character (i.e. the shells output)"
 
-"/ Transcript show:state; show:' '; showCR:char storeString.
+    Debug ifTrue:[
+        Transcript show:state; show:' '; showCR:char storeString.
+    ].
 
     state == #gotReturn ifTrue:[
         state := 0.
@@ -159,7 +168,9 @@
         char asciiValue < 32 ifTrue:[
             char ~~ Character tab ifTrue:[
                 char asciiValue ~~ 0 ifTrue:[
-                    Transcript show:'unhandled control key: '; showCR:char storeString.
+                    Debug ifTrue:[
+                        Transcript show:'unhandled control key: '; showCR:char storeString.
+                    ].
                 ].
                 ^ self.
             ]
@@ -211,7 +222,9 @@
             state := #motion1.
             ^ self 
         ].
-        Transcript show:'unhandled esc-key: '; showCR:char storeString.
+        Debug ifTrue:[
+            Transcript show:'unhandled esc-key: '; showCR:char storeString.
+        ].
     ].
 
     state == #motion1 ifTrue:[
@@ -223,7 +236,9 @@
     state == #motion2 ifTrue:[
         "/ char-value - 32 is col
         param2 := (char asciiValue - 32).
-"/        Transcript show:'motion '; show:param1+1; show:' '; showCR:param2+1.
+        Debug ifTrue:[
+            Transcript show:'motion '; show:param1+1; show:' '; showCR:param2+1.
+        ].
         self cursorVisibleLine:param1+1 col:param2+1.
         ^ self endOfSequence
     ].
@@ -249,5 +264,5 @@
 !VT52TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.16 1999-06-24 09:56:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.17 2002-09-18 14:32:06 penk Exp $'
 ! !