require 'tkmove3.rb'

c = TkCanvas.new.pack
TkcOval.new(c, 30, 90, 60, 120, 'fill'=>'red').addtag('item')
TkAfter.new( 30, 100, proc{ c.move('item', 1, 0) } ).start

Tk.mainloop