CheckToggle.st
changeset 3516 28d8b624fbb1
parent 3485 ca45967536f6
child 3600 2beb45724cdd
equal deleted inserted replaced
3515:25470e3161e1 3516:28d8b624fbb1
   682 
   682 
   683 drawWith:fg and:bg
   683 drawWith:fg and:bg
   684     |bgColorUsed|
   684     |bgColorUsed|
   685 
   685 
   686     bgColorUsed := bg.
   686     bgColorUsed := bg.
       
   687     logo := self logoToDisplay.
   687 
   688 
   688     controller pressed ifTrue:[
   689     controller pressed ifTrue:[
   689         logo := activeLogo.
       
   690         self isFlat ifTrue:[
   690         self isFlat ifTrue:[
   691             bgColorUsed := bgColor.
   691             bgColorUsed := bgColor.
   692         ] ifFalse:[
   692         ] ifFalse:[
   693             bgColorUsed := activeBgColor
   693             bgColorUsed := activeBgColor
   694         ].
   694         ].
   695     ] ifFalse:[
   695     ] ifFalse:[
   696         logo := passiveLogo.
       
   697         bgColorUsed := bgColor.
   696         bgColorUsed := bgColor.
   698     ].
   697     ].
   699 
   698 
   700     (controller entered 
   699     (controller entered 
   701     and:[enteredBgColor notNil]) ifTrue:[
   700     and:[enteredBgColor notNil]) ifTrue:[
   720             self deviceClippingRectangle:innerClipRect
   719             self deviceClippingRectangle:innerClipRect
   721        ]
   720        ]
   722     ].
   721     ].
   723 
   722 
   724     "Modified: / 25.5.1999 / 16:10:10 / cg"
   723     "Modified: / 25.5.1999 / 16:10:10 / cg"
       
   724 !
       
   725 
       
   726 logoToDisplay
       
   727     controller pressed ifTrue:[
       
   728         ^ activeLogo.
       
   729     ].
       
   730     ^ passiveLogo.
   725 ! !
   731 ! !
   726 
   732 
   727 !CheckToggle class methodsFor:'documentation'!
   733 !CheckToggle class methodsFor:'documentation'!
   728 
   734 
   729 version
   735 version
   730     ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.60 2007-05-30 11:41:59 stefan Exp $'
   736     ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.61 2007-11-28 14:43:34 ca Exp $'
   731 ! !
   737 ! !