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

  1. set nval {}
  2.  
  3. proc setLabel {idx} {
  4. set val [.fr.lb get $idx]
  5. .fr.lbl configure -text $val -foreground blue
  6. upvar ::nval y
  7. lappend y $val
  8. puts "The list is now '$y'"
  9. }
  10.  
  11. frame .fr
  12. pack .fr -fill both -expand 1
  13. listbox .fr.lb
  14. .fr.lb insert end Scarlett Rachel Natalie Jessica
  15. .fr.lb insert 2 zaz
  16. bind .fr.lb <<ListboxSelect>> { setLabel [%W curselection]}
  17. .fr.lb configure -selectbackground pink
  18. place .fr.lb -x 20 -y 20
  19. label .fr.lbl
  20. place .fr.lbl -x 20 -y 210
  21. puts $nval
  22. wm title . listbox
  23. wm geometry . 300x250+300+300