1
2
3
4
5
6
7
8
9
10
11
12
13
14
| (require-library iup-base)
(module iup-dialogs
(file-dialog message-dialog color-dialog font-dialog)
(import
scheme chicken foreign
iup-base)
| <
|
<
<
<
<
<
|
1
2
3
4
5
6
7
8
|
;; -*- mode: Scheme; tab-width: 2; -*- ;;
;; {{{ Data types
(foreign-declare
"#include <iup.h>\n")
(include "iup-types.scm")
|
29
30
31
32
33
34
35
36
37
38
| (make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupColorDlg")))
(define font-dialog
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupFontDlg")))
;; }}}
)
|
|
>
>
>
>
>
>
|
>
| 23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| (make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupColorDlg")))
(define font-dialog
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupFontDlg")))
(define layout-dialog
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupLayoutDialog" ihandle)
#:apply-args (optional-args [dialog #f])))
(define element-properties-dialog
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupElementPropertiesDialog" nonnull-ihandle)))
;; }}}
|