close-box? ( event -- ? )

Vocabulary

x11.events

Inputs

event

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel ;

IN: x11.events

: close-box? ( event -- ? )
    {
        [ message_type>> XA_WM_PROTOCOLS = ]
        [ data0>> XA_WM_DELETE_WINDOW = ]
    } 1&& ;