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

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

[iup] Imported version 1.2.0

File size: 893 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(define layout-dialog
31        (make-constructor-procedure
32          (foreign-lambda nonnull-ihandle "IupLayoutDialog" ihandle)
33                #:apply-args (optional-args [dialog #f])))
34
35(define element-properties-dialog
36        (make-constructor-procedure
37          (foreign-lambda nonnull-ihandle "IupElementPropertiesDialog" nonnull-ihandle)))
38
39;; }}}
Note: See TracBrowser for help on using the repository browser.