--- a/WindowEvent.st	Tue Oct 30 22:57:42 2007 +0100
+++ b/WindowEvent.st	Wed Oct 31 01:24:32 2007 +0100
@@ -179,6 +179,13 @@
 	privateIn:WindowEvent
 !
 
+WindowEvent::InputEvent subclass:#TrayActionEvent
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:WindowEvent
+!
+
 WindowEvent subclass:#WindowMapUnmapEvent
 	instanceVariableNames:''
 	classVariableNames:''
@@ -509,6 +516,15 @@
         type:#terminate
 !
 
+trayAction:event arguments:argVector view:aView
+    ^ (TrayActionEvent new)
+        for:aView 
+        type:event
+        arguments:argVector
+
+    "Created: / 31-10-2007 / 01:23:53 / cg"
+!
+
 unmappedView:aView
     ^ WindowMapUnmapEvent 
         for:aView 
@@ -1460,6 +1476,20 @@
     ^ true
 ! !
 
+!WindowEvent::TrayActionEvent methodsFor:'accessing'!
+
+event
+    ^ selector
+
+    "Created: / 31-10-2007 / 01:23:05 / cg"
+!
+
+event:something
+    selector := something.
+
+    "Created: / 31-10-2007 / 01:23:07 / cg"
+! !
+
 !WindowEvent::WindowMapUnmapEvent methodsFor:'queries'!
 
 isMapEvent
@@ -1481,7 +1511,7 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.89 2007-05-31 15:52:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.90 2007-10-31 00:24:32 cg Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!