--- a/WindowSensor.st	Mon Nov 03 12:21:01 2008 +0100
+++ b/WindowSensor.st	Mon Nov 03 16:39:35 2008 +0100
@@ -2044,6 +2044,14 @@
     ].
 
     ^ anyListenerReturnedTrue.
+!
+
+setCtrlDown:aBoolean
+    ctrlDown := aBoolean.
+!
+
+setShiftDown:aBoolean
+    shiftDown := aBoolean.
 ! !
 
 !WindowSensor methodsFor:'event queue'!
@@ -3291,7 +3299,7 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.255 2008-11-03 11:20:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.256 2008-11-03 15:39:35 fm Exp $'
 ! !
 
 WindowSensor initialize!