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
# hscale.tcl -- # # This demonstration script shows an example with a horizontal scale. if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." } package require Tk set w .hscale catch {destroy $w} toplevel $w wm title $w "Horizontal Scale Demonstration" wm iconname $w "hscale" positionWindow $w label $w.msg -font $font -wraplength 3.5i -justify left -text "An arrow and a horizontal scale are displayed below. If you click or drag mouse button 1 in the scale, you can change the length of the arrow." pack $w.msg -side top -padx .5c ## 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 -fill x canvas $w.frame.canvas -width 50 -height 50 -bd 0 -highlightthickness 0 $w.frame.canvas create polygon 0 0 1 1 2 2 -fill DeepSkyBlue3 -tags poly $w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line scale $w.frame.scale -orient horizontal -length 284 -from 0 -to 250 \ -command "setWidth $w.frame.canvas" -tickinterval 50 pack $w.frame.canvas -side top -expand yes -anchor s -fill x -padx 15 pack $w.frame.scale -side bottom -expand yes -anchor n $w.frame.scale set 75 proc setWidth {w width} { incr width 21 set x2 [expr {$width - 30}] if {$x2 < 21} { set x2 21 } $w coords poly 20 15 20 35 $x2 35 $x2 45 $width 25 $x2 5 $x2 15 20 15 $w coords line 20 15 20 35 $x2 35 $x2 45 $width 25 $x2 5 $x2 15 20 15 }