Artifact 79565e1fcb2a80a3411c5367435161d373486678:
- 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]
(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!")))))) (show dlg) (main-loop)