draw-gadget ( gadget -- )

Vocabulary

ui.render

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors combinators kernel ;

IN: ui.render

: draw-gadget ( gadget -- )
    {
        { [ dup visible?>> not ] [ drop ] }
        { [ dup clipped?>> not ] [ (draw-gadget) ] }
        [ [ (draw-gadget) ] with-clipping ]
    } cond ;