add-thread-status ( track -- track )


Vocabulary
ui.tools.walker

Inputs
trackan object


Outputs
trackan 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 ;