--- a/DeviceWorkstation.st	Fri Mar 05 19:26:44 2004 +0100
+++ b/DeviceWorkstation.st	Fri Mar 05 19:37:51 2004 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -3854,7 +3852,7 @@
 
     |xlatedKey|
 
-'X: ' print. untranslatedKey printCR.
+"/ 'X: ' print. untranslatedKey printCR.
 
     "/
     "/ ctrl-Esc gives up focus
@@ -5917,8 +5915,8 @@
     ].
 
     modifier := self modifierKeyTranslationFor:untranslatedKey.
-'untranslatedKey: ' print. untranslatedKey storeString printCR.
-'modifier: ' print. modifier storeString printCR.
+"/ 'untranslatedKey: ' print. untranslatedKey storeString printCR.
+"/ 'modifier: ' print. modifier storeString printCR.
 
     "/
     "/ only prepend, if this is not a modifier
@@ -7367,7 +7365,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.457 2004-03-05 18:26:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.458 2004-03-05 18:37:51 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!