...
Private Sub CommitChanges (Data As Map) As Boolean
....
Case TYPE_TEXT, TYPE_PASSWORD, TYPE_MULTILINETEXT
Dim ft As B4XFloatTextField = ItemPanel.GetView(0).Tag
If ft.Text <> "" Then 'added by me
Value = ft.Text 'This was before
else 'added by me
Value = "" 'added by me
end if 'added by me
...
If mEventName <> "" And xui.SubExists(mCallback, mEventName & "_IsValid", 1) Then
Dim Valid As Boolean = CallSub2(mCallback, mEventName & "_IsValid", Temp)
If Valid = False Then Return False
End If
Data.clear 'added by me
For Each key As String In Temp.Keys
Data.Put(key, Temp.Get(key))
'log(Temp.Get(key)) 'fixed by me
Next