Artifact d5e6d17badbfa5362f174a17c6bc34ed1c014fc3:

• File iup/iup-dialogs.scm — part of check-in [1e08e6c5f5] at 2011-01-30 16:01:36 on branch trunk — Imported initial copy of iup from chicken egg svn (user: matt, size: 697) [annotate] [blame] [check-ins using]

(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")))

;; }}}

)