--- 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 $'
! !