--- a/EventMonitor.st	Thu Sep 28 21:40:44 2000 +0200
+++ b/EventMonitor.st	Fri Sep 29 14:45:13 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libtool' }"
+
 StandardSystemView subclass:#EventMonitor
 	instanceVariableNames:''
 	classVariableNames:''
@@ -128,21 +130,23 @@
 !
 
 keyPress:key x:x y:y
-    |untranslatedKey|
+    |s untranslatedKey|
 
-    'KeyPress x:' print. x print. ' y:' print. y print.
+    s := 'KeyPress x:' , x printString , ' y:' , y printString.
+    s print.
+    Transcript show:s.
     (key isMemberOf:Character) ifTrue:[
-        ' character key:' print. key print.
-        ' (' print. key asciiValue print. ')' print
+        s := ' character key:' , key printString
+             , ' (' , key asciiValue printString , ')'.
     ] ifFalse:[
-        ' symbolic key:' print. key storeString print.
+        s := ' symbolic key:' , key storeString.
         untranslatedKey := device keyboardMap keyAtValue:key ifAbsent:key.
         untranslatedKey ~~ key ifTrue:[
-            ' untranslated key:' print. untranslatedKey print
-        ]
+            s := s , ' untranslated key:' , untranslatedKey printString
+        ].
     ].
-
-    '' printCR
+    s printCR.
+    Transcript showCR:s.
 !
 
 keyRelease:key x:x y:y
@@ -223,5 +227,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.19 1999-05-19 08:47:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.20 2000-09-29 12:45:13 cg Exp $'
 ! !