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: |
4ac76c412913f22d8c4f6e0703c99cee |
| 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
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")
|