--- a/EventMonitor.st	Tue May 18 21:12:43 1999 +0200
+++ b/EventMonitor.st	Wed May 19 10:47:51 1999 +0200
@@ -70,6 +70,14 @@
     "Modified: 5.4.1997 / 01:23:39 / cg"
 !
 
+buttonMultiPress:button x:x y:y
+    'buttonMultiPress x:' print. x print. ' y:' print. y print.
+    ' button:' print. button printCR
+
+    "Modified: / 5.4.1997 / 01:23:42 / cg"
+    "Created: / 19.5.1999 / 09:40:40 / cg"
+!
+
 buttonPress:button x:x y:y
     'buttonPress x:' print. x print. ' y:' print. y print.
     ' button:' print. button printCR
@@ -113,6 +121,12 @@
     "Modified: 5.4.1997 / 01:23:49 / cg"
 !
 
+hasKeyboardFocus:aBoolen
+    'hasKeyboardFocus:' print. aBoolen printCR
+
+    "Modified: / 19.5.1999 / 09:42:59 / cg"
+!
+
 keyPress:key x:x y:y
     |untranslatedKey|
 
@@ -209,5 +223,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.18 1999-01-07 13:36:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.19 1999-05-19 08:47:51 cg Exp $'
 ! !