with-gl-context ( world quot -- )

Vocabulary

ui.gadgets.worlds

Inputs

world	an object
quot	an object

Outputs

None

Definition

USING: accessors kernel opengl ui.backend ;

IN: ui.gadgets.worlds

: with-gl-context ( world quot -- )
    [ [ set-gl-context ] ] dip compose
    [ handle>> flush-gl-context gl-error ] bi ; inline