Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Renamed glcanvas-box to glcanvasbox for consistency |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
14510f798542cf784a3d5cc7d2f8cabe |
| User & Date: | murphy 2015-05-02 14:58:19 |
Context
|
2015-05-02
| ||
| 15:15 | Racket bindings for IUP GL controls check-in: 7f3a73e037 user: murphy tags: trunk | |
| 14:58 | Renamed glcanvas-box to glcanvasbox for consistency check-in: 14510f7985 user: murphy tags: trunk | |
| 14:47 | CHICKEN bindings for IUP GL controls check-in: 43e92362a7 user: murphy tags: trunk | |
Changes
Changes to chicken/iup-glcontrols.scm.
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
(include "iup-types.scm")
;; }}}
;; {{{ GLCanvasBox and embedded controls
(define glcanvas-box
(make-constructor-procedure
(foreign-lambda* nonnull-ihandle ([ihandle-list handles]) "C_return(IupGLCanvasBoxv((Ihandle **)handles));")
#:apply-args list))
(define glsubcanvas
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupGLSubCanvas")))
|
| |
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
(include "iup-types.scm")
;; }}}
;; {{{ GLCanvasBox and embedded controls
(define glcanvasbox
(make-constructor-procedure
(foreign-lambda* nonnull-ihandle ([ihandle-list handles]) "C_return(IupGLCanvasBoxv((Ihandle **)handles));")
#:apply-args list))
(define glsubcanvas
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupGLSubCanvas")))
|
Changes to chicken/iup.scm.
70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
iup-base)
(include "iup-glcanvas.scm"))])
(cond-expand
[(or disable-iup-glcanvas disable-iup-glcontrols)]
[else
(module iup-glcontrols
(glcanvas-box glsubcanvas
call-with-glcanvas glcanvas-is-current?
glcanvas-palette-set! glcanvas-font-set!
glframe glexpander glscrollbox glsizebox
glseparator gllabel gllink glbutton gltoggle
glvaluator glprogress-bar)
(import
scheme chicken foreign
|
| |
70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
iup-base) (include "iup-glcanvas.scm"))]) (cond-expand [(or disable-iup-glcanvas disable-iup-glcontrols)] [else (module iup-glcontrols (glcanvasbox glsubcanvas call-with-glcanvas glcanvas-is-current? glcanvas-palette-set! glcanvas-font-set! glframe glexpander glscrollbox glsizebox glseparator gllabel gllink glbutton gltoggle glvaluator glprogress-bar) (import scheme chicken foreign |