Paste: range-model-label

USING: locals math.functions math.parser models.filter
       sequences ui.gadgets ui.gadgets.labels ui.gadgets.packs ;

IN: range-model-label

:: range-model-label ( TEXT MODEL -- gadget )

  <shelf>

    TEXT <label> add-gadget

    MODEL [ first round number>string ] <filter> <label-control> add-gadget ;