14 lines
334 B
Plaintext
14 lines
334 B
Plaintext
;;; 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)
|
|
|