--- a/WindowEvent.st	Thu Nov 08 17:01:00 2007 +0100
+++ b/WindowEvent.st	Fri Nov 09 13:11:22 2007 +0100
@@ -892,11 +892,12 @@
 !
 
 isMapEvent
-    "return true, if this is a map event event"
+    "return true, if this is a map event"
 
     ^ false
 
-    "Created: / 29.1.1998 / 21:52:54 / cg"
+    "Created: / 29-01-1998 / 21:52:54 / cg"
+    "Modified: / 09-11-2007 / 13:10:25 / cg"
 !
 
 isMessageSendEvent
@@ -938,12 +939,20 @@
     ^ false
 !
 
-isUnmapEvent
-    "return true, if this is an unmap event event"
+isTrayEvent
+    "return true, if this is an event from the tray (WIN32 only, for now)"
 
     ^ false
 
-    "Modified: / 29.1.1998 / 21:53:02 / cg"
+    "Created: / 09-11-2007 / 13:09:29 / cg"
+!
+
+isUnmapEvent
+    "return true, if this is an unmap event"
+
+    ^ false
+
+    "Modified: / 09-11-2007 / 13:10:07 / cg"
 !
 
 isUserEvent
@@ -1490,28 +1499,37 @@
     "Created: / 31-10-2007 / 01:23:07 / cg"
 ! !
 
+!WindowEvent::TrayActionEvent methodsFor:'queries'!
+
+isTrayEvent
+    ^ true
+
+    "Created: / 09-11-2007 / 13:09:17 / cg"
+! !
+
 !WindowEvent::WindowMapUnmapEvent methodsFor:'queries'!
 
 isMapEvent
-    "return true, if this is a map event event"
+    "return true, if this is a map event"
 
     ^ selector == #mapped
 
-    "Created: / 29.1.1998 / 21:52:54 / cg"
+    "Created: / 29-01-1998 / 21:52:54 / cg"
+    "Modified: / 09-11-2007 / 13:11:02 / cg"
 !
 
 isUnmapEvent
-    "return true, if this is an unmap event event"
+    "return true, if this is an unmap event"
 
     ^ selector == #unmapped
 
-    "Modified: / 29.1.1998 / 21:53:02 / cg"
+    "Modified: / 09-11-2007 / 13:11:04 / cg"
 ! !
 
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.90 2007-10-31 00:24:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.91 2007-11-09 12:11:22 cg Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!