--- a/WindowEvent.st	Mon Mar 12 11:19:04 2007 +0100
+++ b/WindowEvent.st	Tue Mar 13 07:29:43 2007 +0100
@@ -625,6 +625,14 @@
     receiver := anObject
 !
 
+timeStamp
+    ^ timeStamp
+!
+
+timeStamp:aTimestamp
+    timeStamp := aTimestamp.
+!
+
 type
     "return the type of the event"
 
@@ -1479,7 +1487,7 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.87 2006-10-13 12:08:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.88 2007-03-13 06:29:43 ca Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!