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)