Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Dim tbl As ContentTable
tbl.Initialize
LeftList.AddTextItem("Table", tbl)
Dim chart As ContentChart
chart.Initialize
LeftList.AddTextItem("Chart", chart)
End Sub
Private Sub B4XPage_Resize (Width As Int, Height As Int)
If ContentEmpty = False Then
MainPanel.GetView(0).SetLayoutAnimated(0, 0, 0, MainPanel.Width, MainPanel.Height)
End If
End Sub
Private Sub LeftList_ItemClick (Index As Int, Value As Object)
If ContentEmpty = False Then MainPanel.GetView(0).RemoveViewFromParent
CallSub2(Value, "Show", MainPanel)
End Sub
Private Sub ContentEmpty As Boolean
Return MainPanel.NumberOfViews = 0
End Sub