USING: alien.c-types classes.struct ;

IN: x11.xlib

STRUCT: XSelectionEvent
{ type int initial: 0 } { serial ulong initial: 0 }
{ send_event Bool initial: 0 } { display Display* }
{ requestor Window initial: 0 }
{ selection Atom initial: 0 } { target Atom initial: 0 }
{ property Atom initial: 0 } { time Time initial: 0 } ;

USING: classes.struct classes.struct.private kernel x11.xlib ;

M: XSelectionEvent clone
clone-underlying \ XSelectionEvent memory>struct ; inline

USING: accessors classes.struct combinators combinators.smart
x11.xlib ;

M: XSelectionEvent struct-slot-values
[
{
[ type>> ]
[ serial>> ]
[ send_event>> ]
[ display>> ]
[ requestor>> ]
[ selection>> ]
[ target>> ]
[ property>> ]
[ time>> ]
} cleave
] output>array ; inline