IN: accessors

GENERIC: attributes>> ( object -- value )

USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XCharStruct attributes>>
T{ struct-slot-spec
{ name "attributes" }
{ offset 10 }
{ class fixnum }
{ initial 0 }
{ type ushort }
} read-struct-slot ; inline

USING: accessors graphviz graphviz.attributes kernel.private
slots.private ;

M: edge attributes>> 4 slot { edge-attributes } declare ;
inline

USING: accessors slots.private ui.pixel-formats ;

M: invalid-pixel-format-attributes attributes>> 3 slot ; inline

USING: accessors html.parser.analyzer slots.private ;

M: link attributes>> 2 slot ; inline

USING: accessors graphviz graphviz.attributes kernel.private
slots.private ;

M: node attributes>> 3 slot { node-attributes } declare ;
inline

USING: accessors html.parser slots.private ;

M: tag attributes>> 3 slot ; inline