IN: accessors

GENERIC: device>> ( object -- value )

USING: accessors alien alien.syntax classes.struct
classes.struct.private gdk.ffi ;

M: GdkEventButton device>>
T{ struct-slot-spec
{ name "device" }
{ offset 56 }
{ class c-ptr }
{ type pointer: GdkDevice }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private gdk.ffi ;

M: GdkEventMotion device>>
T{ struct-slot-spec
{ name "device" }
{ offset 56 }
{ class c-ptr }
{ type pointer: GdkDevice }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private gdk.ffi ;

M: GdkEventScroll device>>
T{ struct-slot-spec
{ name "device" }
{ offset 48 }
{ class c-ptr }
{ type pointer: GdkDevice }
} read-struct-slot ; inline