--- a/WindowEvent.st	Mon Jun 01 10:42:33 2009 +0200
+++ b/WindowEvent.st	Mon Jun 01 10:43:01 2009 +0200
@@ -11,11 +11,11 @@
 "
 "{ Package: 'stx:libview' }"
 
-MessageSend subclass:#WindowEvent
-	instanceVariableNames:'delegatedFrom consumed timeStamp'
+Event subclass:#WindowEvent
+	instanceVariableNames:'delegatedFrom consumed'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Interface-Support'
+	category:'Interface-Support-UI'
 !
 
 WindowEvent subclass:#ApplicationEvent
@@ -641,26 +641,6 @@
     ^ args "consider this a kludge"
 !
 
-target
-    "return the target, for which the event is for"
-
-    ^ receiver
-!
-
-target:anObject
-    "set the target, for which the event is for"
-
-    receiver := anObject
-!
-
-timeStamp
-    ^ timeStamp
-!
-
-timeStamp:aTimestamp
-    timeStamp := aTimestamp.
-!
-
 type
     "return the type of the event"
 
@@ -1642,7 +1622,7 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.102 2009-05-09 05:09:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.103 2009-06-01 08:43:01 cg Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!