Artifact
79565e1fcb2a80a3411c5367435161d373486678:
0000: 28 75 73 65 20 69 75 70 20 63 61 6e 76 61 73 2d (use iup canvas-
0010: 64 72 61 77 29 0a 28 69 6d 70 6f 72 74 20 63 61 draw).(import ca
0020: 6e 76 61 73 2d 64 72 61 77 2d 69 75 70 29 0a 0a nvas-draw-iup)..
0030: 20 28 64 65 66 69 6e 65 20 64 6c 67 0a 20 20 20 (define dlg.
0040: 28 64 69 61 6c 6f 67 20 23 3a 74 69 74 6c 65 20 (dialog #:title
0050: 22 54 65 73 74 22 20 23 3a 6d 69 6e 73 69 7a 65 "Test" #:minsize
0060: 20 22 33 32 30 78 32 34 30 22 0a 20 20 20 20 20 "320x240".
0070: 28 63 61 6e 76 61 73 20 23 3a 61 63 74 69 6f 6e (canvas #:action
0080: 20 28 6d 61 6b 65 2d 63 61 6e 76 61 73 2d 61 63 (make-canvas-ac
0090: 74 69 6f 6e 0a 20 20 20 20 20 20 20 28 6c 61 6d tion. (lam
00a0: 62 64 61 20 28 63 6e 76 20 78 20 79 29 0a 20 20 bda (cnv x y).
00b0: 20 20 20 20 20 20 20 28 63 61 6e 76 61 73 2d 63 (canvas-c
00c0: 6c 65 61 72 21 20 63 6e 76 29 0a 20 20 20 20 20 lear! cnv).
00d0: 20 20 20 20 28 63 61 6e 76 61 73 2d 74 65 78 74 (canvas-text
00e0: 21 20 63 6e 76 20 34 30 20 34 30 20 22 48 65 6c ! cnv 40 40 "Hel
00f0: 6c 6f 20 77 6f 72 6c 64 21 22 29 29 29 29 29 29 lo world!"))))))
0100: 0a 0a 20 28 73 68 6f 77 20 64 6c 67 29 0a 20 28 .. (show dlg). (
0110: 6d 61 69 6e 2d 6c 6f 6f 70 29 0a main-loop).