--- a/CheckToggle.st Sat Sep 06 20:42:34 1997 +0200
+++ b/CheckToggle.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/CheckToggle.st,v 1.37 1997-07-25 14:20:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.38 1997-09-08 18:32:28 cg Exp $'
! !