client- and drop messages
authorClaus Gittinger <cg@exept.de>
Fri, 04 Apr 1997 18:59:56 +0200
changeset 1545 f821b3870502
parent 1544 4b78320b98fe
child 1546 48f29bb1caee
client- and drop messages
WSensor.st
WindowSensor.st
--- a/WSensor.st	Fri Apr 04 18:58:49 1997 +0200
+++ b/WSensor.st	Fri Apr 04 18:59:56 1997 +0200
@@ -731,6 +731,19 @@
     "Modified: 4.4.1997 / 13:45:23 / cg"
 !
 
+clientMessage:type format:format eventData:data view:aView
+    "some other data sent to a view.
+     This is an X-specific event."
+
+    self pushEvent:(WindowEvent clientEvent
+                             for:aView
+                             type:#clientMessage:format:eventData:
+                             arguments:(Array with:type with:format with:data)).
+
+    "Created: 4.4.1997 / 17:51:08 / cg"
+    "Modified: 4.4.1997 / 18:53:50 / cg"
+!
+
 configureX:x y:y width:w height:h view:aView
     "a views size or position has changed - this is sent from the device (Display)"
 
@@ -780,6 +793,20 @@
     "Modified: 18.1.1997 / 14:18:19 / cg"
 !
 
+dropMessage:dropType data:dropValue view:aView
+    "a drop sent to a view. The dropType is a symbolic specifier,
+     which may be ignored, since the dropValue has already been
+     converted into an ST/X dropObject."
+
+    self pushEvent:(WindowEvent 
+                             for:aView
+                             type:#dropMessage:data:
+                             arguments:(Array with:dropType with:dropValue)).
+
+    "Created: 4.4.1997 / 18:13:41 / cg"
+    "Modified: 4.4.1997 / 18:55:25 / cg"
+!
+
 exposeX:left y:top width:width height:height view:aView
     "an expose event arrived - this is sent from the device (Display)"
 
@@ -2262,6 +2289,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.96 1997-04-04 11:55:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.97 1997-04-04 16:59:56 cg Exp $'
 ! !
 WindowSensor initialize!
--- a/WindowSensor.st	Fri Apr 04 18:58:49 1997 +0200
+++ b/WindowSensor.st	Fri Apr 04 18:59:56 1997 +0200
@@ -731,6 +731,19 @@
     "Modified: 4.4.1997 / 13:45:23 / cg"
 !
 
+clientMessage:type format:format eventData:data view:aView
+    "some other data sent to a view.
+     This is an X-specific event."
+
+    self pushEvent:(WindowEvent clientEvent
+                             for:aView
+                             type:#clientMessage:format:eventData:
+                             arguments:(Array with:type with:format with:data)).
+
+    "Created: 4.4.1997 / 17:51:08 / cg"
+    "Modified: 4.4.1997 / 18:53:50 / cg"
+!
+
 configureX:x y:y width:w height:h view:aView
     "a views size or position has changed - this is sent from the device (Display)"
 
@@ -780,6 +793,20 @@
     "Modified: 18.1.1997 / 14:18:19 / cg"
 !
 
+dropMessage:dropType data:dropValue view:aView
+    "a drop sent to a view. The dropType is a symbolic specifier,
+     which may be ignored, since the dropValue has already been
+     converted into an ST/X dropObject."
+
+    self pushEvent:(WindowEvent 
+                             for:aView
+                             type:#dropMessage:data:
+                             arguments:(Array with:dropType with:dropValue)).
+
+    "Created: 4.4.1997 / 18:13:41 / cg"
+    "Modified: 4.4.1997 / 18:55:25 / cg"
+!
+
 exposeX:left y:top width:width height:height view:aView
     "an expose event arrived - this is sent from the device (Display)"
 
@@ -2262,6 +2289,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.96 1997-04-04 11:55:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.97 1997-04-04 16:59:56 cg Exp $'
 ! !
 WindowSensor initialize!