thread-status-background ( status -- color )

Vocabulary

ui.tools.walker

Inputs

status

an object

Outputs

color

an object

Definition

USING: combinators tools.walker ui.theme ;

IN: ui.tools.walker

: thread-status-background ( status -- color )
    {
        { +stopped+ [ thread-status-stopped-background ] }
        { +suspended+ [ thread-status-suspended-background ] }
        { +running+ [ thread-status-running-background ] }
        { f [ content-background ] }
    } case ;