--- a/WindowSensor.st	Wed Oct 31 01:24:32 2007 +0100
+++ b/WindowSensor.st	Wed Oct 31 01:24:46 2007 +0100
@@ -1836,6 +1836,17 @@
     "Modified: / 25.5.1999 / 15:52:20 / cg"
 !
 
+trayAction:command arguments:argVector view:aView
+    "native widget action - this is sent from the device (Display)"
+
+    |ev|
+
+    ev := WindowEvent trayAction:command arguments:argVector view:aView.
+    self pushEvent:ev.
+
+    "Created: / 31-10-2007 / 01:22:08 / cg"
+!
+
 unmappedView:aView
     "view was unmapped (from window manager) - this is sent from the device (Display)"
 
@@ -3253,7 +3264,7 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.246 2007-03-13 06:30:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.247 2007-10-31 00:24:46 cg Exp $'
 ! !
 
 WindowSensor initialize!