Sub Activity_Create(FirstTime As Boolean)
buildMenu("options.json")
End Sub
Sub buildMenu(fn As String)
Dim JSON As JSONParser
Dim Map1 As Map
Dim List As List
Dim x As Int
x = 0
JSON.Initialize(File.ReadString(File.DirAssets, fn))
Map1 = JSON.NextObject
For Each key As String In Map1.Keys
If x = 0 Then
Log("applicazione:" & key)
Else
Log(key)
Button(0,x,key)
End If
List = Map1.Get(key)
For Each link As String In List
Log(link)
Edit(1,x,link)
Next
x = x + 1
Next
End Sub
Sub Button(x As Int, y As Int, txt As String)
Dim ButtonX As Button
ButtonX.Initialize("Button")
ButtonX.Text = txt
Activity.AddView(ButtonX,x*30%x,y*10%y,30%x,10%y)
End Sub
Sub Edit(x As Int, y As Int, ctrli As String) As Int
Dim c As ColorDrawable
c.Initialize2(Colors.White,5dip,3dip,Colors.White)
Dim ed As EditText
Dim PosX As Pos
PosX.x = x
PosX.y = y
ed.Initialize("EditText")
ed.Background = c
ed.Color = Colors.White
ed.Text = ctrli
ed.Tag = ctrli
ed.Color = 400
Activity.AddView(ed,x*30%x,y*10%y,30%x,10%y)
End Sub