(require-library iup-base)
(module iup-dialogs
(file-dialog message-dialog color-dialog font-dialog)
(import
scheme chicken foreign
iup-base)
;; {{{ Data types
(foreign-declare
"#include <iup.h>\n")
(include "iup-types.scm")
;; }}}
;; {{{ Standard dialogs
(define file-dialog
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupFileDlg")))
(define message-dialog
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupMessageDlg")))
(define color-dialog
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupColorDlg")))
(define font-dialog
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupFontDlg")))
;; }}}
)