Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Renamed glcanvas-box to glcanvasbox for consistency |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
14510f798542cf784a3d5cc7d2f8cabe |
| User & Date: | murphy 2015-05-02 14:58:19.944 |
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 |
(include "iup-types.scm")
;; }}}
;; {{{ GLCanvasBox and embedded controls
| | | 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 | iup-base) (include "iup-glcanvas.scm"))]) (cond-expand [(or disable-iup-glcanvas disable-iup-glcontrols)] [else (module iup-glcontrols | | | 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 |
| ︙ | ︙ |