TerminalView: Text property correctly takes into account line wrapping.

[GB.FORM.TERMINAL]
* BUG: TerminalView: Text property correctly takes into account line wrapping.
This commit is contained in:
gambas 2021-02-01 01:16:02 +01:00
parent 2bd970231c
commit 2128890f9a

View file

@ -1299,11 +1299,11 @@ Private Function Text_Read() As String
For Each hLine In $hScreen.Lines
If Not hLine Then
aLine.Add("")
aLine.Add("\n")
Else
aLine.Add(hLine.Text)
If hLine.NewLine Then aLine[aLine.Max] &= "\n"
Endif
If hLine.NewLine Then aLine[aLine.Max] &= "\n"
Next
Return aLine.Join("")