--- a/CheckBox.st Thu Dec 15 22:45:59 2005 +0100
+++ b/CheckBox.st Wed Dec 21 12:34:46 2005 +0100
@@ -692,10 +692,12 @@
!
keyPress:aKey x:x y:y
+ "forward some key-events to my toggle-button"
+
aKey == Character space ifTrue:[
- self hasFocus ifTrue:[
- ^ toggleView toggle
- ]
+ self hasFocus ifTrue:[
+ ^ toggleView toggle
+ ]
].
super keyPress:aKey x:x y:y
@@ -920,5 +922,5 @@
!CheckBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.74 2004-11-24 09:41:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.75 2005-12-21 11:34:46 cg Exp $'
! !
--- a/ComboView.st Thu Dec 15 22:45:59 2005 +0100
+++ b/ComboView.st Wed Dec 21 12:34:46 2005 +0100
@@ -438,10 +438,11 @@
!
keyPress:key x:x y:y
+ "pull the menu on space and return keys"
+
<resource: #keyboard (#Return)>
- (key == Character space
- or:[key == #Return]) ifTrue:[
+ (key == Character space or:[key == #Return]) ifTrue:[
self pullMenu.
^ self.
].
@@ -695,5 +696,5 @@
!ComboView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.77 2005-01-28 11:28:38 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.78 2005-12-21 11:34:41 cg Exp $'
! !