File examples/canvas-sample.scm artifact 1de5ab562d part of check-in b1dcd0ebc6
(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)