--- a/WindowSensor.st	Thu Feb 13 13:21:53 1997 +0100
+++ b/WindowSensor.st	Thu Feb 13 13:41:46 1997 +0100
@@ -973,6 +973,18 @@
     ]
 !
 
+pasteFromClipBoard:something view:aView
+    "a clipboard paste - this is handled like a user event"
+
+    self pushEvent:(WindowEvent
+                     for:aView
+                     type:#pasteFromClipBoard:
+                     arguments:(Array with:something)).
+
+    "Modified: 18.1.1997 / 14:07:25 / cg"
+    "Created: 13.2.1997 / 13:40:24 / cg"
+!
+
 pointerEnter:state x:x y:y view:aView
     "mouse cursor was moved into the view - this is sent from the device (Display)"
 
@@ -2187,6 +2199,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.88 1997-02-12 00:22:02 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.89 1997-02-13 12:41:46 cg Exp $'
 ! !
 WindowSensor initialize!