(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")