CheckBox.st
changeset 2868 0050e38370ed
parent 2777 56bb352f6b91
child 3287 0022d5b3949b
--- 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 $'
 ! !