FM / tk8.6

/opt/imh/python3.13/lib/tk8.6

Name	Size	Mode	Actions
demos/	-	0755	rm
images/	-	0755	rm
msgs/	-	0755	rm
ttk/	-	0755	rm
bgerror.tcl	8534	0644	edit dl rm
button.tcl	20830	0644	edit dl rm
choosedir.tcl	9699	0644	edit dl rm
clrpick.tcl	21345	0644	edit dl rm
comdlg.tcl	8368	0644	edit dl rm
console.tcl	32194	0644	edit dl rm
dialog.tcl	5813	0644	edit dl rm
entry.tcl	18243	0644	edit dl rm
focus.tcl	4857	0644	edit dl rm
fontchooser.tcl	17777	0644	edit dl rm
iconlist.tcl	16741	0644	edit dl rm
icons.tcl	10884	0644	edit dl rm
listbox.tcl	14695	0644	edit dl rm
megawidget.tcl	9565	0644	edit dl rm
menu.tcl	38828	0644	edit dl rm
mkpsenc.tcl	29352	0644	edit dl rm
msgbox.tcl	16359	0644	edit dl rm
obsolete.tcl	5594	0644	edit dl rm
optMenu.tcl	1586	0644	edit dl rm
palette.tcl	8174	0644	edit dl rm
panedwindow.tcl	5176	0644	edit dl rm
pkgIndex.tcl	150	0644	edit dl rm
safetk.tcl	7370	0644	edit dl rm
scale.tcl	8386	0644	edit dl rm
scrlbar.tcl	12732	0644	edit dl rm
spinbox.tcl	15949	0644	edit dl rm
tclIndex	20270	0644	edit dl rm
tearoff.tcl	4468	0644	edit dl rm
text.tcl	33941	0644	edit dl rm
tk.tcl	23614	0644	edit dl rm
tkAppInit.c	4615	0644	edit dl rm
tkfbox.tcl	38365	0644	edit dl rm
unsupported.tcl	10252	0644	edit dl rm
xmfbox.tcl	26002	0644	edit dl rm

Edit: /opt/imh/python3.13/lib/tk8.6/optMenu.tcl (1586B)

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

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