--- a/CheckBox.st	Fri Jul 05 23:10:55 1996 +0200
+++ b/CheckBox.st	Wed Jul 10 12:21:12 1996 +0200
@@ -19,7 +19,7 @@
 	category:'Views-Interactors'
 !
 
-!CheckBox class methodsFor:'documentation'!
+!CheckBox  class methodsFor:'documentation'!
 
 copyright
 "
@@ -246,7 +246,7 @@
 "
 ! !
 
-!CheckBox class methodsFor:'instance creation'!
+!CheckBox  class methodsFor:'instance creation'!
 
 label:aStringOrImage model:aModel
     "create & return a new checkBox, on aModel (typically a ValueHolder),
@@ -263,7 +263,7 @@
     ^ self new model:aModel
 ! !
 
-!CheckBox class methodsFor:'defaults'!
+!CheckBox  class methodsFor:'defaults'!
 
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
@@ -531,6 +531,20 @@
     "Modified: 25.4.1996 / 16:34:30 / cg"
 ! !
 
+!CheckBox methodsFor:'event handling'!
+
+keyPress:aKey x:x y:y
+    aKey == Character space ifTrue:[
+        self hasFocus ifTrue:[
+            ^ toggleView toggle
+        ]
+    ].
+    super keyPress:aKey x:x y:y
+
+    "Created: 10.7.1996 / 11:24:16 / cg"
+    "Modified: 10.7.1996 / 11:54:52 / cg"
+! !
+
 !CheckBox methodsFor:'initialization'!
 
 initStyle
@@ -566,8 +580,9 @@
 
     "
      all of my input goes to the toggle
+     disabled - normally there is already an outer delegate
     "
-    self delegate:(KeyboardForwarder toView:toggleView).
+"/    self delegate:(KeyboardForwarder toView:toggleView).
 
     "
      |b|
@@ -577,7 +592,7 @@
      b open
     "
 
-    "Modified: 24.5.1996 / 15:17:35 / cg"
+    "Modified: 10.7.1996 / 11:23:25 / cg"
 ! !
 
 !CheckBox methodsFor:'private'!
@@ -613,8 +628,8 @@
     "Modified: 29.5.1996 / 12:13:08 / cg"
 ! !
 
-!CheckBox class methodsFor:'documentation'!
+!CheckBox  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.27 1996-05-29 10:18:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.28 1996-07-10 10:21:12 cg Exp $'
 ! !