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: sayings.tcl

# sayings.tcl --
#
# This demonstration script creates a listbox that can be scrolled
# both horizontally and vertically.  It displays a collection of
# well-known sayings.

if {![info exists widgetDemo]} {
    error "This script should be run from the \"widget\" demo."
}

package require Tk

set w .sayings
catch {destroy $w}
toplevel $w
wm title $w "Listbox Demonstration (well-known sayings)"
wm iconname $w "sayings"
positionWindow $w

label $w.msg -font $font -wraplength 4i -justify left -text "The listbox below contains a collection of well-known sayings.  You can scan the list using either of the scrollbars or by dragging in the listbox window with button 2 pressed."
pack $w.msg -side top

## See Code / Dismiss buttons
set btns [addSeeDismiss $w.buttons $w]
pack $btns -side bottom -fill x

frame $w.frame -borderwidth 10
pack $w.frame -side top -expand yes -fill both -padx 1c

scrollbar $w.frame.yscroll -command "$w.frame.list yview"
scrollbar $w.frame.xscroll -orient horizontal \
    -command "$w.frame.list xview"
listbox $w.frame.list -width 20 -height 10 -setgrid 1 \
    -yscroll "$w.frame.yscroll set" -xscroll "$w.frame.xscroll set"

grid $w.frame.list -row 0 -column 0 -rowspan 1 -columnspan 1 -sticky news
grid $w.frame.yscroll -row 0 -column 1 -rowspan 1 -columnspan 1 -sticky news
grid $w.frame.xscroll -row 1 -column 0 -rowspan 1 -columnspan 1 -sticky news
grid rowconfig    $w.frame 0 -weight 1 -minsize 0
grid columnconfig $w.frame 0 -weight 1 -minsize 0

$w.frame.list insert 0 "Don't speculate, measure" "Waste not, want not" "Early to bed and early to rise makes a man healthy, wealthy, and wise" "Ask not what your country can do for you, ask what you can do for your country" "I shall return" "NOT" "A picture is worth a thousand words" "User interfaces are hard to build" "Thou shalt not steal" "A penny for your thoughts" "Fool me once, shame on you;  fool me twice, shame on me" "Every cloud has a silver lining" "Where there's smoke there's fire" "It takes one to know one" "Curiosity killed the cat" "Take this job and shove it" "Up a creek without a paddle" "I'm mad as hell and I'm not going to take it any more" "An apple a day keeps the doctor away" "Don't look a gift horse in the mouth" "Measure twice, cut once"

X7ROOT File Manager

Editing: sayings.tcl

Upload File

Create Folder