25 lines
656 B
Plaintext
25 lines
656 B
Plaintext
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
|