--- a/SynchronousWindowSensor.st	Tue Mar 03 11:38:32 2015 +0100
+++ b/SynchronousWindowSensor.st	Tue Mar 03 11:38:49 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview' }"
 
+"{ NameSpace: Smalltalk }"
+
 WindowSensor subclass:#SynchronousWindowSensor
 	instanceVariableNames:''
 	classVariableNames:''
@@ -169,6 +171,13 @@
     ^ anyObject perform:selector withArguments:argList.
 ! !
 
+!SynchronousWindowSensor methodsFor:'event simulation'!
+
+enqueueMessage:selector for:someone arguments:argList
+    "do it synchronously"
+    someone perform:selector withArguments:argList
+! !
+
 !SynchronousWindowSensor methodsFor:'initialization'!
 
 initialize
@@ -243,6 +252,6 @@
 !SynchronousWindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.31 2014-09-23 11:36:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.32 2015-03-03 10:38:49 cg Exp $'
 ! !