with-w/h ( gadget quot -- )

Vocabulary
ui.utils

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