Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 20 Aug 1999 15:38:57 +0200
changeset 2852 4eb0bb90d703
parent 2851 c43fdd39d2e5
child 2853 725ff1f332e0
checkin from browser
WEvent.st file | annotate | diff | comparison | revisions
WindowEvent.st file | annotate | diff | comparison | revisions 
--- a/WEvent.st	Fri Aug 20 11:32:44 1999 +0200
+++ b/WEvent.st	Fri Aug 20 15:38:57 1999 +0200
@@ -17,16 +17,16 @@
 	category:'Interface-Support'
 !
 
-WindowEvent subclass:#InputEvent
-	instanceVariableNames:'modifierFlags'
-	classVariableNames:'F_CTRL F_ALT F_META F_SHIFT F_BUTTON1 F_BUTTON2 F_BUTTON3'
+WindowEvent subclass:#ClientEvent
+	instanceVariableNames:'eventData'
+	classVariableNames:''
 	poolDictionaries:''
 	privateIn:WindowEvent
 !
 
-WindowEvent subclass:#ClientEvent
-	instanceVariableNames:'eventData'
-	classVariableNames:''
+WindowEvent subclass:#InputEvent
+	instanceVariableNames:'modifierFlags'
+	classVariableNames:'F_CTRL F_ALT F_META F_SHIFT F_BUTTON1 F_BUTTON2 F_BUTTON3'
 	poolDictionaries:''
 	privateIn:WindowEvent
 !
@@ -492,6 +492,24 @@
     "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
@@ -644,24 +662,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::FocusEvent methodsFor:'queries'!
 
 isFocusEvent
@@ -745,6 +745,14 @@
     "Created: 1.8.1997 / 13:55:19 / cg"
 !
 
+key:aCharacterOrSymbol
+    "change the key of the key-event."
+
+    arguments at:1 put:aCharacterOrSymbol
+
+    "Created: 1.8.1997 / 13:55:19 / cg"
+!
+
 rawKey
     ^ rawKey
 
@@ -806,5 +814,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.61 1999-07-26 08:11:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.62 1999-08-20 13:38:57 cg Exp $'
 ! !
--- a/WindowEvent.st	Fri Aug 20 11:32:44 1999 +0200
+++ b/WindowEvent.st	Fri Aug 20 15:38:57 1999 +0200
@@ -17,16 +17,16 @@
 	category:'Interface-Support'
 !
 
-WindowEvent subclass:#InputEvent
-	instanceVariableNames:'modifierFlags'
-	classVariableNames:'F_CTRL F_ALT F_META F_SHIFT F_BUTTON1 F_BUTTON2 F_BUTTON3'
+WindowEvent subclass:#ClientEvent
+	instanceVariableNames:'eventData'
+	classVariableNames:''
 	poolDictionaries:''
 	privateIn:WindowEvent
 !
 
-WindowEvent subclass:#ClientEvent
-	instanceVariableNames:'eventData'
-	classVariableNames:''
+WindowEvent subclass:#InputEvent
+	instanceVariableNames:'modifierFlags'
+	classVariableNames:'F_CTRL F_ALT F_META F_SHIFT F_BUTTON1 F_BUTTON2 F_BUTTON3'
 	poolDictionaries:''
 	privateIn:WindowEvent
 !
@@ -492,6 +492,24 @@
     "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
@@ -644,24 +662,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::FocusEvent methodsFor:'queries'!
 
 isFocusEvent
@@ -745,6 +745,14 @@
     "Created: 1.8.1997 / 13:55:19 / cg"
 !
 
+key:aCharacterOrSymbol
+    "change the key of the key-event."
+
+    arguments at:1 put:aCharacterOrSymbol
+
+    "Created: 1.8.1997 / 13:55:19 / cg"
+!
+
 rawKey
     ^ rawKey
 
@@ -806,5 +814,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.61 1999-07-26 08:11:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.62 1999-08-20 13:38:57 cg Exp $'
 ! !
hg/stx-libview