;;; Canvas tags

(pack (canvas '.c1)
      :fill "both" :expand #t)

(.c1 'create 'rectangle 20 20 80 80   :fill "red" :tag "cats")
(.c1 'create 'rectangle 60 60 120 120 :fill "green" :tag "cats")
(.c1 'create 'rectangle 40 40 100 100 :fill "blue" :tag "dogs")

(.c1 'move 'cats 100 0)