96 lines
2.3 KiB
Scheme
96 lines
2.3 KiB
Scheme
|
|
(define-record-type xglyphinfo :xglyphinfo
|
|
(make-xglyphinfo c-pointer)
|
|
xglyphinfo?
|
|
(c-pointer xglyphinfo-c-pointer))
|
|
|
|
(define-exported-binding "xglyphinfo" :xglyphinfo)
|
|
|
|
(define-record-type xrendercolor :xrendercolor
|
|
(really-make-xrender-color c-pointer)
|
|
xrendercolor?
|
|
(c-pointer xrendercolor-c-pointer))
|
|
|
|
;; XGlyphInfo
|
|
|
|
(import-lambda-definition xglyphinfo-width
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_width_get")
|
|
|
|
(import-lambda-definition xglyphinfo-height
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_height_get")
|
|
|
|
(import-lambda-definition xglyphinfo-x
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_x_get")
|
|
|
|
(import-lambda-definition xglyphinfo-y
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_y_get")
|
|
|
|
(import-lambda-definition xglyphinfo-xOff
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_xOff_get")
|
|
|
|
(import-lambda-definition xglyphinfo-yOff
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_yOff_get")
|
|
|
|
(import-lambda-definition set-xglyphinfo-width!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_width_set")
|
|
|
|
(import-lambda-definition set-xglyphinfo-height!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_height_set")
|
|
|
|
(import-lambda-definition set-xglyphinfo-x!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_x_set")
|
|
|
|
(import-lambda-definition set-xglyphinfo-y!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_y_set")
|
|
|
|
(import-lambda-definition set-xglyphinfo-xOff!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_xOff_set")
|
|
|
|
(import-lambda-definition set-xglyphinfo-yOff!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_yOff_set")
|
|
|
|
;; XRenderColor
|
|
|
|
(import-lambda-definition xrendercolor-red
|
|
(xrendercolor)
|
|
"scx_xrendercolor_red_get")
|
|
|
|
(import-lambda-definition xrendercolor-green
|
|
(xrendercolor)
|
|
"scx_xrendercolor_green_get")
|
|
|
|
(import-lambda-definition xrendercolor-blue
|
|
(xrendercolor)
|
|
"scx_xrendercolor_blue_get")
|
|
|
|
(import-lambda-definition xrendercolor-alpha
|
|
(xrendercolor)
|
|
"scx_xrendercolor_alpha_get")
|
|
|
|
(import-lambda-definition set-xrendercolor-red!
|
|
(xrendercolor new-value)
|
|
"scx_xrendercolor_red_set")
|
|
|
|
(import-lambda-definition set-xrendercolor-green!
|
|
(xrendercolor new-value)
|
|
"scx_xrendercolor_green_set")
|
|
|
|
(import-lambda-definition set-xrendercolor-blue!
|
|
(xrendercolor new-value)
|
|
"scx_xrendercolor_blue_set")
|
|
|
|
(import-lambda-definition set-xrendercolor-alpha!
|
|
(xrendercolor new-value)
|
|
"scx_xrendercolor_alpha_set") |