diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-08-01 16:21:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-08-01 16:21:11 (GMT) |
| commit | 98ea3cb2214b51432f38f6ea50c1c429397281cc (patch) | |
| tree | 38846cbe94cc8aac068898282ced4624f130770e /library/optMenu.tcl | |
| parent | 7e9aececf720b6f0e20157366f8e977ad2378ddd (diff) | |
| download | tk-98ea3cb2214b51432f38f6ea50c1c429397281cc.zip tk-98ea3cb2214b51432f38f6ea50c1c429397281cc.tar.gz tk-98ea3cb2214b51432f38f6ea50c1c429397281cc.tar.bz2 | |
Merged changes from feature branch dgp-privates-into-namespace,
implementing TIP 44. All Tk commands and variables matching
tk[A-Z]* are now in the ::tk namespace.
Diffstat (limited to 'library/optMenu.tcl')
| -rw-r--r-- | library/optMenu.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/optMenu.tcl b/library/optMenu.tcl index 4f83ce7..05b3a45 100644 --- a/library/optMenu.tcl +++ b/library/optMenu.tcl @@ -3,7 +3,7 @@ # This file defines the procedure tk_optionMenu, which creates # an option button and its associated menu. # -# RCS: @(#) $Id: optMenu.tcl,v 1.3 1998/09/14 18:23:24 stanton Exp $ +# RCS: @(#) $Id: optMenu.tcl,v 1.4 2001/08/01 16:21:11 dgp Exp $ # # Copyright (c) 1994 The Regents of the University of California. # Copyright (c) 1994 Sun Microsystems, Inc. @@ -12,7 +12,7 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# tk_optionMenu -- +# ::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 @@ -27,7 +27,7 @@ # firstValue - First of legal values for option (must be >= 1). # args - Any number of additional values. -proc tk_optionMenu {w varName firstValue args} { +proc ::tk_optionMenu {w varName firstValue args} { upvar #0 $varName var if {![info exists var]} { |