Artifact
1de5ab562dc8ad280f37bdc7cb60274ad7776cfd:
0000: 20 28 75 73 65 20 69 75 70 20 63 61 6e 76 61 73 (use iup canvas
0010: 2d 64 72 61 77 20 63 61 6e 76 61 73 2d 64 72 61 -draw canvas-dra
0020: 77 2d 69 75 70 29 0a 0a 20 28 64 65 66 69 6e 65 w-iup).. (define
0030: 20 64 6c 67 0a 20 20 20 28 64 69 61 6c 6f 67 20 dlg. (dialog
0040: 23 3a 74 69 74 6c 65 20 22 54 65 73 74 22 20 23 #:title "Test" #
0050: 3a 6d 69 6e 73 69 7a 65 20 22 33 32 30 78 32 34 :minsize "320x24
0060: 30 22 0a 20 20 20 20 20 28 63 61 6e 76 61 73 20 0". (canvas
0070: 23 3a 61 63 74 69 6f 6e 20 28 6d 61 6b 65 2d 63 #:action (make-c
0080: 61 6e 76 61 73 2d 61 63 74 69 6f 6e 0a 20 20 20 anvas-action.
0090: 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6e 76 (lambda (cnv
00a0: 20 78 20 79 29 0a 20 20 20 20 20 20 20 20 20 28 x y). (
00b0: 63 61 6e 76 61 73 2d 63 6c 65 61 72 21 20 63 6e canvas-clear! cn
00c0: 76 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 6e v). (can
00d0: 76 61 73 2d 74 65 78 74 21 20 63 6e 76 20 34 30 vas-text! cnv 40
00e0: 20 34 30 20 22 48 65 6c 6c 6f 20 77 6f 72 6c 64 40 "Hello world
00f0: 21 22 29 29 29 29 29 29 0a 0a 20 28 73 68 6f 77 !")))))).. (show
0100: 20 64 6c 67 29 0a 20 28 6d 61 69 6e 2d 6c 6f 6f dlg). (main-loo
0110: 70 29 0a p).