Linux server1.hosting4iran.com 4.18.0-553.89.1.el8_10.x86_64 #1 SMP Mon Dec 8 03:53:08 EST 2025 x86_64
LiteSpeed
Server IP : 185.208.174.156 & Your IP : 216.73.216.218
Domains : 282 Domain
User : satitravel
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
tk8.6 /
demos /
Delete
Unzip
Name
Size
Permission
Date
Action
images
[ DIR ]
drwxr-xr-x
2023-12-23 09:39
README
2.03
KB
-rw-r--r--
2019-10-16 17:25
anilabel.tcl
6.51
KB
-rw-r--r--
2019-10-16 17:25
aniwave.tcl
3.41
KB
-rw-r--r--
2019-10-16 17:25
arrow.tcl
7.8
KB
-rw-r--r--
2019-10-16 17:25
bind.tcl
2.88
KB
-rw-r--r--
2019-10-16 17:25
bitmap.tcl
1.38
KB
-rw-r--r--
2019-10-16 17:25
browse
1.72
KB
-rwxr-xr-x
2019-10-16 17:25
button.tcl
1.47
KB
-rw-r--r--
2019-10-16 17:25
check.tcl
2.22
KB
-rw-r--r--
2019-10-16 17:25
clrpick.tcl
1.4
KB
-rw-r--r--
2019-10-16 17:25
colors.tcl
4.88
KB
-rw-r--r--
2019-10-16 17:25
combo.tcl
1.92
KB
-rw-r--r--
2019-10-16 17:25
cscroll.tcl
3.31
KB
-rw-r--r--
2019-10-16 17:25
ctext.tcl
5.88
KB
-rw-r--r--
2019-10-16 17:25
dialog1.tcl
660
B
-rw-r--r--
2019-10-16 17:25
dialog2.tcl
613
B
-rw-r--r--
2019-10-16 17:25
en.msg
3.78
KB
-rw-r--r--
2019-10-16 17:25
entry1.tcl
1.35
KB
-rw-r--r--
2019-10-16 17:25
entry2.tcl
2.03
KB
-rw-r--r--
2019-10-16 17:25
entry3.tcl
5.96
KB
-rw-r--r--
2019-10-16 17:25
filebox.tcl
2.3
KB
-rw-r--r--
2019-10-16 17:25
floor.tcl
77.25
KB
-rw-r--r--
2019-10-16 17:25
fontchoose.tcl
1.71
KB
-rw-r--r--
2019-10-16 17:25
form.tcl
1.02
KB
-rw-r--r--
2019-10-16 17:25
goldberg.tcl
55.23
KB
-rw-r--r--
2019-10-16 17:25
hello
512
B
-rwxr-xr-x
2019-10-16 17:25
hscale.tcl
1.46
KB
-rw-r--r--
2019-10-16 17:25
icon.tcl
2.01
KB
-rw-r--r--
2019-10-16 17:25
image1.tcl
1002
B
-rw-r--r--
2019-10-16 17:25
image2.tcl
3.27
KB
-rw-r--r--
2019-10-16 17:25
items.tcl
9.9
KB
-rw-r--r--
2019-10-16 17:25
ixset
7.88
KB
-rwxr-xr-x
2019-10-16 17:25
knightstour.tcl
8.93
KB
-rw-r--r--
2019-10-16 17:25
label.tcl
1.35
KB
-rw-r--r--
2019-10-16 17:25
labelframe.tcl
1.8
KB
-rw-r--r--
2019-10-16 17:25
license.terms
2.21
KB
-rw-r--r--
2019-10-16 17:25
mclist.tcl
4.25
KB
-rw-r--r--
2019-10-16 17:25
menu.tcl
6.62
KB
-rw-r--r--
2019-10-16 17:25
menubu.tcl
4.37
KB
-rw-r--r--
2019-10-16 17:25
msgbox.tcl
1.95
KB
-rw-r--r--
2019-10-16 17:25
nl.msg
6.59
KB
-rw-r--r--
2019-10-16 17:25
paned1.tcl
1.08
KB
-rw-r--r--
2019-10-16 17:25
paned2.tcl
2.19
KB
-rw-r--r--
2019-10-16 17:25
pendulum.tcl
7.42
KB
-rw-r--r--
2019-10-16 17:25
plot.tcl
2.69
KB
-rw-r--r--
2019-10-16 17:25
puzzle.tcl
2.54
KB
-rw-r--r--
2019-10-16 17:25
radio.tcl
2.69
KB
-rw-r--r--
2019-10-16 17:25
rmt
5.19
KB
-rwxr-xr-x
2019-10-16 17:25
rolodex
8.11
KB
-rwxr-xr-x
2019-10-16 17:25
ruler.tcl
5.09
KB
-rw-r--r--
2019-10-16 17:25
sayings.tcl
2.22
KB
-rw-r--r--
2019-10-16 17:25
search.tcl
4.3
KB
-rw-r--r--
2019-10-16 17:25
spin.tcl
1.78
KB
-rw-r--r--
2019-10-16 17:25
states.tcl
2
KB
-rw-r--r--
2019-10-16 17:25
style.tcl
6.78
KB
-rw-r--r--
2019-10-16 17:25
tclIndex
4.25
KB
-rw-r--r--
2019-10-16 17:25
tcolor
10.99
KB
-rwxr-xr-x
2019-10-16 17:25
text.tcl
4.17
KB
-rw-r--r--
2019-10-16 17:25
textpeer.tcl
2.14
KB
-rw-r--r--
2019-10-16 17:25
timer
1.07
KB
-rwxr-xr-x
2019-10-16 17:25
toolbar.tcl
3.19
KB
-rw-r--r--
2019-10-16 17:25
tree.tcl
3.09
KB
-rw-r--r--
2019-10-16 17:25
ttkbut.tcl
3.33
KB
-rw-r--r--
2019-10-16 17:25
ttkmenu.tcl
2.33
KB
-rw-r--r--
2019-10-16 17:25
ttknote.tcl
2.26
KB
-rw-r--r--
2019-10-16 17:25
ttkpane.tcl
4.07
KB
-rw-r--r--
2019-10-16 17:25
ttkprogress.tcl
1.5
KB
-rw-r--r--
2019-10-16 17:25
ttkscale.tcl
1.39
KB
-rw-r--r--
2019-10-16 17:25
twind.tcl
10.79
KB
-rw-r--r--
2019-10-16 17:25
unicodeout.tcl
4.3
KB
-rw-r--r--
2019-10-16 17:25
vscale.tcl
1.44
KB
-rw-r--r--
2019-10-16 17:25
widget
22.72
KB
-rwxr-xr-x
2019-10-16 17:25
Save
Rename
# 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 ttk::scrollbar $w.frame.yscroll -command "$w.frame.list yview" ttk::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"