--- 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 $'
! !