ButtonController.st
changeset 3224 9dd0891a2ff4
parent 2962 f466b7d4e881
child 3471 24a5f40ff045
equal deleted inserted replaced
3223:8cb04c4decd2 3224:9dd0891a2ff4
   554 
   554 
   555 keyPress:key x:x y:y
   555 keyPress:key x:x y:y
   556     "trigger on Return and space, if I am the focusView of my group
   556     "trigger on Return and space, if I am the focusView of my group
   557      (i.e. if I got an explicit focus)"
   557      (i.e. if I got an explicit focus)"
   558 
   558 
       
   559     <resource: #keyboard (#Return)>
       
   560 
   559     view hasFocus ifTrue:[
   561     view hasFocus ifTrue:[
   560         ((key == Character space)
   562         ((key == Character space)
   561         or:[key == #Return]) ifTrue:[
   563         or:[key == #Return]) ifTrue:[
   562             "just simulate a buttonPress/release here."
   564             "just simulate a buttonPress/release here."
   563             self buttonPress:1 x:0 y:0.
   565             self buttonPress:1 x:0 y:0.
   786 ! !
   788 ! !
   787 
   789 
   788 !ButtonController class methodsFor:'documentation'!
   790 !ButtonController class methodsFor:'documentation'!
   789 
   791 
   790 version
   792 version
   791     ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.68 2004-04-07 08:32:20 werner Exp $'
   793     ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.69 2005-12-21 11:40:28 cg Exp $'
   792 ! !
   794 ! !