# HG changeset patch
# User ca
# Date 1196261014 -3600
# Node ID 28d8b624fbb1267bbc9c3bcb47c7a6484805e745
# Parent  25470e3161e1b5251af9f88d9ff68011e2750a98
allow redefinition of used log; handle enabled state

diff -r 25470e3161e1 -r 28d8b624fbb1 CheckToggle.st
--- a/CheckToggle.st	Wed Nov 28 13:16:04 2007 +0100
+++ b/CheckToggle.st	Wed Nov 28 15:43:34 2007 +0100
@@ -684,16 +684,15 @@
     |bgColorUsed|
 
     bgColorUsed := bg.
+    logo := self logoToDisplay.
 
     controller pressed ifTrue:[
-        logo := activeLogo.
         self isFlat ifTrue:[
             bgColorUsed := bgColor.
         ] ifFalse:[
             bgColorUsed := activeBgColor
         ].
     ] ifFalse:[
-        logo := passiveLogo.
         bgColorUsed := bgColor.
     ].
 
@@ -722,10 +721,17 @@
     ].
 
     "Modified: / 25.5.1999 / 16:10:10 / cg"
+!
+
+logoToDisplay
+    controller pressed ifTrue:[
+        ^ activeLogo.
+    ].
+    ^ passiveLogo.
 ! !
 
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.60 2007-05-30 11:41:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.61 2007-11-28 14:43:34 ca Exp $'
 ! !