(draw-gadget) ( gadget -- )

Vocabulary

ui.render

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel math.vectors namespaces
ui.render.private ;

IN: ui.render

: (draw-gadget) ( gadget -- )
    dup loc>> origin get v+ origin [
        [ draw-background ] [ draw-children ] [ draw-border ]
        tri
    ] with-variable ;