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>
Wed, 28 Jan 1998 00:03:54 +0100
changeset 2028 9f4244301ef8
parent 2027 50a7f23a6210
child 2029 99961ce13c2a
checkin from browser
WEvent.st file | annotate | diff | comparison | revisions
WindowEvent.st file | annotate | diff | comparison | revisions 
--- a/WEvent.st	Tue Jan 27 23:07:24 1998 +0100
+++ b/WEvent.st	Wed Jan 28 00:03:54 1998 +0100
@@ -595,13 +595,25 @@
 isKeyEvent
     "return true, if this event is a keyboard event"
 
-    ^ (type == #keyPress:x:y:) or:[type == #keyRelease:x:y:]
+    ^ false
+
+    "Modified: / 28.1.1998 / 00:03:17 / cg"
 !
 
 isKeyPressEvent
-    "return true, if this event is a keyboard event"
+    "return true, if this event is a keyboard press event"
+
+    ^ false
+
+    "Modified: / 28.1.1998 / 00:03:24 / cg"
+!
 
-    ^ (type == #keyPress:x:y:)
+isKeyReleaseEvent
+    "return true, if this event is a keyboard release event"
+
+    ^ false
+
+    "Modified: / 28.1.1998 / 00:03:31 / cg"
 !
 
 isPointerEnterEvent
@@ -925,10 +937,27 @@
     ^ true
 
     "Created: 4.4.1997 / 13:39:59 / cg"
+!
+
+isKeyPressEvent
+    "return true, if this event is a keyboard press event"
+
+    ^ (type == #keyPress:x:y:)
+
+    "Created: / 28.1.1998 / 00:02:40 / cg"
+    "Modified: / 28.1.1998 / 00:02:52 / cg"
+!
+
+isKeyReleaseEvent
+    "return true, if this event is a keyboard release event"
+
+    ^ (type == #keyRelease:x:y:)
+
+    "Created: / 28.1.1998 / 00:02:48 / cg"
 ! !
 
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.52 1998-01-16 15:07:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.53 1998-01-27 23:03:54 cg Exp $'
 ! !
--- a/WindowEvent.st	Tue Jan 27 23:07:24 1998 +0100
+++ b/WindowEvent.st	Wed Jan 28 00:03:54 1998 +0100
@@ -595,13 +595,25 @@
 isKeyEvent
     "return true, if this event is a keyboard event"
 
-    ^ (type == #keyPress:x:y:) or:[type == #keyRelease:x:y:]
+    ^ false
+
+    "Modified: / 28.1.1998 / 00:03:17 / cg"
 !
 
 isKeyPressEvent
-    "return true, if this event is a keyboard event"
+    "return true, if this event is a keyboard press event"
+
+    ^ false
+
+    "Modified: / 28.1.1998 / 00:03:24 / cg"
+!
 
-    ^ (type == #keyPress:x:y:)
+isKeyReleaseEvent
+    "return true, if this event is a keyboard release event"
+
+    ^ false
+
+    "Modified: / 28.1.1998 / 00:03:31 / cg"
 !
 
 isPointerEnterEvent
@@ -925,10 +937,27 @@
     ^ true
 
     "Created: 4.4.1997 / 13:39:59 / cg"
+!
+
+isKeyPressEvent
+    "return true, if this event is a keyboard press event"
+
+    ^ (type == #keyPress:x:y:)
+
+    "Created: / 28.1.1998 / 00:02:40 / cg"
+    "Modified: / 28.1.1998 / 00:02:52 / cg"
+!
+
+isKeyReleaseEvent
+    "return true, if this event is a keyboard release event"
+
+    ^ (type == #keyRelease:x:y:)
+
+    "Created: / 28.1.1998 / 00:02:48 / cg"
 ! !
 
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.52 1998-01-16 15:07:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.53 1998-01-27 23:03:54 cg Exp $'
 ! !
hg/stx-libview