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 ;
Done