Artifact
5c7c5af47ba8ff8192ff935462840eb8e86caeda:
0000: 28 72 65 71 75 69 72 65 2d 6c 69 62 72 61 72 79 (require-library
0010: 20 69 75 70 2d 62 61 73 65 20 69 75 70 2d 63 6f iup-base iup-co
0020: 6e 74 72 6f 6c 73 20 69 75 70 2d 64 69 61 6c 6f ntrols iup-dialo
0030: 67 73 29 0a 0a 28 6d 6f 64 75 6c 65 20 69 75 70 gs)..(module iup
0040: 0a 09 28 29 0a 09 28 69 6d 70 6f 72 74 20 73 63 ..()..(import sc
0050: 68 65 6d 65 20 63 68 69 63 6b 65 6e 29 0a 09 28 heme chicken)..(
0060: 72 65 65 78 70 6f 72 74 0a 09 09 28 65 78 63 65 reexport...(exce
0070: 70 74 20 69 75 70 2d 62 61 73 65 0a 09 09 09 69 pt iup-base....i
0080: 68 61 6e 64 6c 65 2d 3e 70 6f 69 6e 74 65 72 20 handle->pointer
0090: 70 6f 69 6e 74 65 72 2d 3e 69 68 61 6e 64 6c 65 pointer->ihandle
00a0: 20 69 68 61 6e 64 6c 65 2d 6c 69 73 74 2d 3e 62 ihandle-list->b
00b0: 6c 6f 62 0a 09 09 09 69 73 74 61 74 75 73 2d 3e lob....istatus->
00c0: 69 6e 74 65 67 65 72 20 69 6e 74 65 67 65 72 2d integer integer-
00d0: 3e 69 73 74 61 74 75 73 0a 09 09 09 69 6e 61 6d >istatus....inam
00e0: 65 2d 3e 73 74 72 69 6e 67 20 73 74 72 69 6e 67 e->string string
00f0: 2d 3e 69 6e 61 6d 65 0a 09 09 09 6d 61 6b 65 2d ->iname....make-
0100: 63 6f 6e 73 74 72 75 63 74 6f 72 2d 70 72 6f 63 constructor-proc
0110: 65 64 75 72 65 20 6f 70 74 69 6f 6e 61 6c 2d 61 edure optional-a
0120: 72 67 73 29 0a 09 09 69 75 70 2d 63 6f 6e 74 72 rgs)...iup-contr
0130: 6f 6c 73 0a 09 09 69 75 70 2d 64 69 61 6c 6f 67 ols...iup-dialog
0140: 73 29 29 0a s)).