with-ui-test-scale ( scale quot -- ) - Factor Documentation

with-ui-test-scale ( scale quot -- )

Vocabulary
ui.test

Inputs

scale	an object
quot	an object

Outputs
None

Definition

USING: continuations kernel namespaces opengl ;

:: with-ui-test-scale ( scale quot -- )
gl-scale-factor get-global :> previous
[ scale gl-scale-factor set-global quot call ]
[ previous gl-scale-factor set-global ] finally ; inline