add-thread-status ( track -- track )

Vocabulary

ui.tools.walker

Inputs

track

an object

Outputs

track

an object

Definition

USING: accessors kernel threads ui.gadgets ui.gadgets.labels
ui.gadgets.tracks ui.tools.common ;

IN: ui.tools.walker

: add-thread-status ( track -- track )
    horizontal <track> { 5 5 } >>gap "Thread:" <label>
    [ t >>bold? ] change-font f track-add
    self name>> <label> f track-add
    over status>> <thread-status> dup font>> t >>bold? drop
    f track-add margins f track-add ;