create-surface ( gadget -- cairo_surface_t )

Vocabulary

cairo-demo

Inputs

gadget

an object

Outputs

cairo_surface_t

an object

Definition

USING: accessors kernel ;

IN: cairo-demo

: create-surface ( gadget -- cairo_surface_t )
    make-image-array [ swap image-array<< ] keep
    convert-array-to-surface ;