home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 37_11.tcl < prev    next >
Text File  |  2003-04-16  |  428b  |  24 lines
  1. #
  2. # Example 37-11
  3. # Dragging out a box.
  4. #
  5.  
  6. proc BoxInit {} {
  7.     canvas .c -bg white ; pack .c
  8.     bind .c <Button-1> {BoxBegin %W %x %y}
  9.     bind .c <B1-Motion> {BoxDrag %W %x %y}
  10. }
  11. proc BoxBegin { w x y } {
  12.     global box
  13.     set box($w,anchor) [list $x $y]
  14.     catch {unset box($w,last)}
  15. }
  16. proc BoxDrag { w x y } {
  17.     global box
  18.     catch {$w delete $box($w,last)}
  19.     set box($w,last) [eval {$w create rect} $box($w,anchor) \
  20.         {$x $y -tag box}]
  21. }
  22.  
  23.  
  24.