;;; Animation!
(pack (canvas '.c1) :expand #t :fill "both")
(.c1 'create 'rectangle 10 10 40 40 :fill "red" :tag "item")
(let do-update ()
(.c1 'move 'item 1 1)
(after 50 (lambda ()
(catch (do-update)))))