# clrpick.tcl --
#
# This demonstration script prompts the user to select a color.
#
# SCCS: @(#) clrpick.tcl 1.2 96/12/08 19:58:54
catch {destroy $w}
toplevel $w
label $w.msg -font $font -wraplength 4i -justify left -text "Press the buttons below to choose the foreground and background colors for the widgets in this window."
-command \
"setColor $w $w.back background {-background -highlightbackground}"
-command \
"setColor $w $w.back foreground -foreground"
grab $w
}
}
foreach option $options {
catch {
}
}
}
}