1# states.tcl --
2#
3# This demonstration script creates a listbox widget that displays
4# the names of the 50 states in the United States of America.
5#
6# RCS: @(#) $Id$
7
8if {![info exists widgetDemo]} {
9    error "This script should be run from the \"widget\" demo."
10}
11
12package require Tk
13
14set w .states
15catch {destroy $w}
16toplevel $w
17wm title $w "Listbox Demonstration (50 states)"
18wm iconname $w "states"
19positionWindow $w
20
21label $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."
22pack $w.msg -side top
23
24## See Code / Dismiss buttons
25set btns [addSeeDismiss $w.buttons $w]
26pack $btns -side bottom -fill x
27
28frame $w.frame -borderwidth .5c
29pack $w.frame -side top -expand yes -fill y
30
31scrollbar $w.frame.scroll -command "$w.frame.list yview"
32listbox $w.frame.list -yscroll "$w.frame.scroll set" -setgrid 1 -height 12
33pack $w.frame.scroll -side right -fill y
34pack $w.frame.list -side left -expand 1 -fill both
35
36$w.frame.list insert 0 Alabama Alaska Arizona Arkansas California \
37    Colorado Connecticut Delaware Florida Georgia Hawaii Idaho Illinois \
38    Indiana Iowa Kansas Kentucky Louisiana Maine Maryland \
39    Massachusetts Michigan Minnesota Mississippi Missouri \
40    Montana Nebraska Nevada "New Hampshire" "New Jersey" "New Mexico" \
41    "New York" "North Carolina" "North Dakota" \
42    Ohio Oklahoma Oregon Pennsylvania "Rhode Island" \
43    "South Carolina" "South Dakota" \
44    Tennessee Texas Utah Vermont Virginia Washington \
45    "West Virginia" Wisconsin Wyoming
46