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