fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2004-02-27 12:37 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

Browse Source 
* source/rtl/teditor.prg
     ! Fixed a Bound error in GetParagraph which came up when
       using <Del> in wrap mode, in the last line I guess.
       Note that this just fixed the bound error, not the possible
       real problem.
This commit is contained in:
Viktor Szakats
2004-02-27 11:33:34 +00:00
parent 1432141747
commit a03bd59f6e
2 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -8,6 +8,14 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-02-27 12:37 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/rtl/teditor.prg
! Fixed a Bound error in GetParagraph which came up when
using <Del> in wrap mode, in the last line I guess.
Note that this just fixed the bound error, not the possible
real problem.
2004-02-21 8:14 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/common/hbffind.c

10
harbour/source/rtl/teditor.prg
View File

@@ -491,16 +491,18 @@ STATIC function GetParagraph(oSelf, nRow)
LOCAL cLine := ""
while oSelf:aText[nRow]:lSoftCR
while nRow <= Len(oSelf:aText) .and. oSelf:aText[nRow]:lSoftCR
cLine += oSelf:aText[nRow]:cText
// I don't need to increment nRow since I'm removing lines, ie line n is
// a different line each time I add it to cLine
oSelf:RemoveLine(nRow)
enddo
// Last line, or only one line
cLine += oSelf:aText[nRow]:cText
oSelf:RemoveLine(nRow)
if nRow <= Len(oSelf:aText)
// Last line, or only one line
cLine += oSelf:aText[nRow]:cText
oSelf:RemoveLine(nRow)
endif
return cLine