File Manager

X7ROOT File Manager

Current Path: /usr/share/tk8.5/demos

📁 ..
📄 README(2.03 KB)
📄 anilabel.tcl(6.51 KB)
📄 aniwave.tcl(3.41 KB)
📄 arrow.tcl(7.8 KB)
📄 bind.tcl(2.87 KB)
📄 bitmap.tcl(1.38 KB)
📄 browse(1.72 KB)
📄 button.tcl(1.47 KB)
📄 check.tcl(2.22 KB)
📄 clrpick.tcl(1.4 KB)
📄 colors.tcl(4.88 KB)
📄 combo.tcl(1.94 KB)
📄 cscroll.tcl(3.31 KB)
📄 ctext.tcl(4.76 KB)
📄 dialog1.tcl(660 B)
📄 dialog2.tcl(613 B)
📄 en.msg(3.8 KB)
📄 entry1.tcl(1.35 KB)
📄 entry2.tcl(2.06 KB)
📄 entry3.tcl(5.95 KB)
📄 filebox.tcl(2.2 KB)
📄 floor.tcl(77.24 KB)
📄 form.tcl(1.02 KB)
📄 goldberg.tcl(55.23 KB)
📄 hello(512 B)
📄 hscale.tcl(1.46 KB)
📄 icon.tcl(2.01 KB)
📄 image1.tcl(1002 B)
📄 image2.tcl(3.28 KB)
📁 images
📄 items.tcl(9.5 KB)
📄 ixset(7.91 KB)
📄 knightstour.tcl(8.38 KB)
📄 label.tcl(1.29 KB)
📄 labelframe.tcl(1.8 KB)
📄 license.terms(2.16 KB)
📄 mclist.tcl(3.89 KB)
📄 menu.tcl(6.57 KB)
📄 menubu.tcl(4.37 KB)
📄 msgbox.tcl(1.98 KB)
📄 nl.msg(6.61 KB)
📄 paned1.tcl(1.08 KB)
📄 paned2.tcl(2.18 KB)
📄 pendulum.tcl(7.46 KB)
📄 plot.tcl(2.69 KB)
📄 puzzle.tcl(2.54 KB)
📄 radio.tcl(2.69 KB)
📄 rmt(5.22 KB)
📄 rolodex(8.11 KB)
📄 ruler.tcl(5.09 KB)
📄 sayings.tcl(2.21 KB)
📄 search.tcl(4.29 KB)
📄 spin.tcl(1.78 KB)
📄 states.tcl(1.63 KB)
📄 style.tcl(6.78 KB)
📄 tclIndex(4.25 KB)
📄 tcolor(10.99 KB)
📄 text.tcl(3.34 KB)
📄 textpeer.tcl(2.13 KB)
📄 timer(1.09 KB)
📄 toolbar.tcl(3.19 KB)
📄 tree.tcl(3.29 KB)
📄 ttkbut.tcl(3.34 KB)
📄 ttkmenu.tcl(2.35 KB)
📄 ttknote.tcl(2.41 KB)
📄 ttkpane.tcl(3.95 KB)
📄 ttkprogress.tcl(1.52 KB)
📄 ttkscale.tcl(1.39 KB)
📄 twind.tcl(10.57 KB)
📄 unicodeout.tcl(3.45 KB)
📄 vscale.tcl(1.44 KB)
📄 widget(22.83 KB)

Editing: combo.tcl

# 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

X7ROOT File Manager

Editing: combo.tcl

Upload File

Create Folder