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

7 lines
85 B
Plaintext

;;; Basic canvas widget
(canvas '.c1)
(pack .c1)
(.c1 'create 'line 10 10 200 200)