3 # This demonstration script creates a listbox widget that displays
4 # the names of the 50 states in the United States of America.
6 # RCS: @(#) $Id: states.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
8 if {![info exists widgetDemo
]} {
9 error "This script should be run from the \"widget\" demo."
17 wm title
$w "Listbox Demonstration (50 states)"
18 wm iconname
$w "states"
21 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."
24 ## See Code / Dismiss buttons
25 set btns
[addSeeDismiss
$w.buttons
$w]
26 pack $btns -side bottom
-fill x
28 frame $w.
frame -borderwidth .5c
29 pack $w.
frame -side top
-expand yes
-fill y
31 scrollbar $w.
frame.scroll
-command "$w.frame.list yview"
32 listbox $w.
frame.
list -yscroll "$w.frame.scroll set" -setgrid 1 -height 12
33 pack $w.
frame.scroll
-side right
-fill y
34 pack $w.
frame.
list -side left
-expand 1 -fill both
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