Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Additional default dialogs |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
4ac76c412913f22d8c4f6e0703c99cee |
User & Date: | murphy 2012-01-02 15:34:52.671 |
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 | dial) (import scheme chicken foreign iup-base) (include "iup-controls.scm")) (module iup-dialogs | | > | 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 | [disable-iup-web] [else (compile -s -O2 -d0 "iup-web.import.scm")]) (install-extension 'iup `("iup.so" "iup.o" "iup-types.scm" ,@import-libraries) | | | | 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 | (define font-dialog (make-constructor-procedure (get-ffi-obj "IupFontDlg" libiup (_fun -> [handle : _ihandle])))) (provide | > > > > > > > > > > > > | > | 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.
1 2 3 4 5 6 7 8 9 10 | #lang setup/infotab (define name "IUP") (define blurb '("Bindings to the IUP GUI library")) (define categories '(ui)) (define repositories '("4.x")) (define version | | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #lang setup/infotab (define name "IUP") (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") |