--- a/WindowEvent.st	Thu Jan 29 22:48:43 1998 +0100
+++ b/WindowEvent.st	Thu Jan 29 23:09:13 1998 +0100
@@ -616,6 +616,14 @@
     "Modified: / 28.1.1998 / 00:03:31 / cg"
 !
 
+isMapEvent
+    "return true, if this is a map event event"
+
+    ^ type == #mapped
+
+    "Created: / 29.1.1998 / 21:52:54 / cg"
+!
+
 isPointerEnterEvent
     "return true, if this event is a pointer-enter event"
 
@@ -642,6 +650,14 @@
     "Created: 9.1.1996 / 15:51:36 / cg"
 !
 
+isUnmapEvent
+    "return true, if this is an unmap event event"
+
+    ^ type == #unmapped
+
+    "Modified: / 29.1.1998 / 21:53:02 / cg"
+!
+
 isUserEvent
     "return true, if this event is a user event (i.e. mouse, keyboard or button)"
 
@@ -959,5 +975,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.53 1998-01-27 23:03:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.54 1998-01-29 22:09:13 cg Exp $'
 ! !