--- a/CheckBox.st	Sun May 07 04:00:15 1995 +0200
+++ b/CheckBox.st	Tue May 09 03:58:26 1995 +0200
@@ -11,7 +11,7 @@
 "
 
 
-'From Smalltalk/X, Version:2.10.5 on 26-mar-1995 at 6:58:58 am'!
+'From Smalltalk/X, Version:2.10.5 on 8-may-1995 at 3:48:28 am'!
 
 HorizontalPanelView subclass:#CheckBox
 	 instanceVariableNames:'toggleView labelView'
@@ -24,7 +24,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.2 1995-05-03 00:42:20 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.3 1995-05-09 01:57:57 claus Exp $
 "
 !
 
@@ -160,6 +160,12 @@
 
 !CheckBox methodsFor:'accessing'!
 
+label:aString
+    labelView label:aString.
+    labelView forceResize.
+    mustRearrange := true.
+!
+
 font:aFont
     labelView font:aFont.
     labelView forceResize.
@@ -170,12 +176,6 @@
     ^ labelView font
 !
 
-label:aString
-    labelView label:aString.
-    labelView forceResize.
-    mustRearrange := true.
-!
-
 change:aChangeSelector
     toggleView change:aChangeSelector
 !
@@ -184,6 +184,11 @@
     ^ labelView label
 !
 
+model:aModel
+    labelView model:aModel.
+    toggleView model:aModel
+!
+
 labelView
     "return the labelView; allows manipulation of the
      labels attributes (colors etc.)"
@@ -198,16 +203,15 @@
     ^ toggleView
 !
 
-model:aModel
-    labelView model:aModel.
-    toggleView model:aModel
-!
-
 aspect:aspectSymbol
     labelView aspect:aspectSymbol.
     toggleView aspect:aspectSymbol
 !
 
+turnOn
+    toggleView turnOn
+!
+
 action:aBlock
     toggleView action:aBlock
 !
@@ -216,6 +220,14 @@
     toggleView enable
 !
 
+turnOff
+    toggleView turnOff
+!
+
+sendChangeMessageWith:aValue
+    toggleView sendChangeMessageWith:aValue
+!
+
 disable
     toggleView disable
 ! !
@@ -237,6 +249,9 @@
     labelView forceResize.
     labelView adjust:#left.
     self height:labelView preferedExtent y + ViewSpacing.
+"/    self delegate:(KeyboardForwarder toView:toggleView).
+
+    self controller:(toggleView controller view:toggleView).
 
     "
      |b|

--- a/Make.proto	Sun May 07 04:00:15 1995 +0200
+++ b/Make.proto	Tue May 09 03:58:26 1995 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libwidg2/Make.proto,v 1.17 1995-05-06 14:25:57 claus Exp $
+# $Header: /cvs/stx/stx/libwidg2/Make.proto,v 1.18 1995-05-09 01:58:26 claus Exp $
 #
 # -------------- no need to change anything below ----------
 
@@ -82,7 +82,7 @@
 ENTERBOX=$(I)/EnterBox.H $(DIALOGBOX)
 LABEL=$(I)/Label.H $(VIEW)
 BUTTON=$(I)/Button.H $(LABEL)
-HPANELVIEW=$(I)/HPanelV.H $(VIEW)
+HPANELVIEW=$(I)/HPanelV.H $(I)/PanelView.H $(VIEW)
 
 DigiLed.$(O):           DigiLed.st $(VIEW)
 MenuButt.$(O):          MenuButt.st $(BUTTON)