Differences From Artifact [1de5ab562d]:
- File examples/canvas-sample.scm — part of check-in [bc89e96dce] at 2011-01-31 03:17:16 on branch trunk — Added a couple examples (user: matt, size: 275) [annotate] [blame] [check-ins using]
To Artifact [79565e1fcb]:
- File examples/canvas-sample.scm — part of check-in [44f8109293] at 2013-05-11 06:52:51 on branch trunk — Starting some clean up in prep for new build (user: matt, size: 283) [annotate] [blame] [check-ins using]
|
| | > | 1 2 3 4 5 6 7 8 9 | (use iup canvas-draw) (import canvas-draw-iup) (define dlg (dialog #:title "Test" #:minsize "320x240" (canvas #:action (make-canvas-action (lambda (cnv x y) (canvas-clear! cnv) (canvas-text! cnv 40 40 "Hello world!")))))) |
︙ | ︙ |