#Variables:
set var1 123
set var2 456
set var3 789
#Widgets:
label .label1 -text ""
listbox .lstb1 -height 3 -width 20 -selectmode browse
.lstb1 insert 0 Var1 Var2 Var3
#Procedure
proc SelectionHappened {listbox label} {
set activeItem [$listbox get active]
$label configure -text $$activeItem
}
#Interface
bind .lstb1 <<ListboxSelect>> {SelectionHappened .lstb1 .label1}
grid .label1 .lstb1 -sticky news
How to get in .label1 value of the selected variable, not the variable name ?
ie: instead of "$ Var1" get "123"; instead of "$ Var2" get "456"; instead of "$ Var3" get "789"