| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 |
- # 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
- 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
|
