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 /
ttk /
[ HOME SHELL ]
Name
Size
Permission
Action
altTheme.tcl
3.52
KB
-rw-rw-r--
aquaTheme.tcl
3.63
KB
-rw-rw-r--
button.tcl
2.86
KB
-rw-rw-r--
clamTheme.tcl
4.55
KB
-rw-rw-r--
classicTheme.tcl
3.66
KB
-rw-rw-r--
combobox.tcl
11.98
KB
-rw-rw-r--
cursors.tcl
4.36
KB
-rw-rw-r--
defaults.tcl
4.31
KB
-rw-rw-r--
entry.tcl
16.96
KB
-rw-rw-r--
fonts.tcl
5.36
KB
-rw-rw-r--
menubutton.tcl
6.03
KB
-rw-rw-r--
notebook.tcl
5.53
KB
-rw-rw-r--
panedwindow.tcl
2.13
KB
-rw-rw-r--
progress.tcl
1.06
KB
-rw-rw-r--
scale.tcl
2.63
KB
-rw-rw-r--
scrollbar.tcl
3.08
KB
-rw-rw-r--
sizegrip.tcl
2.34
KB
-rw-rw-r--
spinbox.tcl
4.7
KB
-rw-rw-r--
treeview.tcl
9.57
KB
-rw-rw-r--
ttk.tcl
4.7
KB
-rw-rw-r--
utils.tcl
8.09
KB
-rw-rw-r--
vistaTheme.tcl
9.26
KB
-rw-rw-r--
winTheme.tcl
2.72
KB
-rw-rw-r--
xpTheme.tcl
1.99
KB
-rw-rw-r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : button.tcl
# # Bindings for Buttons, Checkbuttons, and Radiobuttons. # # Notes: <Button1-Leave>, <Button1-Enter> only control the "pressed" # state; widgets remain "active" if the pointer is dragged out. # This doesn't seem to be conventional, but it's a nice way # to provide extra feedback while the grab is active. # (If the button is released off the widget, the grab deactivates and # we get a <Leave> event then, which turns off the "active" state) # # Normally, <ButtonRelease> and <ButtonN-Enter/Leave> events are # delivered to the widget which received the initial <Button> # event. However, Tk [grab]s (#1223103) and menu interactions # (#1222605) can interfere with this. To guard against spurious # <Button1-Enter> events, the <Button1-Enter> binding only sets # the pressed state if the button is currently active. # namespace eval ttk::button {} bind TButton <Enter> { %W instate !disabled {%W state active} } bind TButton <Leave> { %W state !active } bind TButton <space> { ttk::button::activate %W } bind TButton <<Invoke>> { ttk::button::activate %W } bind TButton <Button-1> \ { %W instate !disabled { ttk::clickToFocus %W; %W state pressed } } bind TButton <ButtonRelease-1> \ { %W instate pressed { %W state !pressed; %W instate !disabled { %W invoke } } } bind TButton <Button1-Leave> \ { %W state !pressed } bind TButton <Button1-Enter> \ { %W instate {active !disabled} { %W state pressed } } # Checkbuttons and Radiobuttons have the same bindings as Buttons: # ttk::copyBindings TButton TCheckbutton ttk::copyBindings TButton TRadiobutton # ...plus a few more: bind TRadiobutton <Up> { ttk::button::RadioTraverse %W -1 } bind TRadiobutton <Down> { ttk::button::RadioTraverse %W +1 } # bind TCheckbutton <plus> { %W select } # bind TCheckbutton <minus> { %W deselect } # activate -- # Simulate a button press: temporarily set the state to 'pressed', # then invoke the button. # proc ttk::button::activate {w} { $w instate disabled { return } set oldState [$w state pressed] update idletasks; after 100 ;# block event loop to avoid reentrancy $w state $oldState $w invoke } # RadioTraverse -- up/down keyboard traversal for radiobutton groups. # Set focus to previous/next radiobutton in a group. # A radiobutton group consists of all the radiobuttons with # the same parent and -variable; this is a pretty good heuristic # that works most of the time. # proc ttk::button::RadioTraverse {w dir} { set group [list] foreach sibling [winfo children [winfo parent $w]] { if { [winfo class $sibling] eq "TRadiobutton" && [$sibling cget -variable] eq [$w cget -variable] && ![$sibling instate disabled] } { lappend group $sibling } } if {![llength $group]} { # Shouldn't happen, but can. return } set pos [expr {([lsearch -exact $group $w] + $dir) % [llength $group]}] tk::TabToWindow [lindex $group $pos] }
Close
