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