with-surface ( cairo_surface quot -- alien )


Vocabulary
cairo-gadgets.private

Inputs
cairo_surfacean object
quotan object


Outputs
alienan object


Definition
USING: cairo cairo.ffi kernel ;

IN: cairo-gadgets.private

: with-surface ( cairo_surface quot -- alien )
[ &cairo_surface_destroy ] dip [ check-surface ] bi ; inline