--- a/CheckToggle.st	Wed Jan 22 12:03:01 1997 +0100
+++ b/CheckToggle.st	Wed Jan 22 18:21:36 1997 +0100
@@ -330,6 +330,8 @@
 !CheckToggle methodsFor:'initialization'!
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
     onLevel := offLevel.
@@ -350,6 +352,8 @@
     DefaultBorderWidth notNil ifTrue:[self borderWidth:DefaultBorderWidth].
 
     offLevel ~~ level ifTrue:[self level:offLevel].
+
+    "Modified: 22.1.1997 / 11:57:05 / cg"
 !
 
 initialize
@@ -374,5 +378,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.28 1996-12-19 13:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.29 1997-01-22 17:18:30 cg Exp $'
 ! !