"

 COPYRIGHT (c) 1991 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

Toggle subclass:#CheckToggle

	instanceVariableNames:''

	classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor

		DefaultActiveBGColor DefaultFGColor DefaultBGColor

		DefaultActiveLevel DefaultPassiveLevel DefaultBorderWidth'

	poolDictionaries:''

	category:'Views-Interactors'

!

!CheckToggle class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1991 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    CheckButtons are like Toggles in toggling their state when pressed.

    However, they show an ok-marker if on; nothing if off.

    CheckButtons are mostly used as part of a checkBox (since normally,

    you want to have some label along the check) and often grouped for

    many-in-many or one-in-many setups.

    [StyleSheet values:]

        checkToggleCheckColor   <Color>         color to draw check-image with.

                                                defaults to value of #buttonActiveForegroundColor.

        checkToggleActiveBackgroundColor        background color to draw active checki-image with

        checkToggleForegroundColor              foreground color to use if off

        checkToggleBackgroundColor              background color to use if off

        checkToggleBitmapFile   <String>        name of bitmap file for check-image

        checkToggleStyle        <Symbol>        default checkForm style.

                                                used if above is nil or file not readable

                                                can be #cross or #check; defaults to #check 

        checkToggleAvtiveLevel  <Number>        active level - defaults to value of #buttonPassiveLevel

        checkTogglePassiveLevel <Number>        active level - defaults to value of #buttonPassiveLevel

        checkToggleBorderWidth  <Number>        borderWidth - defaults buttons default

    (if not set in the styleSheet, Toggle values are taken)

    See examples.

    [author:]

        Claus Gittinger

    [see also:]

"

!

examples 

"

    checkToggle alone:

    give it an action:

    give it a model:

    multiple checks on a single model (with different change selectors):

    (using a checkBox here, for the demonstration ...)

    (this is a typical many-in-many setup)

    (this is a typical one-in-many setup)

     Channel operation 

     -----------------

       enabling other toggles via a toggle

"

! !

!CheckToggle class methodsFor:'defaults'!

checkFormOn:aDevice

    "return the form used when checkToggle is turned on.

     Provided as public entry, to allow other views

     to share the same check-image."

    ^ DefaultCheckForm on:aDevice.

!

updateStyleCache

    "extract values from the styleSheet and cache them in class variables"

    <resource: #style (#checkToggleCheckColor

                       #checkToggleBackgroundColor #checkToggleForegroundColor

                       #checkToggleActiveBackgroundColor #checkTogglenActiveForegroundColor

                       #checkToggleActiveLevel #checkTogglePassiveLevel

                       #checkToggleBorderWidth 

                       #checkToggleBitmapFile

                       #checkToggleStyle)>

    |checkFileName bits checkStyle|

    DefaultCheckColor := StyleSheet colorAt:'checkToggleCheckColor'.

    DefaultFGColor := StyleSheet colorAt:'checkToggleForegroundColor'.

    DefaultBGColor := StyleSheet colorAt:'checkToggleBackgroundColor'.

    DefaultActiveFGColor := StyleSheet colorAt:'checkToggleActiveForegroundColor'.

    DefaultActiveBGColor := StyleSheet colorAt:'checkToggleActiveBackgroundColor'.

    DefaultActiveLevel := StyleSheet at:'checkToggleActiveLevel'.

    DefaultPassiveLevel := StyleSheet at:'checkTogglePassiveLevel'.

    DefaultBorderWidth := StyleSheet at:'checkToggleBorderWidth'.

    DefaultCheckForm := nil.

    checkFileName := StyleSheet at:'checkToggleBitmapFile' default:'CheckOn.xbm'.

    checkFileName notNil ifTrue:[

        DefaultCheckForm := Form fromFile:checkFileName 

                               resolution:100

                                       on:Display.

    ].

    DefaultCheckForm isNil ifTrue:[

        checkStyle := StyleSheet at:'checkToggleStyle' default:#check.

        checkStyle == #cross ifTrue:[

            bits := #[2r10000000 2r00000001

                      2r01000000 2r00000010

                      2r00100000 2r00000100

                      2r00010000 2r00001000

                      2r00001000 2r00010000

                      2r00000100 2r00100000

                      2r00000010 2r01000000

                      2r00000001 2r10000000

                      2r00000001 2r10000000

                      2r00000010 2r01000000

                      2r00000100 2r00100000

                      2r00001000 2r00010000

                      2r00010000 2r00001000

                      2r00100000 2r00000100

                      2r01000000 2r00000010

                      2r10000000 2r00000001]

        ] ifFalse:[

            checkStyle == #fatcross ifTrue:[

                bits := #[2r11000000 2r00000011

                          2r11100000 2r00000111

                          2r01110000 2r00001110

                          2r00111000 2r00011100

                          2r00011100 2r00111000

                          2r00001110 2r01110000

                          2r00000111 2r11100000

                          2r00000011 2r11000000

                          2r00000011 2r11000000

                          2r00000111 2r11100000

                          2r00001110 2r01110000

                          2r00011100 2r00111000

                          2r00111000 2r00011100

                          2r01110000 2r00001110

                          2r11100000 2r00000111

                          2r11000000 2r00000011]

            ] ifFalse:[

                bits := #[2r00000000 2r00000000

                          2r00000000 2r00000010

                          2r00000000 2r00000010

                          2r00000000 2r00000100

                          2r00000000 2r00000100

                          2r00000000 2r00001000

                          2r00000000 2r00001000

                          2r00000000 2r00010000

                          2r01000000 2r00110000

                          2r00100000 2r01100000

                          2r00011000 2r01100000

                          2r00001110 2r11000000

                          2r00000111 2r11000000

                          2r00000011 2r10000000

                          2r00000001 2r10000000

                          2r00000000 2r00000000]

            ]

        ].

        DefaultCheckForm := Form width:16 height:16 fromArray:bits on:Display                                           

    ]

    "Modified: 1.3.1996 / 13:45:45 / cg"

! !

!CheckToggle methodsFor:'initialization'!

initStyle

    super initStyle.

    onLevel := offLevel.

    DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel].

    DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel].

    activeLogo := DefaultCheckForm on: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].

    showLamp := false.

    DefaultBorderWidth notNil ifTrue:[self borderWidth:DefaultBorderWidth].

    offLevel ~~ level ifTrue:[self level:offLevel].

!

initialize

    super initialize.

    passiveLogo := nil.

    self form:activeLogo "/ to let me compute some defaultExtent

! !

!CheckToggle methodsFor:'redrawing'!

drawWith:fg and:bg

    controller pressed ifTrue:[

	logo := activeLogo.

    ] ifFalse:[

	logo := passiveLogo.

    ].

    super drawWith:fg and:bg

    "Modified: 22.9.1995 / 15:45:02 / claus"

! !

!CheckToggle class methodsFor:'documentation'!

version

! !