source: project/release/4/iup/trunk/iup-dialogs.scm @ 20570

Last change on this file since 20570 was 20570, checked in by Thomas Chust, 11 years ago

Imported the IUP binding egg.

File size: 697 bytes
Line 
1(require-library iup-base)
2
3(module iup-dialogs
4        (file-dialog message-dialog color-dialog font-dialog)
5        (import
6                scheme chicken foreign
7                iup-base)
8
9;; {{{ Data types
10
11(foreign-declare
12        "#include <iup.h>\n")
13       
14(include "iup-types.scm")
15
16;; }}}
17
18;; {{{ Standard dialogs
19
20(define file-dialog
21  (make-constructor-procedure
22        (foreign-lambda nonnull-ihandle "IupFileDlg")))
23
24(define message-dialog
25  (make-constructor-procedure
26        (foreign-lambda nonnull-ihandle "IupMessageDlg")))
27
28(define color-dialog
29  (make-constructor-procedure
30        (foreign-lambda nonnull-ihandle "IupColorDlg")))
31
32(define font-dialog
33  (make-constructor-procedure
34        (foreign-lambda nonnull-ihandle "IupFontDlg")))
35
36;; }}}
37
38)
Note: See TracBrowser for help on using the repository browser.