Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
tk8.6
demos
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: vscale.tcl
# vscale.tcl -- # # This demonstration script shows an example with a vertical scale. if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." } package require Tk set w .vscale catch {destroy $w} toplevel $w wm title $w "Vertical Scale Demonstration" wm iconname $w "vscale" positionWindow $w label $w.msg -font $font -wraplength 3.5i -justify left -text "An arrow and a vertical scale are displayed below. If you click or drag mouse button 1 in the scale, you can change the size 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 scale $w.frame.scale -orient vertical -length 284 -from 0 -to 250 \ -command "setHeight $w.frame.canvas" -tickinterval 50 canvas $w.frame.canvas -width 50 -height 50 -bd 0 -highlightthickness 0 $w.frame.canvas create polygon 0 0 1 1 2 2 -fill SeaGreen3 -tags poly $w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line frame $w.frame.right -borderwidth 15 pack $w.frame.scale -side left -anchor ne pack $w.frame.canvas -side left -anchor nw -fill y $w.frame.scale set 75 proc setHeight {w height} { incr height 21 set y2 [expr {$height - 30}] if {$y2 < 21} { set y2 21 } $w coords poly 15 20 35 20 35 $y2 45 $y2 25 $height 5 $y2 15 $y2 15 20 $w coords line 15 20 35 20 35 $y2 45 $y2 25 $height 5 $y2 15 $y2 15 20 }