--- a/CheckToggle.st	Wed Jul 07 22:56:09 1999 +0200
+++ b/CheckToggle.st	Thu Jul 08 11:30:35 1999 +0200
@@ -420,12 +420,24 @@
     "Modified: / 6.9.1998 / 21:24:48 / cg"
 ! !
 
+!CheckToggle methodsFor:'accessing-look'!
+
+allViewBackground:something
+    "redefined here"
+
+    self viewBackground:something.
+    self backgroundColor:something.
+
+! !
+
 !CheckToggle methodsFor:'event handling'!
 
 sizeChanged:how
+    |prefExt|
 
-    width := self preferredExtent x.
-    height := self preferredExtent y.
+    prefExt := self preferredExtent.
+    width := prefExt x.
+    height := prefExt y.
 ! !
 
 !CheckToggle methodsFor:'initialization'!
@@ -555,5 +567,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.49 1999-05-25 14:15:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.50 1999-07-08 09:30:35 cg Exp $'
 ! !