with-w/h ( gadget quot -- )

Vocabulary

ui.utils

Inputs

gadget	an object
quot	an object

Outputs

None

Definition

USING: kernel namespaces opengl ui.render ;

IN: ui.utils

: with-w/h ( gadget quot -- )
    [ [ origin get ] ] dip [ with-translation ] curry compose
    with-dim ; inline