Share My Creation MakeBxL - create a layout file from text or from an SQLite table (B4X) (Tool) (Source included)

{
    "JavaType": ".CustomViewWrapper",
    "DesignerType": "CustomView",
    "Name": "CustomListView1"
}

{
    "JavaType": ".CustomViewWrapper",
    "DesignerType": "CustomView",
    "Name": "$MAKEBXL_CHILD_NAME$"
}

            "0": {
...
                "variant0": {
                    "top": 100,
                    "left": 100,
                    "hanchor": 0,
                    "width": 100,
                    "vanchor": 0,
                    "height": 100
                },
...
                "eventName": "CustomListView1",
...
                "name": "CustomListView1",
...
                "font": {
                    "fontName": "DEFAULT",
                    "csType": "Dbasic.Designer.FontGrid",
                    "fontSize": {
                        "ValueType": 7,
                        "Value": 15
                    },
                    "bold": false,
                    "type": "B4IFontWrapper",
                    "italic": false
                }
            }

            "$MAKEBXL_CHILD_NUM$": {
...
                "variant0": {
                    "top": $MAKEBXL_TOP$,
                    "left": $MAKEBXL_LEFT$,
                    "hanchor": 0,
                    "width": $MAKEBXL_WIDTH$,
                    "vanchor": 0,
                    "height": $MAKEBXL_HEIGHT$
                },
...
                "eventName": "$MAKEBXL_CHILD_NAME$",
...
                "name": "$MAKEBXL_CHILD_NAME$",
...
                "font": {
                    "fontName": "$MAKEBXL_FONTNAME$",
                    "csType": "Dbasic.Designer.FontGrid",
                    "fontSize": {
                        "ValueType": 7,
                        "Value": $MAKEBXL_FONTSIZE$
                    },
                    "bold": false,
                    "type": "B4IFontWrapper",
                    "italic": false
                }
            }

'extract the data, so that if its a custom type, we get the 'shortType', i.e. real custom view type
    Dim Data As Map = layoutMap.Get("Data")
    Try
        lstViews.Initialize
        Dim LayoutHeader As Map = layoutMap.Get("LayoutHeader")
        Dim ControlsHeaders As List = LayoutHeader.Get("ControlsHeaders")
        For Each colControlsHeaders As Map In ControlsHeaders
            Dim Name As String = colControlsHeaders.Get("Name")
            If (Name = "Main") Or (Name = "Activity") Then Continue
            Dim DesignerType As String = colControlsHeaders.Get("DesignerType")
            'find the kid based on the control header name
            Dim theKidX As Map = FindKidCustomType(ext, Name, Data)
            'get the shortType i.e. the actual custom view name
            Dim sshortType As String = theKidX.GetDefault("shortType","")
            'if this is blank, use the usual addition
            If sshortType = "" Then
                lstViews.Add(Name & " (" & DesignerType & ")")
            Else
                'this has a short name, add the name
                lstViews.Add(Name & " (" & DesignerType & "." & sshortType &  ")")
            End If  
        Next
    Catch
        fx.Msgbox(MainForm, LastException, "Couldn't parse the layout file")
        Return
    End Try

'we need to find the custom type of the kid
'findKid replaces the original map
Private Sub FindKidCustomType(ext As String, selectedName As String, parent As Map) As Map
    Dim kids As Map = parent.Get(":kids")
    If kids.IsInitialized = False Then Return kids ' Parent doesn't have kids

    For Each kidKey As String In kids.Keys
        Dim onekid As Map = kids.Get(kidKey)
        If onekid.Get("name") = selectedName Then ' Got it
            Return onekid
        End If
        ' Kids can have grandkids etc
        Dim nextKid As Map = FindKidCustomType(ext, selectedName, onekid)
        If nextKid.IsInitialized And nextKid.Size > 0 Then Return nextKid
    Next

    ' This should not happen
    Dim noKid As Map
    Return noKid

End Sub