Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 05 Apr 1997 01:24:17 +0200
changeset 1117 6fa462d56e64
parent 1116 879536794969
child 1118 9fe7905c9768
checkin from browser
EvMonitor.st file | annotate | diff | comparison | revisions
EventMonitor.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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 $'
 ! !
hg/stx-libtool