--- a/ChckTggle.st	Sat Sep 06 20:42:34 1997 +0200
+++ b/ChckTggle.st	Mon Sep 08 20:32:30 1997 +0200
@@ -418,14 +418,24 @@
     DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel].
     DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel].
 
-    activeLogo := DefaultCheckForm on:device.
+    activeLogo := DefaultCheckForm onDevice:device.
     passiveLogo := nil.
 
-    DefaultActiveFGColor notNil ifTrue:[self activeForegroundColor:DefaultActiveFGColor].
-    DefaultCheckColor notNil ifTrue:[self activeForegroundColor:DefaultCheckColor].
-    DefaultActiveBGColor notNil ifTrue:[self activeBackgroundColor:DefaultActiveBGColor].
-    DefaultFGColor notNil ifTrue:[self foregroundColor:DefaultFGColor].
-    DefaultBGColor notNil ifTrue:[self backgroundColor:DefaultBGColor].
+    DefaultActiveFGColor notNil ifTrue:[
+	self activeForegroundColor:DefaultActiveFGColor
+    ].
+    DefaultCheckColor notNil ifTrue:[
+	self activeForegroundColor:DefaultCheckColor
+    ].
+    DefaultActiveBGColor notNil ifTrue:[
+	self activeBackgroundColor:DefaultActiveBGColor
+    ].
+    DefaultFGColor notNil ifTrue:[
+	self foregroundColor:DefaultFGColor
+    ].
+    DefaultBGColor notNil ifTrue:[
+	self backgroundColor:DefaultBGColor
+    ].
 
     showLamp := false.
 
@@ -503,5 +513,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.37 1997-07-25 14:20:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.38 1997-09-08 18:32:28 cg Exp $'
 ! !