Artifact
e5a1cd8b90d4b82590a805940bbb01a84b41e2b3:
0000: 3b 3b 20 2d 2a 2d 20 6d 6f 64 65 3a 20 53 63 68 ;; -*- mode: Sch
0010: 65 6d 65 3b 20 74 61 62 2d 77 69 64 74 68 3a 20 eme; tab-width:
0020: 32 3b 20 2d 2a 2d 20 3b 3b 0a 0a 28 72 65 71 75 2; -*- ;;..(requ
0030: 69 72 65 2d 6c 69 62 72 61 72 79 0a 20 20 6c 6f ire-library. lo
0040: 6c 65 76 65 6c 20 64 61 74 61 2d 73 74 72 75 63 level data-struc
0050: 74 75 72 65 73 20 65 78 74 72 61 73 20 73 72 66 tures extras srf
0060: 69 2d 31 20 73 72 66 69 2d 31 33 20 73 72 66 69 i-1 srfi-13 srfi
0070: 2d 34 32 20 69 72 72 65 67 65 78 20 70 6f 73 69 -42 irregex posi
0080: 78 29 0a 0a 28 6d 6f 64 75 6c 65 20 69 75 70 2d x)..(module iup-
0090: 62 61 73 65 0a 09 28 69 68 61 6e 64 6c 65 2d 3e base..(ihandle->
00a0: 70 6f 69 6e 74 65 72 20 70 6f 69 6e 74 65 72 2d pointer pointer-
00b0: 3e 69 68 61 6e 64 6c 65 20 69 68 61 6e 64 6c 65 >ihandle ihandle
00c0: 2d 6c 69 73 74 2d 3e 70 6f 69 6e 74 65 72 2d 76 -list->pointer-v
00d0: 65 63 74 6f 72 20 69 68 61 6e 64 6c 65 3f 0a 09 ector ihandle?..
00e0: 20 69 73 74 61 74 75 73 2d 3e 69 6e 74 65 67 65 istatus->intege
00f0: 72 20 69 6e 74 65 67 65 72 2d 3e 69 73 74 61 74 r integer->istat
0100: 75 73 0a 09 20 69 6e 61 6d 65 2d 3e 73 74 72 69 us.. iname->stri
0110: 6e 67 20 73 74 72 69 6e 67 2d 3e 69 6e 61 6d 65 ng string->iname
0120: 0a 09 20 74 68 72 65 61 64 2d 77 61 74 63 68 64 .. thread-watchd
0130: 6f 67 20 69 75 70 2d 76 65 72 73 69 6f 6e 20 6c og iup-version l
0140: 6f 61 64 2f 6c 65 64 0a 09 20 61 74 74 72 69 62 oad/led.. attrib
0150: 75 74 65 20 61 74 74 72 69 62 75 74 65 2d 73 65 ute attribute-se
0160: 74 21 20 61 74 74 72 69 62 75 74 65 2d 72 65 73 t! attribute-res
0170: 65 74 21 0a 09 20 68 61 6e 64 6c 65 2d 6e 61 6d et!.. handle-nam
0180: 65 20 68 61 6e 64 6c 65 2d 6e 61 6d 65 2d 73 65 e handle-name-se
0190: 74 21 20 68 61 6e 64 6c 65 2d 72 65 66 0a 09 20 t! handle-ref..
01a0: 6d 61 69 6e 2d 6c 6f 6f 70 20 6d 61 69 6e 2d 6c main-loop main-l
01b0: 6f 6f 70 2d 73 74 65 70 20 6d 61 69 6e 2d 6c 6f oop-step main-lo
01c0: 6f 70 2d 6c 65 76 65 6c 20 6d 61 69 6e 2d 6c 6f op-level main-lo
01d0: 6f 70 2d 65 78 69 74 20 6d 61 69 6e 2d 6c 6f 6f op-exit main-loo
01e0: 70 2d 66 6c 75 73 68 0a 09 20 63 61 6c 6c 62 61 p-flush.. callba
01f0: 63 6b 20 63 61 6c 6c 62 61 63 6b 2d 73 65 74 21 ck callback-set!
0200: 0a 09 20 6d 61 6b 65 2d 63 6f 6e 73 74 72 75 63 .. make-construc
0210: 74 6f 72 2d 70 72 6f 63 65 64 75 72 65 20 6f 70 tor-procedure op
0220: 74 69 6f 6e 61 6c 2d 61 72 67 73 0a 09 20 63 72 tional-args.. cr
0230: 65 61 74 65 20 64 65 73 74 72 6f 79 21 20 6d 61 eate destroy! ma
0240: 70 2d 70 65 65 72 21 20 75 6e 6d 61 70 2d 70 65 p-peer! unmap-pe
0250: 65 72 21 0a 09 20 63 6c 61 73 73 2d 6e 61 6d 65 er!.. class-name
0260: 20 63 6c 61 73 73 2d 74 79 70 65 20 73 61 76 65 class-type save
0270: 2d 61 74 74 72 69 62 75 74 65 73 21 0a 09 20 70 -attributes!.. p
0280: 61 72 65 6e 74 20 70 61 72 65 6e 74 2d 64 69 61 arent parent-dia
0290: 6c 6f 67 20 73 69 62 6c 69 6e 67 0a 09 20 63 68 log sibling.. ch
02a0: 69 6c 64 2d 61 64 64 21 20 63 68 69 6c 64 2d 72 ild-add! child-r
02b0: 65 6d 6f 76 65 21 20 63 68 69 6c 64 2d 6d 6f 76 emove! child-mov
02c0: 65 21 0a 09 20 63 68 69 6c 64 2d 72 65 66 20 63 e!.. child-ref c
02d0: 68 69 6c 64 2d 70 6f 73 20 63 68 69 6c 64 2d 63 hild-pos child-c
02e0: 6f 75 6e 74 0a 09 20 3a 63 68 69 6c 64 72 65 6e ount.. :children
02f0: 20 63 68 69 6c 64 72 65 6e 0a 09 20 72 65 66 72 children.. refr
0300: 65 73 68 20 72 65 64 72 61 77 0a 09 20 63 68 69 esh redraw.. chi
0310: 6c 64 2d 78 2f 79 2d 3e 70 6f 73 0a 09 20 73 68 ld-x/y->pos.. sh
0320: 6f 77 20 68 69 64 65 0a 09 20 64 69 61 6c 6f 67 ow hide.. dialog
0330: 0a 09 20 66 69 6c 6c 20 68 62 6f 78 20 76 62 6f .. fill hbox vbo
0340: 78 20 7a 62 6f 78 20 63 62 6f 78 20 73 62 6f 78 x zbox cbox sbox
0350: 0a 09 20 72 61 64 69 6f 20 6e 6f 72 6d 61 6c 69 .. radio normali
0360: 7a 65 72 20 73 70 6c 69 74 0a 09 20 69 6d 61 67 zer split.. imag
0370: 65 2f 70 61 6c 65 74 74 65 20 69 6d 61 67 65 2f e/palette image/
0380: 72 67 62 20 69 6d 61 67 65 2f 72 67 62 61 20 69 rgb image/rgba i
0390: 6d 61 67 65 2f 66 69 6c 65 20 69 6d 61 67 65 2d mage/file image-
03a0: 73 61 76 65 0a 09 20 63 75 72 72 65 6e 74 2d 66 save.. current-f
03b0: 6f 63 75 73 20 66 6f 63 75 73 2d 6e 65 78 74 20 ocus focus-next
03c0: 66 6f 63 75 73 2d 70 72 65 76 69 6f 75 73 0a 09 focus-previous..
03d0: 20 6d 65 6e 75 20 6d 65 6e 75 2d 69 74 65 6d 20 menu menu-item
03e0: 6d 65 6e 75 2d 73 65 70 61 72 61 74 6f 72 0a 09 menu-separator..
03f0: 20 63 6c 69 70 62 6f 61 72 64 20 74 69 6d 65 72 clipboard timer
0400: 20 73 65 6e 64 2d 75 72 6c 29 0a 09 28 69 6d 70 send-url)..(imp
0410: 6f 72 74 0a 09 09 73 63 68 65 6d 65 20 63 68 69 ort...scheme chi
0420: 63 6b 65 6e 20 66 6f 72 65 69 67 6e 0a 09 09 6c cken foreign...l
0430: 6f 6c 65 76 65 6c 20 64 61 74 61 2d 73 74 72 75 olevel data-stru
0440: 63 74 75 72 65 73 20 65 78 74 72 61 73 20 73 72 ctures extras sr
0450: 66 69 2d 31 20 73 72 66 69 2d 31 33 20 73 72 66 fi-1 srfi-13 srf
0460: 69 2d 34 32 20 69 72 72 65 67 65 78 0a 09 09 28 i-42 irregex...(
0470: 6f 6e 6c 79 20 70 6f 73 69 78 20 73 65 74 65 6e only posix seten
0480: 76 29 29 0a 09 28 69 6e 63 6c 75 64 65 20 22 69 v))..(include "i
0490: 75 70 2d 62 61 73 65 2e 73 63 6d 22 29 29 0a 0a up-base.scm"))..
04a0: 28 6d 6f 64 75 6c 65 20 69 75 70 2d 63 6f 6e 74 (module iup-cont
04b0: 72 6f 6c 73 0a 09 28 63 61 6e 76 61 73 0a 09 20 rols..(canvas..
04c0: 66 72 61 6d 65 20 74 61 62 73 0a 09 20 6c 61 62 frame tabs.. lab
04d0: 65 6c 20 62 75 74 74 6f 6e 20 74 6f 67 67 6c 65 el button toggle
04e0: 0a 09 20 73 70 69 6e 20 73 70 69 6e 62 6f 78 20 .. spin spinbox
04f0: 76 61 6c 75 61 74 6f 72 0a 09 20 74 65 78 74 62 valuator.. textb
0500: 6f 78 20 6c 69 73 74 62 6f 78 20 74 72 65 65 62 ox listbox treeb
0510: 6f 78 0a 09 20 70 72 6f 67 72 65 73 73 2d 62 61 ox.. progress-ba
0520: 72 0a 09 20 6d 61 74 72 69 78 20 63 65 6c 6c 73 r.. matrix cells
0530: 0a 09 20 63 6f 6c 6f 72 2d 62 61 72 20 63 6f 6c .. color-bar col
0540: 6f 72 2d 62 72 6f 77 73 65 72 0a 09 20 64 69 61 or-browser.. dia
0550: 6c 29 0a 09 28 69 6d 70 6f 72 74 0a 09 09 73 63 l)..(import...sc
0560: 68 65 6d 65 20 63 68 69 63 6b 65 6e 20 66 6f 72 heme chicken for
0570: 65 69 67 6e 0a 09 09 69 75 70 2d 62 61 73 65 29 eign...iup-base)
0580: 0a 09 28 69 6e 63 6c 75 64 65 20 22 69 75 70 2d ..(include "iup-
0590: 63 6f 6e 74 72 6f 6c 73 2e 73 63 6d 22 29 29 0a controls.scm")).
05a0: 0a 28 6d 6f 64 75 6c 65 20 69 75 70 2d 64 69 61 .(module iup-dia
05b0: 6c 6f 67 73 0a 09 28 66 69 6c 65 2d 64 69 61 6c logs..(file-dial
05c0: 6f 67 20 6d 65 73 73 61 67 65 2d 64 69 61 6c 6f og message-dialo
05d0: 67 20 63 6f 6c 6f 72 2d 64 69 61 6c 6f 67 20 66 g color-dialog f
05e0: 6f 6e 74 2d 64 69 61 6c 6f 67 0a 20 20 20 6c 61 ont-dialog. la
05f0: 79 6f 75 74 2d 64 69 61 6c 6f 67 20 65 6c 65 6d yout-dialog elem
0600: 65 6e 74 2d 70 72 6f 70 65 72 74 69 65 73 2d 64 ent-properties-d
0610: 69 61 6c 6f 67 29 0a 09 28 69 6d 70 6f 72 74 0a ialog)..(import.
0620: 09 09 73 63 68 65 6d 65 20 63 68 69 63 6b 65 6e ..scheme chicken
0630: 20 66 6f 72 65 69 67 6e 0a 09 09 69 75 70 2d 62 foreign...iup-b
0640: 61 73 65 29 0a 09 28 69 6e 63 6c 75 64 65 20 22 ase)..(include "
0650: 69 75 70 2d 64 69 61 6c 6f 67 73 2e 73 63 6d 22 iup-dialogs.scm"
0660: 29 29 0a 0a 28 63 6f 6e 64 2d 65 78 70 61 6e 64 ))..(cond-expand
0670: 0a 20 5b 64 69 73 61 62 6c 65 2d 69 75 70 2d 67 . [disable-iup-g
0680: 6c 63 61 6e 76 61 73 5d 0a 20 5b 65 6c 73 65 0a lcanvas]. [else.
0690: 09 28 6d 6f 64 75 6c 65 20 69 75 70 2d 67 6c 63 .(module iup-glc
06a0: 61 6e 76 61 73 0a 09 09 28 67 6c 63 61 6e 76 61 anvas...(glcanva
06b0: 73 0a 09 09 20 63 61 6c 6c 2d 77 69 74 68 2d 67 s... call-with-g
06c0: 6c 63 61 6e 76 61 73 20 67 6c 63 61 6e 76 61 73 lcanvas glcanvas
06d0: 2d 69 73 2d 63 75 72 72 65 6e 74 3f 0a 09 09 20 -is-current?...
06e0: 67 6c 63 61 6e 76 61 73 2d 70 61 6c 65 74 74 65 glcanvas-palette
06f0: 2d 73 65 74 21 20 67 6c 63 61 6e 76 61 73 2d 66 -set! glcanvas-f
0700: 6f 6e 74 2d 73 65 74 21 29 0a 09 09 28 69 6d 70 ont-set!)...(imp
0710: 6f 72 74 0a 09 09 20 20 73 63 68 65 6d 65 20 63 ort... scheme c
0720: 68 69 63 6b 65 6e 20 66 6f 72 65 69 67 6e 0a 09 hicken foreign..
0730: 09 09 69 75 70 2d 62 61 73 65 29 0a 09 09 28 69 ..iup-base)...(i
0740: 6e 63 6c 75 64 65 20 22 69 75 70 2d 67 6c 63 61 nclude "iup-glca
0750: 6e 76 61 73 2e 73 63 6d 22 29 29 5d 29 0a 0a 28 nvas.scm"))])..(
0760: 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 20 5b 64 69 cond-expand. [di
0770: 73 61 62 6c 65 2d 69 75 70 2d 70 70 6c 6f 74 5d sable-iup-pplot]
0780: 0a 20 5b 65 6c 73 65 0a 09 28 6d 6f 64 75 6c 65 . [else..(module
0790: 20 69 75 70 2d 70 70 6c 6f 74 0a 09 09 28 70 70 iup-pplot...(pp
07a0: 6c 6f 74 0a 09 09 20 63 61 6c 6c 2d 77 69 74 68 lot... call-with
07b0: 2d 70 70 6c 6f 74 20 70 70 6c 6f 74 2d 61 64 64 -pplot pplot-add
07c0: 21 0a 09 09 20 70 70 6c 6f 74 2d 78 2f 79 2d 3e !... pplot-x/y->
07d0: 70 69 78 65 6c 2d 78 2f 79 0a 09 09 20 70 70 6c pixel-x/y... ppl
07e0: 6f 74 2d 70 61 69 6e 74 2d 74 6f 29 0a 09 09 28 ot-paint-to)...(
07f0: 69 6d 70 6f 72 74 0a 09 09 20 20 73 63 68 65 6d import... schem
0800: 65 20 63 68 69 63 6b 65 6e 20 66 6f 72 65 69 67 e chicken foreig
0810: 6e 0a 09 09 09 69 75 70 2d 62 61 73 65 29 0a 09 n....iup-base)..
0820: 09 28 69 6e 63 6c 75 64 65 20 22 69 75 70 2d 70 .(include "iup-p
0830: 70 6c 6f 74 2e 73 63 6d 22 29 29 5d 29 0a 0a 28 plot.scm"))])..(
0840: 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 20 5b 64 69 cond-expand. [di
0850: 73 61 62 6c 65 2d 69 75 70 2d 77 65 62 5d 0a 20 sable-iup-web].
0860: 5b 65 6c 73 65 0a 09 28 6d 6f 64 75 6c 65 20 69 [else..(module i
0870: 75 70 2d 77 65 62 0a 09 09 28 77 65 62 2d 62 72 up-web...(web-br
0880: 6f 77 73 65 72 29 0a 09 09 28 69 6d 70 6f 72 74 owser)...(import
0890: 0a 09 09 20 20 73 63 68 65 6d 65 20 63 68 69 63 ... scheme chic
08a0: 6b 65 6e 20 66 6f 72 65 69 67 6e 0a 09 09 09 69 ken foreign....i
08b0: 75 70 2d 62 61 73 65 29 0a 09 09 28 69 6e 63 6c up-base)...(incl
08c0: 75 64 65 20 22 69 75 70 2d 77 65 62 2e 73 63 6d ude "iup-web.scm
08d0: 22 29 29 5d 29 0a 0a 28 6d 6f 64 75 6c 65 20 69 "))])..(module i
08e0: 75 70 0a 09 28 29 0a 09 28 69 6d 70 6f 72 74 20 up..()..(import
08f0: 73 63 68 65 6d 65 20 63 68 69 63 6b 65 6e 29 0a scheme chicken).
0900: 09 28 72 65 65 78 70 6f 72 74 0a 09 09 28 65 78 .(reexport...(ex
0910: 63 65 70 74 20 69 75 70 2d 62 61 73 65 0a 09 09 cept iup-base...
0920: 09 69 68 61 6e 64 6c 65 2d 3e 70 6f 69 6e 74 65 .ihandle->pointe
0930: 72 20 70 6f 69 6e 74 65 72 2d 3e 69 68 61 6e 64 r pointer->ihand
0940: 6c 65 20 69 68 61 6e 64 6c 65 2d 6c 69 73 74 2d le ihandle-list-
0950: 3e 70 6f 69 6e 74 65 72 2d 76 65 63 74 6f 72 0a >pointer-vector.
0960: 09 09 09 69 73 74 61 74 75 73 2d 3e 69 6e 74 65 ...istatus->inte
0970: 67 65 72 20 69 6e 74 65 67 65 72 2d 3e 69 73 74 ger integer->ist
0980: 61 74 75 73 0a 09 09 09 69 6e 61 6d 65 2d 3e 73 atus....iname->s
0990: 74 72 69 6e 67 20 73 74 72 69 6e 67 2d 3e 69 6e tring string->in
09a0: 61 6d 65 0a 09 09 09 6d 61 6b 65 2d 63 6f 6e 73 ame....make-cons
09b0: 74 72 75 63 74 6f 72 2d 70 72 6f 63 65 64 75 72 tructor-procedur
09c0: 65 20 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 73 29 e optional-args)
09d0: 0a 09 09 69 75 70 2d 63 6f 6e 74 72 6f 6c 73 0a ...iup-controls.
09e0: 09 09 69 75 70 2d 64 69 61 6c 6f 67 73 29 29 0a ..iup-dialogs)).