Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Corrected label constructor argument name |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
6c018968164435c85283204f1f93dc11 |
| User & Date: | murphy 2015-05-01 22:49:40 |
Context
|
2015-05-01
| ||
| 22:50 | Corrected plot sample insertion index argument checks check-in: 3ebc96c632 user: murphy tags: trunk | |
| 22:49 | Corrected label constructor argument name check-in: 6c01896816 user: murphy tags: trunk | |
| 17:13 | Documentation update check-in: 4693332543 user: murphy tags: trunk | |
Changes
Changes to chicken/iup-controls.scm.
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
(foreign-lambda* nonnull-ihandle ([ihandle-list handles])
"C_return(IupTabsv((Ihandle **)handles));")
#:apply-args list))
(define label
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupLabel" c-string)
#:apply-args (optional-args [action #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
|
| |
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
(foreign-lambda* nonnull-ihandle ([ihandle-list handles])
"C_return(IupTabsv((Ihandle **)handles));")
#: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
|