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.
handle return as trigger - iff my view has explicit focus
authorClaus Gittinger <cg@exept.de>
Wed, 26 Feb 1997 00:51:27 +0100
changeset 1062 5fbcf4ce6a51
parent 1061 eef045108fe0
child 1063 b315e2580bc7
handle return as trigger - iff my view has explicit focus
ButtonC.st file | annotate | diff | comparison | revisions
ButtonController.st file | annotate | diff | comparison | revisions 
--- a/ButtonC.st	Wed Feb 26 00:15:33 1997 +0100
+++ b/ButtonC.st	Wed Feb 26 00:51:27 1997 +0100
@@ -469,8 +469,9 @@
     "trigger on Return and space, if I am the focusView of my group
      (i.e. if I got an explicit focus)"
 
-    key == Character space ifTrue:[
-        view hasFocus ifTrue:[
+    view hasFocus ifTrue:[
+        ((key == Character space)
+        or:[key == #Return]) ifTrue:[
             "just simulate a buttonPress/release here."
             self buttonPress:1 x:0 y:0.
             self buttonRelease:1 x:0 y:0.
@@ -479,7 +480,7 @@
     ].
     view keyPress:key x:x y:y
 
-    "Modified: 9.2.1996 / 23:11:58 / cg"
+    "Modified: 26.2.1997 / 00:50:25 / cg"
 !
 
 performAction
@@ -638,5 +639,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.39 1997-01-29 12:26:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.40 1997-02-25 23:51:27 cg Exp $'
 ! !
--- a/ButtonController.st	Wed Feb 26 00:15:33 1997 +0100
+++ b/ButtonController.st	Wed Feb 26 00:51:27 1997 +0100
@@ -469,8 +469,9 @@
     "trigger on Return and space, if I am the focusView of my group
      (i.e. if I got an explicit focus)"
 
-    key == Character space ifTrue:[
-        view hasFocus ifTrue:[
+    view hasFocus ifTrue:[
+        ((key == Character space)
+        or:[key == #Return]) ifTrue:[
             "just simulate a buttonPress/release here."
             self buttonPress:1 x:0 y:0.
             self buttonRelease:1 x:0 y:0.
@@ -479,7 +480,7 @@
     ].
     view keyPress:key x:x y:y
 
-    "Modified: 9.2.1996 / 23:11:58 / cg"
+    "Modified: 26.2.1997 / 00:50:25 / cg"
 !
 
 performAction
@@ -638,5 +639,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.39 1997-01-29 12:26:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.40 1997-02-25 23:51:27 cg Exp $'
 ! !
hg/stx-libwidg