B4J Question Browser Local Storage - save data? [SOLVED]

Public Sub setItemLS(ws As WebSocket, key As String, value As String)
    Dim js As String = $"localStorage.setItem("${key}", "${value}");"$
    ws.Eval(js,Null)
End Sub

Public Sub getItemLS(ws As WebSocket, key As String) As String
    Dim js As String = $"return localStorage.getItem("${key}");"$
    Dim f As Future = ws.EvalWithResult(js,Null)
    Return f.Value
End Sub

Public Sub removeItemLS(ws As WebSocket, key As String) As Boolean
    Try
        Dim js As String = $"localStorage.removeItem("${key}");"$
        ws.Eval(js,Null)
        Return True
    Catch
        Log(LastException)
        Return False
    End Try
End Sub

Public Sub itemExistsLS(ws As WebSocket, key As String) As Boolean
    Dim js As String = $"return localStorage.getItem("${key}");"$
    Dim f As Future = ws.EvalWithResult(js,Null)
    Return f.Value <> Null
End Sub

Public Sub getAllItemsLS(ws As WebSocket) As Map
    Dim js As String = $"return localStorage;"$
    Dim f As Future = ws.EvalWithResult(js,Null)
    Return f.Value
End Sub

Public Sub removeAllLS(ws As WebSocket) As Boolean
    Try
        Dim m As Map = getAllItemsLS(ws)
        For Each key As String In m.Keys
            removeItemLS(ws,key)
        Next
        Return True     
    Catch
        Log(LastException)
        Return False
    End Try
End Sub

setItemLS(ws,"name","ilan tal")

Sub Class_Globals
    Private map As Map
    Private ls_ws As WebSocket
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(ws As WebSocket)
    map.Initialize
    ls_ws = ws
    refreshMap
End Sub

Public Sub refreshMap
    Dim js As String = $"return localStorage;"$
    If ls_ws.Open Then
        Dim f As Future = ls_ws.EvalWithResult(js,Null)
        map.Clear
        map = f.Value      
    End If
End Sub

Public Sub setItemLS(key As String, value As String)
    Dim js As String = $"localStorage.setItem("${key}", "${value}");"$
    If ls_ws.Open Then
        ls_ws.Eval(js,Null)
        map.Put(key,value)
    End If
End Sub

Public Sub getItemLS(key As String) As String
    Return map.Get(key)
End Sub

Public Sub removeItemLS(key As String) As Boolean
    Try
        Dim js As String = $"localStorage.removeItem("${key}");"$
        If ls_ws.Open Then
            ls_ws.Eval(js,Null)
            map.Remove(key)
            Return True      
        Else
            Return False          
        End If
    Catch
        Log(LastException)
        Return False
    End Try
End Sub

Public Sub itemExistsLS(key As String) As Boolean
    Return map.ContainsKey(key)
End Sub

Public Sub getAllItemsLS As Map
    Return map
End Sub

Public Sub removeAllLS As Boolean
    Try
        If ls_ws.Open Then
            For Each key As String In map.Keys
                removeItemLS(key)
            Next
            map.Clear
            Return True
        Else
            Return False  
        End If
    Catch
        Log(LastException)
        Return False
    End Try
End Sub