home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 36_3.tcl < prev    next >
Text File  |  2003-04-15  |  665b  |  25 lines
  1. #
  2. # Example 36-3
  3. # Bindings for canvas selection.
  4. #
  5.  
  6. proc CanvasSelect_Demo { c } {
  7.     # Create a canvas with a couple of objects
  8.     canvas $c
  9.     pack $c
  10.     $c create rect 10 10 50 50 -fill red -tag object
  11.     $c create poly 100 100 100 30 140 50 -fill orange \
  12.         -tag object
  13.     # Set up cut and paste bindings
  14.     $c bind object <Button-1> [list CanvasSelect $c %x %y]
  15.     bind $c <Key-Delete> [list CanvasDelete $c]
  16.     bind $c <<Cut>> [list CanvasCut $c]
  17.     bind $c <<Copy>> [list CanvasCopy $c]
  18.     bind $c <<Paste>> [list CanvasPaste $c]
  19.     bind $c <Button-2> [list CanvasPaste $c %x %y]
  20.     # Register the handler for selection requests
  21.     selection handle $c [list CanvasSelectHandle $c]
  22. }
  23.  
  24.  
  25.