require 'tkmove3.rb'
include TestBed

c = TkCanvas.new.pack
testbed(c)
area = TkdArea.new( c )

f = TkFrame.new.pack
l = TkLabel.new(f, 'width'=>32).pack('side'=>'left')
def area.bind( label )
  @canvas.bind('1', proc{|x, y| create_item(x, y)}, "%x %y")
  @canvas.bind('B1-Motion', proc{|x, y| coord = adjust_item(x, y); label.text( coord.inspect )}, "%x %y")
end
area.bind( l )
TkButton.new(f, 'text'=>'Area', 'command'=>proc{ area.bind( l ) }).pack('side'=>'left')

Tk.mainloop