Mercurial Mercurial > hg > stx-libwidg / 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.
delegated keyboardMessages get nil as x/y
authorClaus Gittinger <cg@exept.de>
Mon, 04 Mar 1996 23:32:09 +0100
changeset 466 e878bd3b227e
parent 465 b473edeab54e
child 467 ecf956d44135
delegated keyboardMessages get nil as x/y
EFGroup.st file | annotate | diff | comparison | revisions
EnterFieldGroup.st file | annotate | diff | comparison | revisions 
--- a/EFGroup.st	Mon Mar 04 23:29:14 1996 +0100
+++ b/EFGroup.st	Mon Mar 04 23:32:09 1996 +0100
@@ -466,12 +466,14 @@
 
 keyPress:key x:x y:y view:aView
     "key-press in any field - forward the key to the active field
-     (with -1/-1 as coordinate to indicate that the key was pressed
+     (with nil coordinates to indicate that the key was pressed
       outside. However, this info is not used by any view currently)"
 
     currentField notNil ifTrue:[
-	currentField keyPress:key x:-1 y:-1
+        currentField keyPress:key x:nil y:nil
     ]
+
+    "Modified: 4.3.1996 / 22:18:22 / cg"
 !
 
 keyRelease:key x:x y:y view:aView
@@ -517,5 +519,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.19 1996-02-07 14:23:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.20 1996-03-04 22:32:09 cg Exp $'
 ! !
--- a/EnterFieldGroup.st	Mon Mar 04 23:29:14 1996 +0100
+++ b/EnterFieldGroup.st	Mon Mar 04 23:32:09 1996 +0100
@@ -466,12 +466,14 @@
 
 keyPress:key x:x y:y view:aView
     "key-press in any field - forward the key to the active field
-     (with -1/-1 as coordinate to indicate that the key was pressed
+     (with nil coordinates to indicate that the key was pressed
       outside. However, this info is not used by any view currently)"
 
     currentField notNil ifTrue:[
-	currentField keyPress:key x:-1 y:-1
+        currentField keyPress:key x:nil y:nil
     ]
+
+    "Modified: 4.3.1996 / 22:18:22 / cg"
 !
 
 keyRelease:key x:x y:y view:aView
@@ -517,5 +519,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.19 1996-02-07 14:23:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.20 1996-03-04 22:32:09 cg Exp $'
 ! !
hg/stx-libwidg