source: project/release/4/iup/trunk/iup.scm @ 25749

Last change on this file since 25749 was 25749, checked in by Thomas Chust, 8 years ago

[iup] Imported version 1.2.0

File size: 2.5 KB
Line 
1;; -*- mode: Scheme; tab-width: 2; -*- ;;
2
3(require-library
4  lolevel data-structures extras srfi-1 srfi-13 srfi-42 irregex posix)
5
6(module iup-base
7        (ihandle->pointer pointer->ihandle ihandle-list->pointer-vector ihandle?
8         istatus->integer integer->istatus
9         iname->string string->iname
10         thread-watchdog iup-version load/led
11         attribute attribute-set! attribute-reset!
12         handle-name handle-name-set! handle-ref
13         main-loop main-loop-step main-loop-level main-loop-exit main-loop-flush
14         callback callback-set!
15         make-constructor-procedure optional-args
16         create destroy! map-peer! unmap-peer!
17         class-name class-type save-attributes!
18         parent parent-dialog sibling
19         child-add! child-remove! child-move!
20         child-ref child-pos child-count
21         :children children
22         refresh redraw
23         child-x/y->pos
24         show hide
25         dialog
26         fill hbox vbox zbox cbox sbox
27         radio normalizer split
28         image/palette image/rgb image/rgba image/file image-save
29         current-focus focus-next focus-previous
30         menu menu-item menu-separator
31         clipboard timer send-url)
32        (import
33                scheme chicken foreign
34                lolevel data-structures extras srfi-1 srfi-13 srfi-42 irregex
35                (only posix setenv))
36        (include "iup-base.scm"))
37
38(module iup-controls
39        (canvas
40         frame tabs
41         label button toggle
42         spin spinbox valuator
43         textbox listbox treebox
44         progress-bar
45         matrix cells
46         color-bar color-browser
47         dial)
48        (import
49                scheme chicken foreign
50                iup-base)
51        (include "iup-controls.scm"))
52
53(module iup-dialogs
54        (file-dialog message-dialog color-dialog font-dialog
55   layout-dialog element-properties-dialog)
56        (import
57                scheme chicken foreign
58                iup-base)
59        (include "iup-dialogs.scm"))
60
61(cond-expand
62 [disable-iup-glcanvas]
63 [else
64        (module iup-glcanvas
65                (glcanvas
66                 call-with-glcanvas glcanvas-is-current?
67                 glcanvas-palette-set! glcanvas-font-set!)
68                (import
69                  scheme chicken foreign
70                        iup-base)
71                (include "iup-glcanvas.scm"))])
72
73(cond-expand
74 [disable-iup-pplot]
75 [else
76        (module iup-pplot
77                (pplot
78                 call-with-pplot pplot-add!
79                 pplot-x/y->pixel-x/y
80                 pplot-paint-to)
81                (import
82                  scheme chicken foreign
83                        iup-base)
84                (include "iup-pplot.scm"))])
85
86(cond-expand
87 [disable-iup-web]
88 [else
89        (module iup-web
90                (web-browser)
91                (import
92                  scheme chicken foreign
93                        iup-base)
94                (include "iup-web.scm"))])
95
96(module iup
97        ()
98        (import scheme chicken)
99        (reexport
100                (except iup-base
101                        ihandle->pointer pointer->ihandle ihandle-list->pointer-vector
102                        istatus->integer integer->istatus
103                        iname->string string->iname
104                        make-constructor-procedure optional-args)
105                iup-controls
106                iup-dialogs))
Note: See TracBrowser for help on using the repository browser.