IN: accessors

GENERIC: focus>> ( object -- value )

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

M: XCrossingEvent focus>>
T{ struct-slot-spec
{ name "focus" }
{ offset 92 }
{ class fixnum }
{ initial 0 }
{ type Bool }
} read-struct-slot ; inline

USING: accessors classes.struct classes.struct.private math
x11.xinput2.ffi x11.xlib ;

M: XIEnterEvent focus>>
T{ struct-slot-spec
{ name "focus" }
{ offset 124 }
{ class fixnum }
{ initial 0 }
{ type Bool }
} read-struct-slot ; inline

USING: accessors slots.private ui.gadgets ;

M: gadget focus>> 8 slot ; inline