set-closable ( win -- )

Vocabulary

x11.windows

Inputs

win

an object

Outputs

None

Definition

USING: alien.data kernel namespaces x11 x11.X x11.events
x11.xlib ;

IN: x11.windows

: set-closable ( win -- )
    dpy get swap XA_WM_DELETE_WINDOW Atom <ref>
    1 XSetWMProtocols drop ;