Gecko [ 196.203.21.74 ]

Name	Size	Permission
demos	[ DIR ]	drwxrwxrwx
images	[ DIR ]	drwxrwxrwx
msgs	[ DIR ]	drwxrwxrwx
ttk	[ DIR ]	drwxrwxrwx
bgerror.tcl	7.93 KB	-rw-rw-rw-
button.tcl	19.66 KB	-rw-rw-rw-
choosedir.tcl	9.42 KB	-rw-rw-rw-
clrpick.tcl	20.8 KB	-rw-rw-rw-
comdlg.tcl	7.54 KB	-rw-rw-rw-
console.tcl	28.94 KB	-rw-rw-rw-
dialog.tcl	5.87 KB	-rw-rw-rw-
entry.tcl	16.55 KB	-rw-rw-rw-
focus.tcl	4.74 KB	-rw-rw-rw-
license.terms	2.16 KB	-rw-rw-rw-
listbox.tcl	13.72 KB	-rw-rw-rw-
menu.tcl	36.99 KB	-rw-rw-rw-
mkpsenc.tcl	26.56 KB	-rw-rw-rw-
msgbox.tcl	16.64 KB	-rw-rw-rw-
obsolete.tcl	5.46 KB	-rw-rw-rw-
optMenu.tcl	1.55 KB	-rw-rw-rw-
palette.tcl	7.68 KB	-rw-rw-rw-
panedwindow.tcl	5.05 KB	-rw-rw-rw-
pkgIndex.tcl	371 B	-rw-rw-rw-
safetk.tcl	7.09 KB	-rw-rw-rw-
scale.tcl	7.43 KB	-rw-rw-rw-
scrlbar.tcl	11.72 KB	-rw-rw-rw-
spinbox.tcl	14.73 KB	-rw-rw-rw-
tclIndex	21.77 KB	-rw-rw-rw-
tearoff.tcl	5.02 KB	-rw-rw-rw-
text.tcl	31.72 KB	-rw-rw-rw-
tk.tcl	17.66 KB	-rw-rw-rw-
tkfbox.tcl	52.78 KB	-rw-rw-rw-
unsupported.tcl	11.12 KB	-rw-rw-rw-
xmfbox.tcl	25.37 KB	-rw-rw-rw-

Name

Size

Permission

Action

demos

[ DIR ]

drwxrwxrwx

images

[ DIR ]

drwxrwxrwx

msgs

[ DIR ]

drwxrwxrwx

ttk

[ DIR ]

drwxrwxrwx

bgerror.tcl

7.93 KB

-rw-rw-rw-

button.tcl

19.66 KB

-rw-rw-rw-

choosedir.tcl

9.42 KB

-rw-rw-rw-

clrpick.tcl

20.8 KB

-rw-rw-rw-

comdlg.tcl

7.54 KB

-rw-rw-rw-

console.tcl

28.94 KB

-rw-rw-rw-

dialog.tcl

5.87 KB

-rw-rw-rw-

entry.tcl

16.55 KB

-rw-rw-rw-

focus.tcl

4.74 KB

-rw-rw-rw-

license.terms

2.16 KB

-rw-rw-rw-

listbox.tcl

13.72 KB

-rw-rw-rw-

menu.tcl

36.99 KB

-rw-rw-rw-

mkpsenc.tcl

26.56 KB

-rw-rw-rw-

msgbox.tcl

16.64 KB

-rw-rw-rw-

obsolete.tcl

5.46 KB

-rw-rw-rw-

optMenu.tcl

1.55 KB

-rw-rw-rw-

palette.tcl

7.68 KB

-rw-rw-rw-

panedwindow.tcl

5.05 KB

-rw-rw-rw-

pkgIndex.tcl

371 B

-rw-rw-rw-

safetk.tcl

7.09 KB

-rw-rw-rw-

scale.tcl

7.43 KB

-rw-rw-rw-

scrlbar.tcl

11.72 KB

-rw-rw-rw-

spinbox.tcl

14.73 KB

-rw-rw-rw-

tclIndex

21.77 KB

-rw-rw-rw-

tearoff.tcl

5.02 KB

-rw-rw-rw-

text.tcl

31.72 KB

-rw-rw-rw-

tk.tcl

17.66 KB

-rw-rw-rw-

tkfbox.tcl

52.78 KB

-rw-rw-rw-

unsupported.tcl

11.12 KB

-rw-rw-rw-

xmfbox.tcl

25.37 KB

-rw-rw-rw-

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
}

${this.title}

Code Editor : optMenu.tcl