96 lines
2.4 KiB
Scheme
96 lines
2.4 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 scx-xglyphinfo-width
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_width_get")
|
|
|
|
(import-lambda-definition scx-xglyphinfo-height
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_height_get")
|
|
|
|
(import-lambda-definition scx-xglyphinfo-x
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_x_get")
|
|
|
|
(import-lambda-definition scx-xglyphinfo-y
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_y_get")
|
|
|
|
(import-lambda-definition scx-xglyphinfo-xOff
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_xOff_get")
|
|
|
|
(import-lambda-definition scx-xglyphinfo-yOff
|
|
(xglyphinfo)
|
|
"scx_xglyphinfo_yOff_get")
|
|
|
|
(import-lambda-definition set-scx-xglyphinfo-width!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_width_set")
|
|
|
|
(import-lambda-definition set-scx-xglyphinfo-height!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_height_set")
|
|
|
|
(import-lambda-definition set-scx-xglyphinfo-x!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_x_set")
|
|
|
|
(import-lambda-definition set-scx-xglyphinfo-y!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_y_set")
|
|
|
|
(import-lambda-definition set-scx-xglyphinfo-xOff!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_xOff_set")
|
|
|
|
(import-lambda-definition set-scx-xglyphinfo-yOff!
|
|
(xglyphinfo new-value)
|
|
"scx_xglyphinfo_yOff_set")
|
|
|
|
;; XRenderColor
|
|
|
|
(import-lambda-definition scx-xrendercolor-red
|
|
(xrendercolor)
|
|
"scx_xrendercolor_red_get")
|
|
|
|
(import-lambda-definition scx-xrendercolor-green
|
|
(xrendercolor)
|
|
"scx_xrendercolor_green_get")
|
|
|
|
(import-lambda-definition scx-xrendercolor-blue
|
|
(xrendercolor)
|
|
"scx_xrendercolor_blue_get")
|
|
|
|
(import-lambda-definition scx-xrendercolor-alpha
|
|
(xrendercolor)
|
|
"scx_xrendercolor_alpha_get")
|
|
|
|
(import-lambda-definition set-scx-xrendercolor-red!
|
|
(xrendercolor new-value)
|
|
"scx_xrendercolor_red_set")
|
|
|
|
(import-lambda-definition set-scx-xrendercolor-green!
|
|
(xrendercolor new-value)
|
|
"scx_xrendercolor_green_set")
|
|
|
|
(import-lambda-definition set-scx-xrendercolor-blue!
|
|
(xrendercolor new-value)
|
|
"scx_xrendercolor_blue_set")
|
|
|
|
(import-lambda-definition set-scx-xrendercolor-alpha!
|
|
(xrendercolor new-value)
|
|
"scx_xrendercolor_alpha_set") |