Description: |
Widget::getVariable should not invoke unqualified upvar on the caller's scope, as users defining a procedure named [upvar] in some namespace don't expect it to be used by BWidget.
---
bwidget-1.9.7/widget.tcl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/bwidget-1.9.7/widget.tcl b/bwidget-1.9.7/widget.tcl
index 2aee154..b305ffa 100755
--- a/bwidget-1.9.7/widget.tcl
+++ b/bwidget-1.9.7/widget.tcl
@@ -1559,7 +1559,7 @@ proc Widget::getVariable { path varName {newVarName ""} } {
variable _class
set class $_class($path)
if {![string length $newVarName]} { set newVarName $varName }
- uplevel 1 [list upvar \#0 ${class}::$path:$varName $newVarName]
+ uplevel 1 [list ::upvar \#0 ${class}::$path:$varName $newVarName]
}
# Widget::options --
--
1.9.3
|