caretline.lua

-- af needs to be remade because string.Split is slow

GetCaretLine = function(s)
    local caretPos = s:GetCaretPos() + 1
    local splittedText = s:GetText():Split("\n")

    local len = 0
    for k, v in ipairs(splittedText) do
        len = len + #v + 1
        if (caretPos <= len) then
            return k
        end
    end
end

print(GetCaretLine(DTextEntry))