blob: 5dad9f0c5e30f1eccd509ca61d6521c4183f06e6 (
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
|
# combo.tcl --
#
# This demonstration script creates several combobox widgets.
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
}
package require Tk
package require Ttk
set w .combo
catch {destroy $w}
toplevel $w
wm title $w "Combobox Demonstration"
wm iconname $w "combo"
positionWindow $w
ttk::label $w.msg -font $font -wraplength 5i -justify left -text "Three different\
combo-boxes are displayed below. You can add characters to the first\
one by pointing, clicking and typing, just as with an entry; pressing\
Return will cause the current value to be added to the list that is\
selectable from the drop-down list, and you can choose other values\
by pressing the Down key, using the arrow keys to pick another one,\
and pressing Return again. The second combo-box is fixed to a\
particular value, and cannot be modified at all. The third one only\
allows you to select values from its drop-down list of Australian\
cities."
pack $w.msg -side top -fill x
## See Code / Dismiss buttons
set btns [addSeeDismiss $w.buttons $w {firstValue secondValue ozCity}]
pack $btns -side bottom -fill x
ttk::frame $w.f
pack $w.f -fill both -expand 1
set w $w.f
set australianCities {
Canberra Sydney Melbourne Perth Adelaide Brisbane
Hobart Darwin "Alice Springs"
}
set secondValue unchangable
set ozCity Sydney
ttk::labelframe $w.c1 -text "Fully Editable"
ttk::combobox $w.c1.c -textvariable firstValue
ttk::labelframe $w.c2 -text Disabled
ttk::combobox $w.c2.c -textvariable secondValue -state disabled
ttk::labelframe $w.c3 -text "Defined List Only"
ttk::combobox $w.c3.c -textvariable ozCity -state readonly \
-values $australianCities
bind $w.c1.c <Return> {
if {[%W get] ni [%W cget -values]} {
%W configure -values [concat [%W cget -values] [list [%W get]]]
}
}
pack $w.c1 $w.c2 $w.c3 -side top -pady 5 -padx 10
pack $w.c1.c -pady 5 -padx 10
pack $w.c2.c -pady 5 -padx 10
pack $w.c3.c -pady 5 -padx 10
|
