On May 26, 2013, at 11:09 PM, Denis Kudriashov <dionisiydk@gmail.com> wrote:

m := TxTextMorph new.
    m editDecorator: TxSingleLineEditDecorator smartNumbers.
    m textSpec: (TxDecimalTextSpec maxDecimalDigits: 3).
    m newTextContents: '10000000'.
    m addCursor.
    m beEditable.
    m openInHand