scx/scheme/libs/xrender.scm

96 lines
2.3 KiB
Scheme
Raw Normal View History

(define-record-type xglyphinfo :xglyphinfo
(make-xglyphinfo c-pointer)
xglyphinfo?
(c-pointer xglyphinfo-c-pointer))
(define-exported-binding "xglyphinfo" :xglyphinfo)
2003-10-17 04:34:07 -04:00
(define-record-type xrendercolor :xrendercolor
(really-make-xrender-color c-pointer)
xrendercolor?
(c-pointer xrendercolor-c-pointer))
;; XGlyphInfo
2003-10-27 05:06:25 -05:00
(import-lambda-definition xglyphinfo-width
(xglyphinfo)
"scx_xglyphinfo_width_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition xglyphinfo-height
(xglyphinfo)
"scx_xglyphinfo_height_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition xglyphinfo-x
(xglyphinfo)
"scx_xglyphinfo_x_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition xglyphinfo-y
(xglyphinfo)
"scx_xglyphinfo_y_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition xglyphinfo-xOff
(xglyphinfo)
"scx_xglyphinfo_xOff_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition xglyphinfo-yOff
(xglyphinfo)
"scx_xglyphinfo_yOff_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xglyphinfo-width!
(xglyphinfo new-value)
"scx_xglyphinfo_width_set")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xglyphinfo-height!
(xglyphinfo new-value)
"scx_xglyphinfo_height_set")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xglyphinfo-x!
(xglyphinfo new-value)
"scx_xglyphinfo_x_set")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xglyphinfo-y!
(xglyphinfo new-value)
"scx_xglyphinfo_y_set")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xglyphinfo-xOff!
(xglyphinfo new-value)
"scx_xglyphinfo_xOff_set")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xglyphinfo-yOff!
(xglyphinfo new-value)
"scx_xglyphinfo_yOff_set")
2003-10-17 04:34:07 -04:00
;; XRenderColor
2003-10-27 05:06:25 -05:00
(import-lambda-definition xrendercolor-red
2003-10-17 04:34:07 -04:00
(xrendercolor)
"scx_xrendercolor_red_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition xrendercolor-green
2003-10-17 04:34:07 -04:00
(xrendercolor)
"scx_xrendercolor_green_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition xrendercolor-blue
2003-10-17 04:34:07 -04:00
(xrendercolor)
"scx_xrendercolor_blue_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition xrendercolor-alpha
2003-10-17 04:34:07 -04:00
(xrendercolor)
"scx_xrendercolor_alpha_get")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xrendercolor-red!
2003-10-17 04:34:07 -04:00
(xrendercolor new-value)
"scx_xrendercolor_red_set")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xrendercolor-green!
2003-10-17 04:34:07 -04:00
(xrendercolor new-value)
"scx_xrendercolor_green_set")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xrendercolor-blue!
2003-10-17 04:34:07 -04:00
(xrendercolor new-value)
"scx_xrendercolor_blue_set")
2003-10-27 05:06:25 -05:00
(import-lambda-definition set-xrendercolor-alpha!
2003-10-17 04:34:07 -04:00
(xrendercolor new-value)
"scx_xrendercolor_alpha_set")