sub init()
    m.top.observeFieldScoped("text", "onTextChanged")
    m.top.iconUri = ""
    m.top.focusedIconUri = ""
    m.top.showFocusFootprint = true
    m.top.minWidth = 0
end sub

'
' Whenever the text changes, pad both sides with whitespace so we can center the button text
'
sub onTextChanged()
    addSpaceAfter = true
    minChars = m.top.minChars
    if minChars = invalid then minChars = 50
    while m.top.text.Len() < minChars
        if addSpaceAfter
            m.top.text = m.top.text + Chr(160)
        else
            m.top.text = Chr(160) + m.top.text
        end if
        addSpaceAfter = addSpaceAfter = false
    end while
end sub