--- a/CheckBox.st	Mon Jul 15 16:40:17 1996 +0200
+++ b/CheckBox.st	Mon Jul 15 16:42:35 1996 +0200
@@ -479,6 +479,12 @@
     "Modified: 25.4.1996 / 16:33:55 / cg"
 !
 
+controller
+    ^ toggleView controller
+
+    "Created: 15.7.1996 / 14:07:35 / cg"
+!
+
 model:aModel
     "set the model; forward to label & toggle"
 
@@ -631,5 +637,5 @@
 !CheckBox  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.29 1996-07-15 10:10:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.30 1996-07-15 14:42:35 cg Exp $'
 ! !