handle-event ( event window -- )

Vocabulary

x11.events

Inputs

event	an object
window	an object

Outputs

None

Definition

USING: accessors combinators kernel x11.X ;

IN: x11.events

: handle-event ( event window -- )
    swap dup XAnyEvent>> type>> {
        { Expose [ XExposeEvent>> swap expose-event ] }
        {
            ConfigureNotify
            [ XConfigureEvent>> swap configure-event ]
        }
        {
            ButtonPress
            [ XButtonEvent>> swap button-down-event$ ]
        }
        {
            ButtonRelease
            [ XButtonEvent>> swap button-up-event$ ]
        }
        { EnterNotify [ XCrossingEvent>> swap enter-event ] }
        { LeaveNotify [ XCrossingEvent>> swap leave-event ] }
        { MotionNotify [ XMotionEvent>> swap motion-event ] }
        { KeyPress [ XKeyEvent>> swap key-down-event ] }
        { KeyRelease [ XKeyEvent>> swap key-up-event ] }
        { FocusIn [ XFocusChangeEvent>> swap focus-in-event ] }
        {
            FocusOut
            [ XFocusChangeEvent>> swap focus-out-event ]
        }
        {
            SelectionNotify
            [ XSelectionEvent>> swap selection-notify-event ]
        }
        {
            SelectionRequest
            [
                XSelectionRequestEvent>> swap
                selection-request-event
            ]
        }
        {
            ClientMessage
            [ XClientMessageEvent>> swap client-event ]
        }
        [ 3drop ]
    } case ;