require 'tkmove3.rb'
include TestBed

c = TkCanvas.new.pack
testbed(c)
item = TkcOval.new(c, 0, 100, 30, 130, 'fill'=>'red')
item.addtag('item')
item.addtag( item.id )
TkAfter.new( 50, 1000, proc{ c.move('item', 1, 0) } ).start

Tk.mainloop