draw-children ( gadget -- )

Vocabulary

ui.render

Inputs

gadget

an object

Outputs

None

Definition

IN: ui.render

GENERIC: draw-children ( gadget -- )

Methods

USING: accessors combinators kernel namespaces sequences
ui.gadgets ui.render ;

M: gadget draw-children
    dup children>> [
        {
            [ visible-children ]
            [ selected-children ]
            [ gadget-background ]
            [ gadget-foreground ]
        } cleave [
            {
                [ [ selected-gadgets set ] when* ]
                [ [ selection-background set ] when* ]
                [ [ background set ] when* ]
                [ [ foreground set ] when* ]
            } spread [ draw-gadget ] each
        ] with-scope
    ] [ drop ] if ;