<status-bar> ( model -- gadget )


Vocabulary
ui.gadgets.status-bar

Inputs
modela model


Outputs
gadgeta new gadget


Word description
Creates a new gadget displaying the model value, which must be a string or f.

Notes
If the model is status, this gadget will display mouse over help for Presentation gadgets.

See also
show-mouse-help, show-status, show-summary, hide-status

Definition
USING: accessors calendar models.arrow models.delay sequences
ui.gadgets.labels ;

IN: ui.gadgets.status-bar

: <status-bar> ( model -- gadget )
1/10 seconds <delay> [ "" like ] <arrow>
<label-control> status-bar-theme t >>root? ;