Annotate Patch Side-by-side Diff

Differences From Artifact [d5e6d17bad]:

To Artifact [24dc6fe004]:

1
2

3
4
5
6
7
8
9
10
11
12
13
14



1





2
3
4
5
6
7
8

-
-
+
-
-
-
-
-








(require-library iup-base)

;; -*- mode: Scheme; tab-width: 2; -*- ;;
(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")
︙
29
30
31
32
33
34
35
36




37



38



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

;; }}}