# states.tcl --
#
# This demonstration script creates a listbox widget that displays
# the names of the 50 states in the United States of America.
#
# SCCS: @(#) states.tcl 1.3 96/02/16 10:49:50
catch {destroy $w}
toplevel $w
label $w.msg -font $font -wraplength 4i -justify left -text "A listbox containing the 50 states is displayed below, along with a scrollbar. You can scan the list either using the scrollbar or by scanning. To scan, press button 2 in the widget and drag up or down."
"New York" "North Carolina" "North Dakota" \
"South Carolina" "South Dakota" \