Changeset 25749 in project

Timestamp:

01/02/12 16:54:57 (8 years ago)

Author:

Thomas Chust

Message:

[iup] Imported version 1.2.0

Location:

release/4/iup/trunk

Files:

• iup-dialogs.scm (modified) (1 diff)
• iup.scm (modified) (2 diffs)
• iup.setup (modified) (2 diffs)

release/4/iup/trunk/iup-dialogs.scm

@@ -28 +28 @@
         (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)))
+
 ;; }}}

release/4/iup/trunk/iup.scm

@@ -52 +52 @@
 
 (module iup-dialogs
-        (file-dialog message-dialog color-dialog font-dialog)
+        (file-dialog message-dialog color-dialog font-dialog
+   layout-dialog element-properties-dialog)
         (import
                 scheme chicken foreign
@@ -98 +99 @@
         (reexport
                 (except iup-base
-                        ihandle->pointer pointer->ihandle ihandle-list->blob
+                        ihandle->pointer pointer->ihandle ihandle-list->pointer-vector
                         istatus->integer integer->istatus
                         iname->string string->iname

release/4/iup/trunk/iup.setup

@@ -81 +81 @@
  'iup
  `("iup.so" "iup.o" "iup-types.scm" ,@import-libraries)
- `((version 1.1.0)
+ `((version 1.2.0)
          (static "iup-base.o")
          (static-options ,(string-intersperse native-libraries))))
@@ -92 +92 @@
  'iup-dynamic
  '("iup-dynamic.so" "iup-dynamic.o" "iup-dynamic.import.so")
- '((version 1.1.0)
+ '((version 1.2.0)
    (static "iup-dynamic.o")))