--- a/SynchronousWindowSensor.st	Tue Apr 15 13:59:23 2003 +0200
+++ b/SynchronousWindowSensor.st	Tue Apr 15 13:59:47 2003 +0200
@@ -157,14 +157,6 @@
             dispatchEvent:#exposeX:y:width:height:
             arguments:(Array with:x with:y with:w with:h)
     ]
-
-"/    WindowEvent
-"/        sendEvent:#exposeX:y:width:height:
-"/        arguments:(Array with:x with:y with:w with:h)
-"/        view:aView
-
-    "Created: / 24.11.1995 / 19:15:54 / cg"
-    "Modified: / 20.5.1998 / 22:56:49 / cg"
 !
 
 focusInView:aView
@@ -198,19 +190,14 @@
     "/ (if an expose is pending)
 
     final ifTrue:[
-	(catchExpose includes:aView) ifTrue:[
-	    gotExpose add:aView.
-	]
+        (catchExpose includes:aView) ifTrue:[
+            gotExpose add:aView.
+        ]
     ].
 
     aView
-	dispatchEvent:#graphicsExposeX:y:width:height:final:
-	arguments:(Array with:x with:y with:w with:h with:final)
-
-"/    WindowEvent
-"/        sendEvent:#graphicsExposeX:y:width:height:final:
-"/        arguments:(Array with:x with:y with:w with:h with:final)
-"/        view:aView
+        dispatchEvent:#graphicsExposeX:y:width:height:final:
+        arguments:(Array with:x with:y with:w with:h with:final)
 
     "Created: / 24.11.1995 / 19:16:38 / cg"
     "Modified: / 20.5.1998 / 22:57:32 / cg"
@@ -301,6 +288,11 @@
     "Modified: 29.1.1997 / 20:46:47 / cg"
 !
 
+pasteFromClipBoard:s view:aView
+
+    ^ aView pasteFromClipBoard:s
+!
+
 pointerEnter:buttonState x:x y:y view:aView
     "forward a pointer enter for some view"
 
@@ -325,6 +317,11 @@
     "Modified: / 20.5.1998 / 22:58:35 / cg"
 !
 
+pushUserEvent:selector for:anyObject withArguments:argList
+
+    ^ anyObject perform:selector withArguments:argList.
+!
+
 saveAndTerminateView:aView
     "forward a saveAndTerminate event for some view"
 
@@ -355,9 +352,8 @@
 !SynchronousWindowSensor methodsFor:'private'!
 
 sendEvent:anEvent to:aView
-    WindowGroup lastEventQuerySignal handle:[:ex|
-        ex proceedWith:anEvent.
-    ] do:[
+
+    WindowGroup lastEventQuerySignal answer:anEvent do:[
         aView dispatchEvent:anEvent
     ].
 ! !
@@ -418,5 +414,5 @@
 !SynchronousWindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.23 2002-08-02 11:55:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.24 2003-04-15 11:59:37 stefan Exp $'
 ! !