iOS Question Expected: UIView, object type: b4i_b4xfloattextfield

Sub CLAItemEditValue_FocusChanged (HasFocus As Boolean)
    Dim BX4Temp As B4XView = Sender
    Dim ThisParent As View = BX4Temp.Parent
    LASTEDITBOXFOCUS = BX4Temp
    Dim BigTag As String = ""
    If (BX4Temp Is B4XFloatTextField) Then
        Dim this As B4XFloatTextField = BX4Temp
        SetMainPanelColor(ThisParent, HasFocus)
        If (HasFocus = True) Then
            this.TextField.SelectAll
            RETURNFROMSEARCH = False
        Else
            CLAItemEditValueReturnFromFloatEditBox (this)
        End If
        NONCLICK = 0
    Else
        Dim this1 As TextField = BX4Temp
        SetMainPanelColor(ThisParent, HasFocus)
        If (HasFocus = True) Then
            this1.SelectAll
            RETURNFROMSEARCH = False
        Else
            Dim btnTag As RequestCLAItem = BX4Temp.tag
            CLAItemEditValueReturnFromEditBox (this1)
        End If
        NONCLICK = 0
    End If
End Sub