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.217.14
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 /
[ 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
8.05
KB
-rw-r--r--
button.tcl
20.16
KB
-rw-r--r--
choosedir.tcl
9.43
KB
-rw-r--r--
clrpick.tcl
20.93
KB
-rw-r--r--
comdlg.tcl
8.04
KB
-rw-r--r--
console.tcl
32.02
KB
-rw-r--r--
dialog.tcl
5.88
KB
-rw-r--r--
entry.tcl
16.55
KB
-rw-r--r--
focus.tcl
4.74
KB
-rw-r--r--
fontchooser.tcl
15.47
KB
-rw-r--r--
iconlist.tcl
15.6
KB
-rw-r--r--
icons.tcl
10.63
KB
-rw-r--r--
listbox.tcl
14.25
KB
-rw-r--r--
megawidget.tcl
9.34
KB
-rw-r--r--
menu.tcl
37.12
KB
-rw-r--r--
mkpsenc.tcl
28.66
KB
-rw-r--r--
msgbox.tcl
16.08
KB
-rw-r--r--
obsolete.tcl
5.46
KB
-rw-r--r--
optMenu.tcl
1.55
KB
-rw-r--r--
palette.tcl
7.74
KB
-rw-r--r--
panedwindow.tcl
5.05
KB
-rw-r--r--
safetk.tcl
7.21
KB
-rw-r--r--
scale.tcl
7.58
KB
-rw-r--r--
scrlbar.tcl
12.45
KB
-rw-r--r--
spinbox.tcl
15.27
KB
-rw-r--r--
tclIndex
19.79
KB
-rw-r--r--
tearoff.tcl
5.02
KB
-rw-r--r--
text.tcl
32.31
KB
-rw-r--r--
tk.tcl
22.6
KB
-rw-r--r--
tkfbox.tcl
37.47
KB
-rw-r--r--
unsupported.tcl
10.01
KB
-rw-r--r--
xmfbox.tcl
25.46
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
