Posted to tcl by emiliano at Fri May 29 15:31:39 GMT 2020view pretty

package require Tk
set var1 var1
set var2 var2
upvar 0 var1 alias
pack [entry .alias -textvariable alias]
update idle
upvar 0 var2 alias
puts "entry -textvariable: [.alias cget -textvariable]"
puts "variable value: [set [.alias cget -textvariable]]"
puts "entry content: [.alias get]"

# output differs