--- a/EventMonitor.st	Tue Sep 19 22:56:06 2006 +0200
+++ b/EventMonitor.st	Wed Sep 20 10:30:48 2006 +0200
@@ -342,7 +342,7 @@
     state printOn:outputStream.
     outputStream cr.
 
-    "Modified: 5.4.1997 / 01:23:39 / cg"
+    "Modified: / 20-09-2006 / 10:29:50 / cg"
 !
 
 buttonMultiPress:button x:x y:y
@@ -368,7 +368,7 @@
     outputStream cr.
     outputStream flush.
 
-    "Modified: 5.4.1997 / 01:23:42 / cg"
+    "Modified: / 20-09-2006 / 10:29:43 / cg"
 !
 
 buttonRelease:button x:x y:y
@@ -402,6 +402,19 @@
     "Modified: 5.4.1997 / 01:23:45 / cg"
 !
 
+dispatchEvent:event withFocusOn:focusViewOrNil delegate:doDelegate
+    event isButtonMotionEvent ifTrue:[
+        self showButtonMotion ifFalse:[^ self].
+    ].
+
+"/    Timestamp now printOn:outputStream.
+"/    outputStream nextPutAll:' '.
+
+    super dispatchEvent:event withFocusOn:focusViewOrNil delegate:doDelegate.
+
+    "Created: / 20-09-2006 / 10:29:38 / cg"
+!
+
 dropMessage:dropType data:dropData
     outputStream nextPutAll:'drop '.
     dropType printOn:outputStream.
@@ -560,5 +573,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.25 2006-04-03 07:43:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.26 2006-09-20 08:30:48 cg Exp $'
 ! !