Removed the Requirement to Install Python and NodeJS (Now Bundled with Borealis)
This commit is contained in:
61
Dependencies/Python/tcl/tk8.6/demos/combo.tcl
vendored
Normal file
61
Dependencies/Python/tcl/tk8.6/demos/combo.tcl
vendored
Normal file
@ -0,0 +1,61 @@
|
||||
# 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
|
Reference in New Issue
Block a user