OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
tcltk
/
tk8.6
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
bgerror.tcl
8.05 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
button.tcl
20.16 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
choosedir.tcl
9.43 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
clrpick.tcl
20.93 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
comdlg.tcl
8.04 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
console.tcl
32.02 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
dialog.tcl
5.88 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
entry.tcl
16.55 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
focus.tcl
4.74 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
fontchooser.tcl
15.47 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
iconlist.tcl
15.6 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
icons.tcl
10.63 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
images
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
listbox.tcl
14.25 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
megawidget.tcl
9.34 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
menu.tcl
37.12 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
mkpsenc.tcl
28.66 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
msgbox.tcl
16.08 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
msgs
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
obsolete.tcl
5.46 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
optMenu.tcl
1.55 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
palette.tcl
7.74 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
panedwindow.tcl
5.05 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
safetk.tcl
7.21 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scale.tcl
7.58 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scrlbar.tcl
12.45 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
spinbox.tcl
15.27 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tclIndex
19.79 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tearoff.tcl
5.02 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
text.tcl
32.31 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tk.tcl
22.6 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tkAppInit.c
4.09 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tkfbox.tcl
37.47 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
ttk
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
unsupported.tcl
10.01 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
xmfbox.tcl
25.46 KB
03/24/2018 06:42:17 PM
rw-r--r--
Editing: optMenu.tcl
Close
# 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 }