One would think that this is easy but I haven't worked it out yet, for example:
RBS
B4X:
Sub CursorAtEndOfText(vEDT As EditText) As Boolean
Dim iSelStart As Int = vEDT.SelectionStart
Dim bCursorAtEnd As Boolean
Log("CursorAtEndOfText, iSelStart: " & iSelStart)
vEDT.SelectionStart = iSelStart + 1
'will be one more even if we were at the end of the text
Log("CursorAtEndOfText, vEDT.SelectionStart: " & vEDT.SelectionStart)
bCursorAtEnd = (vEDT.SelectionStart = iSelStart)
vEDT.SelectionStart = iSelStart 'put it back where it was
Return bCursorAtEnd
End Sub
RBS