create-window ( loc dim visinfo -- window )

Vocabulary

x11.windows

Inputs

loc	an object
dim	an object
visinfo	an object

Outputs

window

an object

Definition

USING: accessors kernel math.vectors namespaces x11 x11.X
x11.xlib ;

IN: x11.windows

: create-window ( loc dim visinfo -- window )
    pick [
        [
            [ [ dpy get root get ] dip >xy ] dip { 1 1 } vmax
            >xy 0
        ] dip [ depth>> InputOutput ] keep
        [ visual>> create-window-mask ] keep
        window-attributes XCreateWindow dup
    ] dip auto-position ;