--- a/WindowEvent.st	Thu Nov 09 20:39:25 2000 +0100
+++ b/WindowEvent.st	Fri Nov 10 12:21:57 2000 +0100
@@ -26,13 +26,6 @@
 	privateIn:WindowEvent
 !
 
-WindowEvent subclass:#ClientEvent
-	instanceVariableNames:'eventData'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:WindowEvent
-!
-
 WindowEvent::InputEvent subclass:#ButtonEvent
 	instanceVariableNames:''
 	classVariableNames:''
@@ -54,7 +47,14 @@
 	privateIn:WindowEvent
 !
 
-WindowEvent subclass:#DamageEvent
+WindowEvent subclass:#ClientEvent
+	instanceVariableNames:'eventData'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:WindowEvent
+!
+
+WindowEvent::InputEvent subclass:#KeyboardFocusEvent
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -68,6 +68,13 @@
 	privateIn:WindowEvent
 !
 
+WindowEvent subclass:#DamageEvent
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:WindowEvent
+!
+
 !WindowEvent class methodsFor:'documentation'!
 
 copyright
@@ -265,12 +272,14 @@
 delegatedFrom
     "return the value of the instance variable 'delegatedFrom' (automatically generated)"
 
-    ^ delegatedFrom!
+    ^ delegatedFrom
+!
 
 delegatedFrom:something
     "set the value of the instance variable 'delegatedFrom' (automatically generated)"
 
-    delegatedFrom := something.!
+    delegatedFrom := something.
+!
 
 key
     "return the key - nil is returned here.
@@ -558,6 +567,12 @@
     "Modified: / 28.1.1998 / 00:03:31 / cg"
 !
 
+isKeyboardFocusEvent
+    "return true, if this event is a keyboard focus event"
+
+    ^ false
+!
+
 isMapEvent
     "return true, if this is a map event event"
 
@@ -782,24 +797,6 @@
     "Created: / 21.5.1999 / 19:49:30 / cg"
 ! !
 
-!WindowEvent::ClientEvent methodsFor:'accessing'!
-
-eventData
-    "return the value of the instance variable 'eventData' (automatically generated)"
-
-    ^ eventData
-
-    "Created: 4.4.1997 / 17:41:50 / cg"
-!
-
-eventData:something
-    "set the value of the instance variable 'eventData' (automatically generated)"
-
-    eventData := something.
-
-    "Created: 4.4.1997 / 17:41:57 / cg"
-! !
-
 !WindowEvent::ButtonEvent methodsFor:'accessing'!
 
 button
@@ -984,6 +981,32 @@
     "Created: / 28.1.1998 / 00:02:48 / cg"
 ! !
 
+!WindowEvent::ClientEvent methodsFor:'accessing'!
+
+eventData
+    "return the value of the instance variable 'eventData' (automatically generated)"
+
+    ^ eventData
+
+    "Created: 4.4.1997 / 17:41:50 / cg"
+!
+
+eventData:something
+    "set the value of the instance variable 'eventData' (automatically generated)"
+
+    eventData := something.
+
+    "Created: 4.4.1997 / 17:41:57 / cg"
+! !
+
+!WindowEvent::KeyboardFocusEvent methodsFor:'queries'!
+
+isKeyboardFocusEvent
+    "return true, if this event is a keyboard focus event"
+
+    ^ true
+! !
+
 !WindowEvent::FocusEvent methodsFor:'queries'!
 
 isFocusEvent
@@ -1005,5 +1028,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.68 2000-09-05 20:48:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.69 2000-11-10 11:21:57 tm Exp $'
 ! !