--- a/WEvent.st	Wed Nov 11 16:17:02 1998 +0100
+++ b/WEvent.st	Thu Nov 12 18:06:18 1998 +0100
@@ -608,6 +608,15 @@
 
 !WindowEvent::ButtonEvent methodsFor:'accessing'!
 
+state
+    "return the button state of the button-event
+     (mouse button bits at the time of the event)."
+
+    ^ arguments at:1
+
+    "Created: / 12.11.1998 / 16:21:18 / cg"
+!
+
 x
     "return the x coordinate of the button-event
      (mouse position at the time of the event)."
@@ -723,5 +732,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.56 1998-06-06 19:01:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.57 1998-11-12 17:06:18 cg Exp $'
 ! !

--- a/WindowEvent.st	Wed Nov 11 16:17:02 1998 +0100
+++ b/WindowEvent.st	Thu Nov 12 18:06:18 1998 +0100
@@ -608,6 +608,15 @@
 
 !WindowEvent::ButtonEvent methodsFor:'accessing'!
 
+state
+    "return the button state of the button-event
+     (mouse button bits at the time of the event)."
+
+    ^ arguments at:1
+
+    "Created: / 12.11.1998 / 16:21:18 / cg"
+!
+
 x
     "return the x coordinate of the button-event
      (mouse position at the time of the event)."
@@ -723,5 +732,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.56 1998-06-06 19:01:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.57 1998-11-12 17:06:18 cg Exp $'
 ! !