IUP

Check-in [14510f7985]
Login

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: 14510f798542cf784a3d5cc7d2f8cabe65e7b842
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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