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
#!/bin/sh # the next line restarts using wish \ exec wish8.6 "$0" ${1+"$@"} # browse -- # This script generates a directory browser, which lists the working # directory and allows you to open files or subdirectories by # double-clicking. package require Tk # Create a scrollbar on the right side of the main window and a listbox # on the left side. scrollbar .scroll -command ".list yview" pack .scroll -side right -fill y listbox .list -yscroll ".scroll set" -relief sunken -width 20 -height 20 \ -setgrid yes pack .list -side left -fill both -expand yes wm minsize . 1 1 # The procedure below is invoked to open a browser on a given file; if the # file is a directory then another instance of this program is invoked; if # the file is a regular file then the Mx editor is invoked to display # the file. set browseScript [file join [pwd] $argv0] proc browse {dir file} { global env browseScript if {[string compare $dir "."] != 0} {set file $dir/$file} switch [file type $file] { directory { exec [info nameofexecutable] $browseScript $file & } file { if {[info exists env(EDITOR)]} { eval exec $env(EDITOR) $file & } else { exec xedit $file & } } default { puts stdout "\"$file\" isn't a directory or regular file" } } } # Fill the listbox with a list of all the files in the directory. if {$argc>0} {set dir [lindex $argv 0]} else {set dir "."} foreach i [lsort [glob * .* *.*]] { if {[file type $i] eq "directory"} { # Safe to do since it is still a directory. append i / } .list insert end $i } # Set up bindings for the browser. bind all <Control-c> {destroy .} bind .list <Double-Button-1> {foreach i [selection get] {browse $dir $i}} # Local Variables: # mode: tcl # End: