--- a/WindowEvent.st Fri Jan 14 11:09:18 2000 +0100
+++ b/WindowEvent.st Mon Jan 17 11:32:43 2000 +0100
@@ -17,13 +17,6 @@
category:'Interface-Support'
!
-WindowEvent subclass:#ClientEvent
- instanceVariableNames:'eventData'
- classVariableNames:''
- poolDictionaries:''
- privateIn:WindowEvent
-!
-
WindowEvent subclass:#InputEvent
instanceVariableNames:'modifierFlags'
classVariableNames:'F_CTRL F_ALT F_META F_SHIFT F_BUTTON1 F_BUTTON2 F_BUTTON3'
@@ -52,6 +45,13 @@
privateIn:WindowEvent
!
+WindowEvent subclass:#ClientEvent
+ instanceVariableNames:'eventData'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:WindowEvent
+!
+
!WindowEvent class methodsFor:'documentation'!
copyright
@@ -559,24 +559,6 @@
"Modified: 5.3.1997 / 11:27:40 / 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::InputEvent class methodsFor:'class initialization'!
initialize
@@ -839,6 +821,12 @@
!WindowEvent::ButtonEvent methodsFor:'accessing'!
+button
+ "return the button nr of the button-event"
+
+ ^ arguments at:1
+!
+
state
"return the button state of the button-event
(mouse button bits at the time of the event)."
@@ -916,8 +904,26 @@
"Created: 4.4.1997 / 13:44:22 / 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 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.64 1999-12-08 20:39:31 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.65 2000-01-17 10:32:43 cg Exp $'
! !