B4J Tutorial [BANanoVuetifyAD3] Create Professional Looking Vuetify WebSites & WebApps with BANano

tablecrud.AddColumn("itemkeys", "Item Keys")
    tablecrud.SetTextArea("itemkeys", True)

private Sub tablecrud_itemkeys_change(item As Map)
    Log("item keys changed...")
    log(item)
End Sub

'Static code module
Sub Process_Globals   
    Public vuetify As VuetifyApp
    Public about As VueComponent
    Public path As String
    Public name As String = "boolfixer"
    Private banano As BANano
    
    Private txtdeclarations As VTextField
    Private txtdesigner As VTextField
    Private booleans As List
    Private booleans1 As List
    Private bFound As List
    Private bFound1 As List
    Private txtresult As VTextField
End Sub

Sub Initialize
    'establish a reference to the app
    vuetify = pgIndex.vuetify
    'initialize the component
    about.Initialize(Me, name)
    path = about.path
    
    banano.LoadLayout(about.Here, "booleanfixer")
    txtdeclarations.BindState(about)
    txtdesigner.BindState(about)
    txtresult.BindState(about)
    
    'add the component as a router
    vuetify.AddRoute(about)
End Sub


Private Sub txtdesigner_ClickAppendOuter (e As BANanoEvent)
    txtresult.SetValue(about, "")
    'get the code and try and find all booleans
    booleans.Initialize
    Dim scontent As String = txtdeclarations.GetValue(about)
    booleans = banano.split(CRLF, scontent)
    bFound.Initialize
    For Each strLine As String In booleans
        strLine = strLine.Trim
        'ends with boolean or true or false
        Dim bOk As Int = 0
        If strLine.ToLowerCase.EndsWith(" boolean") Then bOk = bOk + 1
        If strLine.ToLowerCase.EndsWith(" true") Then bOk = bOk + 1
        If strLine.ToLowerCase.EndsWith(" false") Then bOk = bOk + 1
        '
        If bOk > 0 Then
            strLine = BANanoShared.MvField(strLine, 2, " ")
            strLine = strLine.trim
            bFound.Add(strLine)
        End If
    Next
    
    
    Dim sb As StringBuilder
    sb.Initialize
    booleans1.Initialize
    Dim scontent As String = txtdesigner.GetValue(about)
    Dim xcontent As String = scontent.tolowercase
    booleans1 = banano.Split(CRLF, scontent)
    For Each strLine As String In booleans1
        strLine = strLine.Trim
        strLine = BANanoShared.MvField(strLine, 1, "=")
        strLine = strLine.Trim
        'if this line found on indexes
        Dim bSearch As Boolean = BANanoShared.ListSearch(bFound, strLine)
        If bSearch Then
            'a match is found
            Dim nLine As String = $"${strLine} = BANanoShared.parseBool(${strLine})"$
            Dim xLine As String = nLine.ToLowerCase
            Dim xfound As Boolean = xcontent.Contains(xLine)
            If xfound = False Then
                sb.Append(nLine).Append(CRLF)
            End If
        End If
    Next
    Dim sout As String = sb.ToString
    txtresult.SetValue(about, sout)
End Sub

Private Sub txtdeclarations_ClickAppendOuter (e As BANanoEvent)
    txtdeclarations.SetValue(about, "")
    txtdesigner.SetValue(about, "")
    txtresult.SetValue(about, "")
End Sub