luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

String.Left() sometimes fails. Print a warning if such a case is detected.

Browse source 
[GB.FORM.TERMINAL]
* BUG: String.Left() sometimes fails. Print a warning if such a case is detected.
This commit is contained in:
gambas 2018-12-07 01:02:49 +01:00
parent 52c1243c35
commit 1d639e4b27
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
comp/src/gb.form.terminal/.src/TerminalView/TerminalScreen.class
View file

@ -205,15 +205,28 @@ Private Sub Insert(sText As String, Optional X As Integer = $X)
Dim hLine As CTerminalLine
Dim iLen As Integer = String.Len(sText)
Dim sLeft As String
If iLen = 0 Then Return
'Debug Quote(sText);; X;; $Y
'Debug Quote(sText);; $Y;; iLen;; X;; $W
If (X + iLen) > $W Then
If X >= $W Then
If Not WrapMode Then Return
Index()
$X = 0
Insert(sText)
Return
Endif
iLen = Max(0, $W - X)
If iLen Then
Insert(String.Left(sText, iLen), X)
sLeft = String.Left(sText, iLen)
If String.Len(sLeft) <> iLen Then
Error "gb.form.terminal: warning: String.Left() failed: "; String.Len(sLeft);; iLen
Return
Endif
Insert(sLeft, X)
sText = String.Mid$(sText, iLen + 1)
Endif
If WrapMode Then