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

14 lines
334 B
Plaintext
Raw Normal View History

1996-09-27 06:29:02 -04:00
;;; Widgets embedded in a canvas
(pack (canvas '.c1)
:expand #t
:fill "both")
(button '.c1.b1 :text "Embedded button")
(.c1 'create 'rectangle 20 20 80 80 :fill "red")
(.c1 'create 'rectangle 60 60 120 120 :fill "green")
(.c1 'create 'rectangle 40 40 100 100 :fill "blue")
(.c1 'create 'window 100 75 :window .c1.b1)