webshell

Ghost Exploiter Team Official

File / Folder	Size	Action
.	-
demos	--	ren
images	--	ren
msgs	--	ren
ttk	--	ren
bgerror.tcl	8.334KB	edt ren
button.tcl	20.342KB	edt ren
choosedir.tcl	9.472KB	edt ren
clrpick.tcl	20.845KB	edt ren
comdlg.tcl	8.172KB	edt ren
console.tcl	31.565KB	edt ren
dialog.tcl	5.677KB	edt ren
entry.tcl	17.815KB	edt ren
focus.tcl	4.743KB	edt ren
fontchooser.tcl	17.36KB	edt ren
iconlist.tcl	16.349KB	edt ren
icons.tcl	10.629KB	edt ren
listbox.tcl	14.351KB	edt ren
megawidget.tcl	9.341KB	edt ren
menu.tcl	37.921KB	edt ren
mkpsenc.tcl	28.664KB	edt ren
msgbox.tcl	15.976KB	edt ren
obsolete.tcl	5.463KB	edt ren
optMenu.tcl	1.549KB	edt ren
palette.tcl	7.982KB	edt ren
panedwindow.tcl	5.055KB	edt ren
pkgIndex.tcl	0.391KB	edt ren
safetk.tcl	7.197KB	edt ren
scale.tcl	8.189KB	edt ren
scrlbar.tcl	12.434KB	edt ren
spinbox.tcl	15.958KB	edt ren
tclIndex	23.623KB	edt ren
tearoff.tcl	4.363KB	edt ren
text.tcl	33.146KB	edt ren
tk.tcl	23.271KB	edt ren
tkfbox.tcl	37.466KB	edt ren
unsupported.tcl	10.012KB	edt ren
xmfbox.tcl	25.393KB	edt ren

# 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
}