with-progress-bar ( quot -- )
Progress bar models

Next:

set-progress-bar ( ratio/float -- )

Vocabulary
progress-bars.models

Inputs

quot	a quotation

Outputs
None

Word description
Makes a new model for a progress bar for a task that is 0% complete, sets this model in a dynamic variable in a new scope, and calls a quotation that has access to this model. Progress can be updated with set-progress-bar.

Definition

USING: kernel models namespaces ;

IN: progress-bars.models

: with-progress-bar ( quot -- )
    [ 0 <model> \ progress-bar ] dip with-variable ; inline