Linux 120.141.167.72.host.secureserver.net 4.18.0-553.150.1.el8_10.x86_64 #1 SMP Fri Jul 31 15:23:31 EDT 2026 x86_64
Apache
: 72.167.141.120 | : 216.73.216.232
808 Domain
7.4.33
bestseocompany
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
tk8.6 /
demos /
[ HOME SHELL ]
Name
Size
Permission
Action
images
[ DIR ]
drwxr-xr-x
README
2.03
KB
-rw-r--r--
anilabel.tcl
6.51
KB
-rw-r--r--
aniwave.tcl
3.41
KB
-rw-r--r--
arrow.tcl
7.8
KB
-rw-r--r--
bind.tcl
2.88
KB
-rw-r--r--
bitmap.tcl
1.38
KB
-rw-r--r--
browse
1.72
KB
-rwxr-xr-x
button.tcl
1.47
KB
-rw-r--r--
check.tcl
2.22
KB
-rw-r--r--
clrpick.tcl
1.4
KB
-rw-r--r--
colors.tcl
4.88
KB
-rw-r--r--
combo.tcl
1.92
KB
-rw-r--r--
cscroll.tcl
3.31
KB
-rw-r--r--
ctext.tcl
5.88
KB
-rw-r--r--
dialog1.tcl
660
B
-rw-r--r--
dialog2.tcl
613
B
-rw-r--r--
en.msg
3.78
KB
-rw-r--r--
entry1.tcl
1.35
KB
-rw-r--r--
entry2.tcl
2.03
KB
-rw-r--r--
entry3.tcl
5.96
KB
-rw-r--r--
filebox.tcl
2.3
KB
-rw-r--r--
floor.tcl
77.25
KB
-rw-r--r--
fontchoose.tcl
1.71
KB
-rw-r--r--
form.tcl
1.02
KB
-rw-r--r--
goldberg.tcl
55.23
KB
-rw-r--r--
hello
512
B
-rwxr-xr-x
hscale.tcl
1.46
KB
-rw-r--r--
icon.tcl
2.01
KB
-rw-r--r--
image1.tcl
1002
B
-rw-r--r--
image2.tcl
3.27
KB
-rw-r--r--
items.tcl
9.9
KB
-rw-r--r--
ixset
7.88
KB
-rwxr-xr-x
knightstour.tcl
8.93
KB
-rw-r--r--
label.tcl
1.35
KB
-rw-r--r--
labelframe.tcl
1.8
KB
-rw-r--r--
license.terms
2.21
KB
-rw-r--r--
mclist.tcl
4.25
KB
-rw-r--r--
menu.tcl
6.62
KB
-rw-r--r--
menubu.tcl
4.37
KB
-rw-r--r--
msgbox.tcl
1.95
KB
-rw-r--r--
nl.msg
6.59
KB
-rw-r--r--
paned1.tcl
1.08
KB
-rw-r--r--
paned2.tcl
2.19
KB
-rw-r--r--
pendulum.tcl
7.42
KB
-rw-r--r--
plot.tcl
2.69
KB
-rw-r--r--
puzzle.tcl
2.54
KB
-rw-r--r--
radio.tcl
2.69
KB
-rw-r--r--
rmt
5.19
KB
-rwxr-xr-x
rolodex
8.11
KB
-rwxr-xr-x
ruler.tcl
5.09
KB
-rw-r--r--
sayings.tcl
2.22
KB
-rw-r--r--
search.tcl
4.3
KB
-rw-r--r--
spin.tcl
1.78
KB
-rw-r--r--
states.tcl
2
KB
-rw-r--r--
style.tcl
6.78
KB
-rw-r--r--
tclIndex
4.25
KB
-rw-r--r--
tcolor
10.99
KB
-rwxr-xr-x
text.tcl
4.17
KB
-rw-r--r--
textpeer.tcl
2.14
KB
-rw-r--r--
timer
1.07
KB
-rwxr-xr-x
toolbar.tcl
3.19
KB
-rw-r--r--
tree.tcl
3.09
KB
-rw-r--r--
ttkbut.tcl
3.33
KB
-rw-r--r--
ttkmenu.tcl
2.33
KB
-rw-r--r--
ttknote.tcl
2.26
KB
-rw-r--r--
ttkpane.tcl
4.07
KB
-rw-r--r--
ttkprogress.tcl
1.5
KB
-rw-r--r--
ttkscale.tcl
1.39
KB
-rw-r--r--
twind.tcl
10.79
KB
-rw-r--r--
unicodeout.tcl
4.3
KB
-rw-r--r--
vscale.tcl
1.44
KB
-rw-r--r--
widget
22.72
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : fontchoose.tcl
# fontchoose.tcl -- # # Show off the stock font selector dialog if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." } package require Tk set w .fontchoose catch {destroy $w} toplevel $w wm title $w "Font Selection Dialog" wm iconname $w "fontchooser" positionWindow $w catch {font create FontchooseDemoFont {*}[font actual TkDefaultFont]} # The font chooser needs to be configured and then shown. proc SelectFont {parent} { tk fontchooser configure -font FontchooseDemoFont \ -command ApplyFont -parent $parent tk fontchooser show } proc ApplyFont {font} { font configure FontchooseDemoFont {*}[font actual $font] } # When the visibility of the fontchooser changes, the following event is fired # to the parent widget. # bind $w <<TkFontchooserVisibility>> { if {[tk fontchooser configure -visible]} { %W.f.font state disabled } else { %W.f.font state !disabled } } set f [ttk::frame $w.f -relief sunken -padding 2] text $f.msg -font FontchooseDemoFont -width 40 -height 6 -borderwidth 0 \ -yscrollcommand [list $f.vs set] ttk::scrollbar $f.vs -command [list $f.msg yview] $f.msg insert end "Press the buttons below to choose a new font for the\ text shown in this window.\n" {} ttk::button $f.font -text "Set font ..." -command [list SelectFont $w] grid $f.msg $f.vs -sticky news grid $f.font - -sticky e grid columnconfigure $f 0 -weight 1 grid rowconfigure $f 0 -weight 1 bind $w <Visibility> { bind %W <Visibility> {} grid propagate %W.f 0 } ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w] grid $f -sticky news grid $btns -sticky ew grid columnconfigure $w 0 -weight 1 grid rowconfigure $w 0 -weight 1
Close