IN: accessors

GENERIC: font>> ( object -- value )

USING: accessors classes.struct classes.struct.private math
x11.X x11.xlib ;

M: XGCValues font>>
T{ struct-slot-spec
{ name "font" }
{ offset 88 }
{ class integer }
{ initial 0 }
{ type Font }
} read-struct-slot ; inline

USING: accessors pdf.canvas slots.private ;

M: canvas font>> 8 slot ; inline

USING: accessors ui.gadgets.editors ;

M: field font>> editor>> font>> ;

USING: accessors slots.private ui.gadgets.labels ;

M: label font>> 21 slot ; inline

USING: accessors slots.private ui.text.pango ;

M: layout font>> 4 slot ; inline

USING: accessors slots.private ui.gadgets.line-support ;

M: line-gadget font>> 18 slot ; inline