Paste: range-model-label

Author: dharmatech
Mode: factor
Date: Fri, 5 Dec 2008 03:22:30
Plain Text |
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 ;

New Annotation

Summary:
Author:
Mode:
Body: