equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 Toggle subclass:#CheckToggle |
16 Toggle subclass:#CheckToggle |
15 instanceVariableNames:'isFlat' |
17 instanceVariableNames:'isFlat' |
16 classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor |
18 classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor |
17 DefaultActiveBGColor DefaultFGColor DefaultBGColor |
19 DefaultActiveBGColor DefaultFGColor DefaultBGColor |
623 )> |
625 )> |
624 |
626 |
625 |enabledBgColor graphicsDevice| |
627 |enabledBgColor graphicsDevice| |
626 |
628 |
627 super initStyle. |
629 super initStyle. |
628 graphicsDevice := self graphicsDevice. |
630 graphicsDevice := device. |
629 |
631 |
630 onLevel := offLevel. |
632 onLevel := offLevel. |
631 DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel]. |
633 DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel]. |
632 DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel]. |
634 DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel]. |
633 |
635 |
782 ! |
784 ! |
783 |
785 |
784 logoToDisplay |
786 logoToDisplay |
785 |graphicsDevice| |
787 |graphicsDevice| |
786 |
788 |
787 graphicsDevice := self graphicsDevice. |
789 graphicsDevice := device. |
788 controller enabled ifFalse:[ |
790 controller enabled ifFalse:[ |
789 (controller pressed) ifTrue:[ |
791 (controller pressed) ifTrue:[ |
790 DefaultDisabledActiveImage notNil ifTrue:[ |
792 DefaultDisabledActiveImage notNil ifTrue:[ |
791 activeLogo := enteredLogo := DefaultDisabledActiveImage onDevice:graphicsDevice. |
793 activeLogo := enteredLogo := DefaultDisabledActiveImage onDevice:graphicsDevice. |
792 ^ activeLogo. |
794 ^ activeLogo. |
832 ! ! |
834 ! ! |
833 |
835 |
834 !CheckToggle class methodsFor:'documentation'! |
836 !CheckToggle class methodsFor:'documentation'! |
835 |
837 |
836 version |
838 version |
837 ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.73 2014-11-26 20:15:34 cg Exp $' |
839 ^ '$Header$' |
838 ! |
840 ! |
839 |
841 |
840 version_CVS |
842 version_CVS |
841 ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.73 2014-11-26 20:15:34 cg Exp $' |
843 ^ '$Header$' |
842 ! ! |
844 ! ! |
843 |
845 |