56 lines
1.4 KiB
Scheme
56 lines
1.4 KiB
Scheme
|
|
(define-record-type xglyphinfo :xglyphinfo
|
|
(make-xglyphinfo c-pointer)
|
|
xglyphinfo?
|
|
(c-pointer xglyphinfo-c-pointer))
|
|
|
|
(define-exported-binding "xglyphinfo" :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")
|