require 'tkmove3.rb'
include TestBed
require 'coords2.rb'

c = TkCanvas.new.pack
testbed( c )
cod = Coords.new(c)

TkButton.new(nil, 'text'=>'coords', 'command'=>proc{
  c.bind("1", proc{
    item = c.find_withtag('current').shift
    cod.dialog( item )
  })
}).pack

Tk.mainloop