# colors.tcl --
#
# This demonstration script creates a listbox widget that displays
# many of the colors from the X color database. You can click on
# a color to change the application's palette.
#
# SCCS: @(#) colors.tcl 1.3 96/02/16 10:49:41
set w .colors
catch {destroy $w}
toplevel $w
label $w.msg -font $font -wraplength 4i -justify left -text "A listbox containing several color names is displayed below, along with a scrollbar. You can scan the list either using the scrollbar or by dragging in the listbox window with button 2 pressed. If you double-click button 1 on a color, then the application's color palette will be set to match that color"
tk_setPalette [selection get]
}