require 'tkmove3.rb'
include TestBed

c = TkCanvas.new.pack
testbed( c )
x1, y1, x2, y2 = 50, 50, 200, 150
TkcRectangle.new(c, x1, y1, x2, y2)
l = TkMessage.new
TkFrame.new{|f|
  TkButton.new(f, 'text'=>'find_enclosed', 'command'=>proc{
    c.dtag('selected');
    l.text(c.find_enclosed(x1, y1, x2, y2).inspect)
  }).pack('side'=>'left')
}.pack
l.pack

Tk.mainloop