Sub Process_Globals
End Sub
Sub Globals
Dim et As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
et.Initialize("et")
et.InputType = et.INPUT_TYPE_NUMBERS
Dim i As IME
i.SetCustomFilter(et, et.INPUT_TYPE_NUMBERS, "0123.")
Activity.AddView(et,10,10,300,50)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub