define-window ( word attributes quot -- )

Vocabulary

ui

Inputs

word	an object
attributes	an object
quot	an object

Outputs

None

Definition

USING: kernel words ;

IN: ui

: define-window ( word attributes quot -- )
    '[ [ f _ clone @ open-window ] with-ui ] ( -- )
    define-declared ;