# This demonstration script creates a listbox widget that displays
# the names of the 50 states in the United States of America.
# RCS: @(#) $Id: states.tcl,v 1.2 1998/09/14 18:23:30 stanton Exp $
if {![info exists widgetDemo
]} {
error "This script should be run from the \"widget\" demo."
wm title
$w "Listbox Demonstration (50 states)"
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."
pack $w.buttons
-side bottom
-fill x
-pady 2m
button $w.buttons.dismiss
-text Dismiss
-command "destroy $w"
button $w.buttons.code
-text "See Code" -command "showCode $w"
pack $w.buttons.dismiss
$w.buttons.code
-side left
-expand 1
frame $w.
frame -borderwidth .5c
pack $w.
frame -side top
-expand yes
-fill y
scrollbar $w.
frame.scroll
-command "$w.frame.list yview"
listbox $w.
frame.
list -yscroll "$w.frame.scroll set" -setgrid 1 -height 12
pack $w.
frame.scroll
-side right
-fill y
pack $w.
frame.
list -side left
-expand 1 -fill both
$w.
frame.
list insert
0 Alabama Alaska Arizona Arkansas California
\
Colorado Connecticut Delaware Florida Georgia Hawaii Idaho Illinois
\
Indiana Iowa Kansas Kentucky Louisiana Maine Maryland
\
Massachusetts Michigan Minnesota Mississippi Missouri
\
Montana Nebraska Nevada
"New Hampshire" "New Jersey" "New Mexico" \
"New York" "North Carolina" "North Dakota" \
Ohio Oklahoma Oregon Pennsylvania
"Rhode Island" \
"South Carolina" "South Dakota" \
Tennessee Texas Utah Vermont Virginia Washington
\
"West Virginia" Wisconsin Wyoming