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
# dialog1.tcl -- # # This demonstration script creates a dialog box with a local grab. after idle {.dialog1.msg configure -wraplength 4i} set i [tk_dialog .dialog1 "Dialog with local grab" {This is a modal dialog box. It uses Tk's "grab" command to create a "local grab" on the dialog box. The grab prevents any pointer-related events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below. However, you can still interact with other applications.} \ info 0 OK Cancel {Show Code}] switch $i { 0 {puts "You pressed OK"} 1 {puts "You pressed Cancel"} 2 {showCode .dialog1} }