home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 44_3.tcl < prev    next >
Text File  |  2003-04-15  |  412b  |  21 lines

  1. #
  2. # Example 44-3
  3. # Related listboxes are configured to select items together.
  4. #
  5.  
  6. foreach l [list $frame.key $frame.cmd] {
  7.     bind $l <Button-1> \
  8.         [list BindSelect %y $frame.key $frame.cmd]
  9.     bind $l <B1-Motion> \
  10.         [list BindSelect %y $frame.key $frame.cmd]
  11. }
  12. proc BindSelect { y args } {
  13.     foreach w $args {
  14.         $w select clear 0 end
  15.         $w select anchor [$w nearest $y]
  16.         $w select set anchor [$w nearest $y]
  17.     }
  18. }
  19.  
  20.  
  21.