stk/Contrib/STk-wtour/lessons/canvas5.stk

12 lines
287 B
Plaintext
Raw Normal View History

1996-09-27 06:29:02 -04:00
;;; 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)