require 'tkmove4.rb'
require 'draw_common.rb'
include TestBed
include DrawCommon

c = TkCanvas.new.pack
move = TkMove.new( c )
testbed( c )
TkButton.new(nil, 'text'=>'center', 'command'=>proc{
  move.unbind
  c.itembind('item', '1', proc{
    item = c.find_withtag('current').shift
    coord_array = get_item_coords( item )
    cx, cy = center( coord_array )
    puts [cx, cy].inspect
    cnt = TkcOval.new(c, cx-3, cy-3, cx+3, cy+3, 'fill'=>'yellow')
    cnt.addtag('item')
    cnt.addtag( cnt.id )
  })
}).pack
Tk.mainloop