blob: 9638341678fc920f61541a3888ddfe508654ca20 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
# Tix Demostration Program
#
# This sample program is structured in such a way so that it can be
# executed from the Tix demo program "widget": it must have a
# procedure called "RunSample". It should also have the "if" statment
# at the end of this file so that it can be run as a standalone
# program using tixwish.
# This file demonstrates the use of the tixScrolledListBox widget.
#
proc RunSample {w} {
# We create the frame and the two ScrolledListBox widgets
# at the top of the dialog box
#
frame $w.top -relief raised -bd 1
# The first ScrolledListBox widget always shows both scrollbars
#
tixScrolledListBox $w.top.a -scrollbar both
pack $w.top.a -expand yes -fill both -padx 10 -pady 10 -side left
# The second ScrolledListBox widget shows the scrollbars only when
# needed.
#
# [Hint] See how you can use the -options switch to set the options
# for the subwidgets
#
tixScrolledListBox $w.top.b -scrollbar auto -options {
listbox.font 8x13
}
pack $w.top.b -expand yes -fill both -padx 10 -pady 10 -side left
# Put the elements inside the two listboxes: notice that you need
# to insert inside the "listbox" subwidget of the ScrolledListBox.
# $w.top.a itself does NOT have an "insert" command.
#
$w.top.a subwidget listbox 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
$w.top.a subwidget listbox config -cursor left_ptr
raise [$w.top.a subwidget listbox ]
$w.top.b subwidget listbox insert 0 \
Alabama Alaska Arizona Arkansas California \
Colorado Connecticut Delaware Florida Georgia Hawaii Idaho Illinois \
Indiana Iowa Kansas Kentucky
# Use a ButtonBox to hold the buttons.
#
tixButtonBox $w.box -orientation horizontal
$w.box add ok -text Ok -underline 0 -command "destroy $w" \
-width 6
$w.box add cancel -text Cancel -underline 0 -command "destroy $w" \
-width 6
pack $w.box -side bottom -fill x
pack $w.top -side top -fill both -expand yes
}
# This "if" statement makes it possible to run this script file inside or
# outside of the main demo program "widget".
#
if {![info exists tix_demo_running]} {
wm withdraw .
set w .demo
toplevel $w
RunSample $w
bind $w <Destroy> exit
}
|