--- 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 $'
! !