# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 860196257 -7200
# Node ID 6fa462d56e64aa51d4cc3f596012ac70fab64a9a
# Parent  87953679496944b94619e268aea26706e58ce309
checkin from browser

diff -r 879536794969 -r 6fa462d56e64 EvMonitor.st
--- a/EvMonitor.st	Fri Apr 04 21:08:48 1997 +0200
+++ b/EvMonitor.st	Sat Apr 05 01:24:17 1997 +0200
@@ -57,38 +57,52 @@
 
 buttonMotion:state x:x y:y
     'buttonMotion x:' print. x print. ' y:' print. y print.
-    ' state:' print. state printNL
+    ' state:' print. state printCR
+
+    "Modified: 5.4.1997 / 01:23:39 / cg"
 !
 
 buttonPress:button x:x y:y
     'buttonPress x:' print. x print. ' y:' print. y print.
-    ' button:' print. button printNL
+    ' button:' print. button printCR
+
+    "Modified: 5.4.1997 / 01:23:42 / cg"
 !
 
 buttonRelease:button x:x y:y
     'buttonRelease x:' print. x print. ' y:' print. y print.
-    ' button:' print. button printNL
+    ' button:' print. button printCR
+
+    "Modified: 5.4.1997 / 01:23:43 / cg"
 !
 
 configureX:x y:y width:newWidth height:newHeight
     'configure x:' print. x print. ' y:' print. y print.
-    ' width:' print. newWidth print. ' height:' print. newHeight printNL.
+    ' width:' print. newWidth print. ' height:' print. newHeight printCR.
 
     ^ super configureX:x y:y width:newWidth height:newHeight
 
-    "Modified: 7.3.1996 / 15:05:15 / cg"
+    "Modified: 5.4.1997 / 01:23:45 / cg"
+!
+
+dropMessage:dropType data:dropData
+    'drop: ' print. dropType print. ' data:' print. dropData printCR.
+
+    "Modified: 5.4.1997 / 01:23:28 / cg"
 !
 
 focusIn
-    'focusIn' printNL.
+    'focusIn' printCR.
 
     "Created: 7.3.1996 / 15:06:18 / cg"
+    "Modified: 5.4.1997 / 01:23:48 / cg"
 !
 
 focusOut
-    'focusOut' printNL.
+    'focusOut' printCR.
 
     "Created: 7.3.1996 / 15:06:21 / cg"
+    "Modified: 5.4.1997 / 01:23:49 / cg"
 !
 
 keyPress:key x:x y:y
@@ -128,24 +142,34 @@
 !
 
 mapped
-    'mapped' printNL
+    'mapped' printCR
+
+    "Modified: 5.4.1997 / 01:24:00 / cg"
 !
 
 pointerEnter:state x:x y:y
     'pointerEnter x:' print. x print. ' y:' print. y print.
-    ' state:' print. state printNL
+    ' state:' print. state printCR
+
+    "Modified: 5.4.1997 / 01:24:02 / cg"
 !
 
 pointerLeave:state 
-    'pointerLeave state:' print. state printNL
+    'pointerLeave state:' print. state printCR
+
+    "Modified: 5.4.1997 / 01:24:05 / cg"
 !
 
 unmapped
-    'unmapped' printNL
+    'unmapped' printCR
+
+    "Modified: 5.4.1997 / 01:24:09 / cg"
 !
 
 visibilityChange:how
-    'visibilityChange:' print. how storeString printNL
+    'visibilityChange:' print. how storeString printCR
+
+    "Modified: 5.4.1997 / 01:24:07 / cg"
 ! !
 
 !EventMonitor methodsFor:'initialization'!
@@ -174,5 +198,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/EvMonitor.st,v 1.15 1997-03-02 10:23:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/EvMonitor.st,v 1.16 1997-04-04 23:24:17 cg Exp $'
 ! !
diff -r 879536794969 -r 6fa462d56e64 EventMonitor.st
--- a/EventMonitor.st	Fri Apr 04 21:08:48 1997 +0200
+++ b/EventMonitor.st	Sat Apr 05 01:24:17 1997 +0200
@@ -57,38 +57,52 @@
 
 buttonMotion:state x:x y:y
     'buttonMotion x:' print. x print. ' y:' print. y print.
-    ' state:' print. state printNL
+    ' state:' print. state printCR
+
+    "Modified: 5.4.1997 / 01:23:39 / cg"
 !
 
 buttonPress:button x:x y:y
     'buttonPress x:' print. x print. ' y:' print. y print.
-    ' button:' print. button printNL
+    ' button:' print. button printCR
+
+    "Modified: 5.4.1997 / 01:23:42 / cg"
 !
 
 buttonRelease:button x:x y:y
     'buttonRelease x:' print. x print. ' y:' print. y print.
-    ' button:' print. button printNL
+    ' button:' print. button printCR
+
+    "Modified: 5.4.1997 / 01:23:43 / cg"
 !
 
 configureX:x y:y width:newWidth height:newHeight
     'configure x:' print. x print. ' y:' print. y print.
-    ' width:' print. newWidth print. ' height:' print. newHeight printNL.
+    ' width:' print. newWidth print. ' height:' print. newHeight printCR.
 
     ^ super configureX:x y:y width:newWidth height:newHeight
 
-    "Modified: 7.3.1996 / 15:05:15 / cg"
+    "Modified: 5.4.1997 / 01:23:45 / cg"
+!
+
+dropMessage:dropType data:dropData
+    'drop: ' print. dropType print. ' data:' print. dropData printCR.
+
+    "Modified: 5.4.1997 / 01:23:28 / cg"
 !
 
 focusIn
-    'focusIn' printNL.
+    'focusIn' printCR.
 
     "Created: 7.3.1996 / 15:06:18 / cg"
+    "Modified: 5.4.1997 / 01:23:48 / cg"
 !
 
 focusOut
-    'focusOut' printNL.
+    'focusOut' printCR.
 
     "Created: 7.3.1996 / 15:06:21 / cg"
+    "Modified: 5.4.1997 / 01:23:49 / cg"
 !
 
 keyPress:key x:x y:y
@@ -128,24 +142,34 @@
 !
 
 mapped
-    'mapped' printNL
+    'mapped' printCR
+
+    "Modified: 5.4.1997 / 01:24:00 / cg"
 !
 
 pointerEnter:state x:x y:y
     'pointerEnter x:' print. x print. ' y:' print. y print.
-    ' state:' print. state printNL
+    ' state:' print. state printCR
+
+    "Modified: 5.4.1997 / 01:24:02 / cg"
 !
 
 pointerLeave:state 
-    'pointerLeave state:' print. state printNL
+    'pointerLeave state:' print. state printCR
+
+    "Modified: 5.4.1997 / 01:24:05 / cg"
 !
 
 unmapped
-    'unmapped' printNL
+    'unmapped' printCR
+
+    "Modified: 5.4.1997 / 01:24:09 / cg"
 !
 
 visibilityChange:how
-    'visibilityChange:' print. how storeString printNL
+    'visibilityChange:' print. how storeString printCR
+
+    "Modified: 5.4.1997 / 01:24:07 / cg"
 ! !
 
 !EventMonitor methodsFor:'initialization'!
@@ -174,5 +198,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.15 1997-03-02 10:23:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.16 1997-04-04 23:24:17 cg Exp $'
 ! !