Artifact 1de5ab562dc8ad280f37bdc7cb60274ad7776cfd:
- 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]
(use iup canvas-draw 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!")))))) (show dlg) (main-loop)