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

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

[iup] Simplified build logic, combined libraries

File size: 587 bytes
Line 
1;; -*- mode: Scheme; tab-width: 2; -*- ;;
2
3;; {{{ Data types
4
5(foreign-declare
6        "#include <iup.h>\n")
7       
8(include "iup-types.scm")
9
10;; }}}
11
12;; {{{ Standard dialogs
13
14(define file-dialog
15  (make-constructor-procedure
16        (foreign-lambda nonnull-ihandle "IupFileDlg")))
17
18(define message-dialog
19  (make-constructor-procedure
20        (foreign-lambda nonnull-ihandle "IupMessageDlg")))
21
22(define color-dialog
23  (make-constructor-procedure
24        (foreign-lambda nonnull-ihandle "IupColorDlg")))
25
26(define font-dialog
27  (make-constructor-procedure
28        (foreign-lambda nonnull-ihandle "IupFontDlg")))
29
30;; }}}
Note: See TracBrowser for help on using the repository browser.