with-progress-display ( quot -- )

Vocabulary

progress-bars.models

Inputs

quot

an object

Outputs

None

Definition

USING: kernel namespaces ui.gadgets.panes ;

IN: progress-bars.models

: with-progress-display ( quot -- )
    [ \ progress-bar get 50 <progress-display> gadget. call ]
    with-progress-bar ; inline