@@ -1,12 +1,6 @@
-(require-library iup-base)
-
-(module iup-dialogs
-	(file-dialog message-dialog color-dialog font-dialog)
-	(import
-		scheme chicken foreign
-		iup-base)
+;; -*- mode: Scheme; tab-width: 2; -*- ;;
 
 ;; {{{ Data types
 
 (foreign-declare
 	"#include <iup.h>\n")
@@ -31,8 +25,15 @@
 
 (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)))
 
-)
+;; }}}