--- a/WindowEvent.st	Mon Jun 23 17:29:36 2008 +0200
+++ b/WindowEvent.st	Mon Jun 23 20:44:42 2008 +0200
@@ -852,6 +852,14 @@
     "Created: 5.3.1997 / 12:18:10 / cg"
 !
 
+isFocusOutEvent
+    "return true, if this event is a focusOut event"
+
+    ^ false
+
+    "Created: 5.3.1997 / 12:18:10 / cg"
+!
+
 isInputEvent
     "return true, if this event is an input (pointer, key or button) event"
 
@@ -1333,6 +1341,14 @@
     ^ (selector == #focusIn)
 
     "Created: / 21.5.1999 / 19:45:04 / cg"
+!
+
+isFocusOutEvent
+    "return true, if this event is a focusOut event"
+
+    ^ (selector == #focusOut)
+
+    "Created: / 21.5.1999 / 19:45:04 / cg"
 ! !
 
 !WindowEvent::ButtonMotionEvent methodsFor:'queries'!
@@ -1529,7 +1545,7 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.92 2008-05-19 19:22:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.93 2008-06-23 18:44:42 cg Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!