Sub Globals
Public ed EditText
Public p As Panel
Public bt, bt2 as Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
bt.Initialize("bt") : Activity.AddView ( bt, 0%x, 0%y, 50%x, 7.0%y) : bt.Text = "panel"
p.Initialize("p")
Activity.AddView(p, 10%x, 10%y, 50%x, 50%y)
p.SendToBack
ed.Initialize("ed") : p.AddView ( ed, 0%x, 9.4%y, 50%x, 15.6%y)
bt2.Initialize("bt2") : p.AddView ( bt2, 0%x, 27.2%y, 50%x, 7.0%y) : bt2.Text = "-"
End Sub
Sub bt_click
p.BringToFront
End Sub