[TR] - Drawing programs let the user draw a selection rectangle for selecting items. Then you can normally delete, move, edit, or do other fancy operations on this selection. This kind of selection is easily implemented with the [canvas]. Here is a solution. Just try and draw some rectangles and see what happens: # starts a selection rectangle # proc CanvasSelectStart {win x y} { global Canvas # create a rectangle at the origin: $win create rectangle $x $y $x $y -width 1 -tags selRect # remember origin: set Canvas(selX) $x set Canvas(selY) $y } # expands an existing selection rectangle # proc CanvasSelectExpand {win x y} { global Canvas # set the opposite corner of the selection rectangle # to the current cursor location: $win coords selRect $Canvas(selX) $Canvas(selY) $x $y } # finishes an existing selection rectangle # and does something with all items inside the selection # proc CanvasSelectEnd {win x y} { global Canvas # adjust selection rectangle to the current position: CanvasSelectExpand $win $x $y # find id of selection rectangle: set id [$win find withtag selRect] # and give it a gray outline: $win itemconfigure selRect -outline gray # now delete the tag for the next selections: $win dtag selRect # get the ids off all overlapping items: # (we could also get all 'enclosed' items or do other things here) set selection [$win find overlapping $Canvas(selX) $Canvas(selY) $x $y] # finally do something with all these items: # (Here, I just give them a red filling, if they are not the # selection rectangle and if they know about -fill at all ...) foreach item $selection { set type [$win type $item] if {$item != $id && $type != "bitmap" && \ $type != "image" && \ $type != "window"} { $win itemconfigure $item -fill red } } } # build a simple canvas ... canvas .c -background white pack .c # ... and bind the procedures to the corresponding mouse actions: # - Pressing the left mouse button start a selection # - Dragging the mouse with mouse button pressed expands the selection # - Releasing the mouse button finishes the selection # bind .c {CanvasSelectStart %W %x %y} bind .c {CanvasSelectExpand %W %x %y} bind .c {CanvasSelectEnd %W %x %y} ---- See also [Canvas rectangle marking] ---- TS See also [Canvas lasso selection] ---- [Category Graphics]