Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Link control bindings |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5c793b4936393db1d7d767f632ba4f08 |
| User & Date: | murphy 2015-05-02 14:20:48 |
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 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 button toggle spin spinbox valuator textbox listbox treebox progress-bar matrix matrix-listbox cells color-bar color-browser dial) (import |
| |
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
...
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
(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]))))
................................................................................
(_fun -> _void)))])
(open)
(when matrixex (matrixex)))
(provide
canvas
frame tabs
label button toggle
spin spinbox valuator
textbox listbox treebox
progress-bar
matrix matrix-listbox cells
color-bar color-browser
dial)
|
>
>
>
>
>
>
|
|
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
...
179
180
181
182
183
184
185
186
187
188
189
190
191
192
|
(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]))))
................................................................................
(_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)
|