with-clipping ( gadget quot -- )

Vocabulary

ui.render

Inputs

gadget	an object
quot	an object

Outputs

None

Definition

USING: kernel namespaces ;

IN: ui.render

: with-clipping ( gadget quot -- )
    clip get [ over change-clip do-clip call ] dip clip set
    do-clip ; inline