Below is the keyDown subroutine you would need to insert into your text field object to filter out characters that are not numerals.
on keyDown pKeyName
if pKeyName is a number then
pass keyDown
end if
end keyDown
# Check if last keystroke was a numeral…
#...if it was a numeral then pass it on to be inserted…
#...into the text field.