thread-status-text ( status -- string )

Vocabulary

ui.tools.walker

Inputs

status

an object

Outputs

string

an object

Definition

USING: assocs sequences tools.walker ;

IN: ui.tools.walker

: thread-status-text ( status -- string )
    {
        { +stopped+ "Stopped" }
        { +suspended+ "Suspended" }
        { +running+ "Running" }
    } at "(" ")" surround ;