Posted to tcl by dkf at Thu Feb 05 21:33:45 GMT 2015view pretty

set nval {}

proc setLabel {idx} {
    set val [.fr.lb get $idx]
    .fr.lbl configure -text $val -foreground blue
    upvar ::nval y
    lappend y $val
    puts "The list is now '$y'"
}

frame .fr
pack .fr -fill both -expand 1
listbox .fr.lb
.fr.lb insert end Scarlett Rachel Natalie Jessica
.fr.lb insert 2 zaz
bind .fr.lb <<ListboxSelect>> { setLabel [%W curselection]}
.fr.lb configure -selectbackground pink
place .fr.lb -x 20 -y 20
label .fr.lbl
place .fr.lbl -x 20 -y 210
puts $nval
wm title . listbox
wm geometry . 300x250+300+300