#!/bin/sh
# ----------------------------------------------------------------------
#  DEMO: colormanager in [incr Widgets]
# ----------------------------------------------------------------------
#\
exec itkwish "$0" ${1+"$@"}
package require Iwidgets 3.0
source load.tcl

#
# Demo script for Colormanager class
#

iwidgets::colormanager .a 
.a activate

.a add "VT red"   mudred   red
.a add "VT blue"  mudblue  blue
.a add "VT green" mudgreen green
.a add "VT green" mudyellow yellow

.a add "bg"   bg      "#aa3333"      1
.a add "fg 1" fg1     "#3333aa"     1
.a add "fg 2" fg2     "#33aa33"  1


button .b1 -text "Button 1" -bg [.a color bg] -fg [.a color fg1] -command {.a activate}
.a addCommand bg  {.b1 configure -bg %c}
.a addCommand fg1 {.b1 configure -fg %c}
button .b2 -text "Button 2" -bg [.a color bg] -fg [.a color fg2] -command {.a activate}
.a addCommand bg  {.b2 configure -bg %c}
.a addCommand fg2 {.b2 configure -fg %c}

pack .b1 .b2

