Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Link control bindings |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
5c793b4936393db1d7d767f632ba4f08 |
User & Date: | murphy 2015-05-02 14:20:48.516 |
Context
2015-05-02
| ||
14:47 | CHICKEN bindings for IUP GL controls check-in: 43e92362a7 user: murphy tags: trunk | |
14:20 | Link control bindings check-in: 5c793b4936 user: murphy tags: trunk | |
13:38 | Extended matrix functionality bindings check-in: 951ad214a6 user: murphy tags: trunk | |
Changes
Changes to api/controls.wiki.
︙ | ︙ | |||
29 30 31 32 33 34 35 36 37 38 39 40 41 42 | <h3><a id="tabs"><code><nowiki>(tabs [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a tabs element with the given children. <h3><a id="label"><code><nowiki>(label [title (or/c string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a label interface element, which displays a separator, a text or an image. <h3><a id="button"><code><nowiki>(button [title (or/c string? #f) #f] [action (or/c symbol? string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a button element with the given title and action callback name. <h3><a id="toggle"><code><nowiki>(toggle [title (or/c string? #f) #f] [action (or/c symbol? string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> | > > > > | 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | <h3><a id="tabs"><code><nowiki>(tabs [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a tabs element with the given children. <h3><a id="label"><code><nowiki>(label [title (or/c string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a label interface element, which displays a separator, a text or an image. <h3><a id="link"><code><nowiki>(label [url (or/c string? #f) #f] [title (or/c string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a link interface element, which displays some text like a label and links to a URL. <h3><a id="button"><code><nowiki>(button [title (or/c string? #f) #f] [action (or/c symbol? string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a button element with the given title and action callback name. <h3><a id="toggle"><code><nowiki>(toggle [title (or/c string? #f) #f] [action (or/c symbol? string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> |
︙ | ︙ |
Changes to chicken/iup-controls.scm.
︙ | ︙ | |||
35 36 37 38 39 40 41 42 43 44 45 46 47 48 | #:apply-args list)) (define label (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupLabel" c-string) #:apply-args (optional-args [title #f]))) (define button (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupButton" c-string iname/upcase) #:apply-args (optional-args [title #f] [action #f]))) (define toggle (make-constructor-procedure | > > > > > | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | #:apply-args list)) (define label (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupLabel" c-string) #:apply-args (optional-args [title #f]))) (define link (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupLink" c-string c-string) #:apply-args (optional-args [url #f] [title #f]))) (define button (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupButton" c-string iname/upcase) #:apply-args (optional-args [title #f] [action #f]))) (define toggle (make-constructor-procedure |
︙ | ︙ |
Changes to chicken/iup.scm.
︙ | ︙ | |||
34 35 36 37 38 39 40 | lolevel data-structures extras srfi-1 srfi-13 srfi-42 irregex (only posix setenv)) (include "iup-base.scm")) (module iup-controls (canvas frame tabs | | | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | lolevel data-structures extras srfi-1 srfi-13 srfi-42 irregex (only posix setenv)) (include "iup-base.scm")) (module iup-controls (canvas frame tabs label link button toggle spin spinbox valuator textbox listbox treebox progress-bar matrix matrix-listbox cells color-bar color-browser dial) (import |
︙ | ︙ |
Changes to racket/controls.rkt.
︙ | ︙ | |||
47 48 49 50 51 52 53 54 55 56 57 58 59 60 | (define label (make-constructor-procedure (get-ffi-obj "IupLabel" libiup (_fun ([title #f]) :: [title : _string/utf-8] -> [handle : _ihandle])))) (define button (make-constructor-procedure (get-ffi-obj "IupButton" libiup (_fun ([title #f] [action #f]) :: [title : _string/utf-8] [action : _iname/upcase] -> [handle : _ihandle])))) | > > > > > > | 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | (define label (make-constructor-procedure (get-ffi-obj "IupLabel" libiup (_fun ([title #f]) :: [title : _string/utf-8] -> [handle : _ihandle])))) (define link (make-constructor-procedure (get-ffi-obj "IupLink" libiup (_fun ([url #f] [title #f]) :: [url : _string/utf-8] [title : _string/utf-8] -> [handle : _ihandle])))) (define button (make-constructor-procedure (get-ffi-obj "IupButton" libiup (_fun ([title #f] [action #f]) :: [title : _string/utf-8] [action : _iname/upcase] -> [handle : _ihandle])))) |
︙ | ︙ | |||
173 174 175 176 177 178 179 | (_fun -> _void)))]) (open) (when matrixex (matrixex))) (provide canvas frame tabs | | | 179 180 181 182 183 184 185 186 187 188 189 190 191 192 | (_fun -> _void)))]) (open) (when matrixex (matrixex))) (provide canvas frame tabs label link button toggle spin spinbox valuator textbox listbox treebox progress-bar matrix matrix-listbox cells color-bar color-browser dial) |