Ничего не понимаю.
В каком ns переменная var?
package require BWidget
namespace eval ns {
namespace eval varns {
variable vars
}
proc createcombo {} {
set varns::vars {var}
foreach varname $varns::vars {
ComboBox .combo -textvariable $varname
}
grid .combo
}
proc createbutton {} {
button .b -text "bump" -command {
#Как здесь получить fully qualified name var ?
grid .b
}
}
ns::createcombo
ns::createbutton