--- a/TerminalView.st	Tue Jul 23 16:25:04 2013 +0200
+++ b/TerminalView.st	Tue Jul 23 16:25:19 2013 +0200
@@ -120,11 +120,11 @@
 
 initialize
 
-    Debug := false.
+    Debug := DebugKeyboard := false.
 
-"
-    self initialize
-"
+    "
+     self initialize
+    "
 ! !
 
 !TerminalView class methodsFor:'defaults'!
@@ -653,7 +653,7 @@
 
     inStream isNil ifTrue:[^ self].
 
-    Debug ifTrue:[
+    DebugKeyboard ifTrue:[
         Transcript showCR:'----'; show:'keyPress:' ; showCR:aKey printString.
     ].
 
@@ -688,7 +688,7 @@
     ].
 
     seq notNil ifTrue:[
-        Debug ifTrue:[
+        DebugKeyboard ifTrue:[
             Transcript show:'->' ; showCR:seq storeString.
         ].
         seq := seq withoutCEscapes.
@@ -720,13 +720,13 @@
     "/
     "/ care for function-keys, which are mapped to Ctrl-x;
     "/
-    Debug ifTrue:[
+    DebugKeyboard ifTrue:[
         Transcript show:'raw ->' ; showCR:rawKey storeString.
     ].
 
     seq := kbdSequences at:rawKey ifAbsent:nil.
     seq notNil ifTrue:[
-        Debug ifTrue:[
+        DebugKeyboard ifTrue:[
             Transcript show:'->' ; showCR:seq storeString.
         ].
         inStream nextPutAll:(seq withoutCEscapes).
@@ -738,14 +738,14 @@
         rest size == 1 ifTrue:[
             rest := rest at:1.
             (rest >= $a and:[rest <= $z]) ifTrue:[
-                Debug ifTrue:[
+                DebugKeyboard ifTrue:[
                     Transcript show:'->' ; showCR:(Character value:(rest - $a + 1)) storeString.
                 ].
                 inStream nextPut:(Character value:(rest - $a + 1)).
                 ^ self
             ].
             (rest >= $A and:[rest <= $Z]) ifTrue:[
-                Debug ifTrue:[
+                DebugKeyboard ifTrue:[
                     Transcript show:'->' ; showCR:(Character value:(rest - $a + 1)) storeString.
                 ].
                 inStream nextPut:(Character value:(rest - $A + 1)).
@@ -770,10 +770,14 @@
         ^ self
     ].
 
-    Debug ifTrue:[
+    DebugKeyboard ifTrue:[
         Transcript show:'unhandled key: '; showCR:rawKey.
     ].
 
+    "
+     DebugKeyboard := true
+    "
+
     "Modified: / 25-01-2012 / 10:43:06 / cg"
 !
 
@@ -2050,11 +2054,11 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.148 2013-07-23 13:59:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.149 2013-07-23 14:25:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.148 2013-07-23 13:59:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.149 2013-07-23 14:25:19 cg Exp $'
 ! !