# a set of xmToggleButtons
xtAppInitialize -class Program

xmRowColumn .main managed
xmToggleButton .main.black managed \
        -labelString Black \
        -mnemonic k
xmToggleButton .main.red managed \
        -labelString Red \
        -mnemonic R
xmToggleButton .main.green managed \
        -labelString Green \
        -mnemonic G
xmToggleButton .main.blue managed \
        -labelString Blue \
        -mnemonic B

.main.black setValues -set True
.main setValues -radioBehavior True \
                -radioAlwaysOne True

# callbacks for edit menu
.main.black disarmCallback "change_colour black"
.main.red   disarmCallback "change_colour red"
.main.green disarmCallback "change_colour green"
.main.blue  disarmCallback "change_colour blue"

proc change_colour {colour} {
    puts stdout "colour selected: $colour"
}

. realizeWidget

. mainLoop
