Artifact
76dc550eaacae4e77248a19da1cfb53e2274df7a:
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 3b 3b 20 7b 7b 2; -*- ;;..;; {{
0030: 7b 20 44 61 74 61 20 74 79 70 65 73 0a 0a 28 66 { Data types..(f
0040: 6f 72 65 69 67 6e 2d 64 65 63 6c 61 72 65 0a 09 oreign-declare..
0050: 22 23 69 6e 63 6c 75 64 65 20 3c 69 75 70 2e 68 "#include <iup.h
0060: 3e 5c 6e 22 0a 09 22 23 69 6e 63 6c 75 64 65 20 >\n".."#include
0070: 3c 69 75 70 77 65 62 2e 68 3e 5c 6e 22 29 0a 09 <iupweb.h>\n")..
0080: 0a 28 69 6e 63 6c 75 64 65 20 22 69 75 70 2d 74 .(include "iup-t
0090: 79 70 65 73 2e 73 63 6d 22 29 0a 0a 3b 3b 20 7d ypes.scm")..;; }
00a0: 7d 7d 0a 0a 3b 3b 20 7b 7b 7b 20 57 65 62 20 62 }}..;; {{{ Web b
00b0: 72 6f 77 73 65 72 20 63 6f 6e 74 72 6f 6c 0a 0a rowser control..
00c0: 28 64 65 66 69 6e 65 20 77 65 62 2d 62 72 6f 77 (define web-brow
00d0: 73 65 72 0a 20 20 28 6d 61 6b 65 2d 63 6f 6e 73 ser. (make-cons
00e0: 74 72 75 63 74 6f 72 2d 70 72 6f 63 65 64 75 72 tructor-procedur
00f0: 65 0a 20 20 09 28 66 6f 72 65 69 67 6e 2d 6c 61 e. .(foreign-la
0100: 6d 62 64 61 20 6e 6f 6e 6e 75 6c 6c 2d 69 68 61 mbda nonnull-iha
0110: 6e 64 6c 65 20 22 49 75 70 57 65 62 42 72 6f 77 ndle "IupWebBrow
0120: 73 65 72 22 29 29 29 0a 0a 3b 3b 20 7d 7d 7d 0a ser")))..;; }}}.
0130: 0a 3b 3b 20 7b 7b 7b 20 4c 69 62 72 61 72 79 20 .;; {{{ Library
0140: 73 65 74 75 70 0a 0a 28 66 6f 72 65 69 67 6e 2d setup..(foreign-
0150: 63 6f 64 65 20 22 49 75 70 57 65 62 42 72 6f 77 code "IupWebBrow
0160: 73 65 72 4f 70 65 6e 28 29 3b 22 29 0a 0a 3b 3b serOpen();")..;;
0170: 20 7d 7d 7d 0a }}}.