<progress-display> ( model n -- gadget )

Vocabulary

progress-bars.models

Inputs

model	an object
n	an object

Outputs

gadget

an object

Definition

USING: accessors fonts kernel models.arrow progress-bars
ui.gadgets.labels ;

IN: progress-bars.models

: <progress-display> ( model n -- gadget )
    [ [ make-progress-bar ] curry <arrow> <label-control> ] keep
    [ 0 ] dip make-progress-bar >>string monospace-font >>font ;