IUP

Check-in [4ac76c4129]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Additional default dialogs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4ac76c412913f22d8c4f6e0703c99cee6a0f0e14
User & Date: murphy 2012-01-02 15:34:52
Context
2012-01-02
15:38
Updated the API documentation check-in: 059261c4cf user: murphy tags: trunk, v1.2.0
15:34
Additional default dialogs check-in: 4ac76c4129 user: murphy tags: trunk
15:16
Fixed misspelled reexport except clause: ihandle-list->blob should be ihandle-list->pointer-vector check-in: 01acbfb56c user: murphy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to chicken/iup-dialogs.scm.

23
24
25
26
27
28
29









30
  (make-constructor-procedure
  	(foreign-lambda nonnull-ihandle "IupColorDlg")))

(define font-dialog
  (make-constructor-procedure
  	(foreign-lambda nonnull-ihandle "IupFontDlg")))










;; }}}







>
>
>
>
>
>
>
>
>

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

;; }}}

Changes to chicken/iup.scm.

47
48
49
50
51
52
53
54

55
56
57
58
59
60
61
	 dial)
	(import
		scheme chicken foreign
		iup-base)
	(include "iup-controls.scm"))

(module iup-dialogs
	(file-dialog message-dialog color-dialog font-dialog)

	(import
		scheme chicken foreign
		iup-base)
	(include "iup-dialogs.scm"))

(cond-expand
 [disable-iup-glcanvas]







|
>







47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
	 dial)
	(import
		scheme chicken foreign
		iup-base)
	(include "iup-controls.scm"))

(module iup-dialogs
	(file-dialog message-dialog color-dialog font-dialog
   layout-dialog element-properties-dialog)
	(import
		scheme chicken foreign
		iup-base)
	(include "iup-dialogs.scm"))

(cond-expand
 [disable-iup-glcanvas]

Changes to chicken/iup.setup.

76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 [disable-iup-web]
 [else
	(compile -s -O2 -d0 "iup-web.import.scm")])

(install-extension
 'iup
 `("iup.so" "iup.o" "iup-types.scm" ,@import-libraries)
 `((version 1.1.0)
	 (static "iup-base.o")
	 (static-options ,(string-intersperse native-libraries))))

(compile -s -O2 -d1 "iup-dynamic.scm" -j iup-dynamic)
(compile -c -O2 -d1 "iup-dynamic.scm" -j iup-dynamic -unit iup-dynamic)
(compile -s -O2 -d0 "iup-dynamic.import.scm")

(install-extension
 'iup-dynamic
 '("iup-dynamic.so" "iup-dynamic.o" "iup-dynamic.import.so")
 '((version 1.1.0)
   (static "iup-dynamic.o")))







|










|

76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 [disable-iup-web]
 [else
	(compile -s -O2 -d0 "iup-web.import.scm")])

(install-extension
 'iup
 `("iup.so" "iup.o" "iup-types.scm" ,@import-libraries)
 `((version 1.2.0)
	 (static "iup-base.o")
	 (static-options ,(string-intersperse native-libraries))))

(compile -s -O2 -d1 "iup-dynamic.scm" -j iup-dynamic)
(compile -c -O2 -d1 "iup-dynamic.scm" -j iup-dynamic -unit iup-dynamic)
(compile -s -O2 -d0 "iup-dynamic.import.scm")

(install-extension
 'iup-dynamic
 '("iup-dynamic.so" "iup-dynamic.o" "iup-dynamic.import.so")
 '((version 1.2.0)
   (static "iup-dynamic.o")))

Changes to racket/dialogs.rkt.

32
33
34
35
36
37
38












39
40


(define font-dialog
  (make-constructor-procedure
   (get-ffi-obj
    "IupFontDlg" libiup
    (_fun -> [handle : _ihandle]))))













(provide
 file-dialog message-dialog color-dialog font-dialog)








>
>
>
>
>
>
>
>
>
>
>
>

|
>
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

(define font-dialog
  (make-constructor-procedure
   (get-ffi-obj
    "IupFontDlg" libiup
    (_fun -> [handle : _ihandle]))))

(define layout-dialog
  (make-constructor-procedure
   (get-ffi-obj
    "IupLayoutDialog" libiup
    (_fun ([dialog #f]) :: [dialog : _ihandle/null] -> [handle : _ihandle]))))

(define element-properties-dialog
  (make-constructor-procedure
   (get-ffi-obj
    "IupElementPropertiesDialog" libiup
    (_fun [element : _ihandle] -> [handle : _ihandle]))))

(provide
 file-dialog message-dialog color-dialog font-dialog
 layout-dialog element-properties-dialog)

Changes to racket/info.rkt.

4
5
6
7
8
9
10
11
12
13

14
15
16
17
18
19
(define blurb
  '("Bindings to the IUP GUI library"))
(define categories
  '(ui))
(define repositories
  '("4.x"))
(define version
  "1.0.1")
(define release-notes
  '((dl

     (dt "1.0.1") (dd "Windows linkage tweaks")
     (dt "1.0.0") (dd "Initial release"))))
(define primary-file
  "main.rkt")
(define homepage
  "http://www.chust.org/fossils/iup")







|


>






4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(define blurb
  '("Bindings to the IUP GUI library"))
(define categories
  '(ui))
(define repositories
  '("4.x"))
(define version
  "1.2.0")
(define release-notes
  '((dl
     (dt "1.2.0") (dd "Additional default dialogs")
     (dt "1.0.1") (dd "Windows linkage tweaks")
     (dt "1.0.0") (dd "Initial release"))))
(define primary-file
  "main.rkt")
(define homepage
  "http://www.chust.org/fossils/iup")