IN: accessors

GENERIC: display>> ( object -- value )

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XAnyEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XButtonEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XCirculateEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XCirculateRequestEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XClientMessageEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XColormapEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XConfigureEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XConfigureRequestEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XCreateWindowEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XCrossingEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XDestroyWindowEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XErrorEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 8 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XExposeEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XFocusChangeEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XGenericEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XGenericEventCookie display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XGraphicsExposeEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XGravityEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

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

M: XIDeviceChangedEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

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

M: XIDeviceEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

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

M: XIEnterEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

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

M: XIEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

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

M: XIHierarchyEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class Display }
{ initial
S{ Display
{ ext_data f }
{ free_funcs f }
{ fd 0 }
}
}
{ type Display }
} read-struct-slot ; inline

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

M: XIPropertyEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

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

M: XIRawEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XKeyEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XKeymapEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XMapEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XMapRequestEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XMappingEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XMotionEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XNoExposeEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XPropertyEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XReparentEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XResizeRequestEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XSelectionClearEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XSelectionEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XSelectionRequestEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XUnmapEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors alien alien.syntax classes.struct
classes.struct.private x11.xlib ;

M: XVisibilityEvent display>>
T{ struct-slot-spec
{ name "display" }
{ offset 24 }
{ class c-ptr }
{ type pointer: Display }
} read-struct-slot ; inline

USING: accessors furnace.actions slots.private ;

M: action display>> 5 slot ; inline