14 lines
208 B
Plaintext
14 lines
208 B
Plaintext
|
;;; Drawing in a Canvas
|
||
|
;;; (draw with mousebutton 1)
|
||
|
|
||
|
(pack (canvas '.c1)
|
||
|
:fill "both"
|
||
|
:expand "yes")
|
||
|
|
||
|
(bind .c1 "<B1-Motion>" (lambda (x y)
|
||
|
(.c1 'create 'rectangle x y x y :width 5)))
|
||
|
|
||
|
|
||
|
|
||
|
|