Differences From Artifact [1de5ab562d]:

To Artifact [79565e1fcb]:


1

2
3
4
5
6
7
8
 (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!"))))))
|
>







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!"))))))