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)))
;; }}}
|