define-window ( word attributes quot -- )


Vocabulary
ui

Inputs
wordan object
attributesan object
quotan object


Outputs
None

Definition
USING: kernel words ;

IN: ui

: define-window ( word attributes quot -- )
[ [ [ f ] ] dip [ clone ] curry compose ] dip
[ open-window ] compose compose [ with-ui ] curry
( -- ) define-declared ;