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

2015-07-27 18:41 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* src/rtl/teditor.prg
    ! fixed hb_ULen() wrongly used instead of Len() for arrays
    % use byte oriented functions (hb_B*()) instead of character
      ones (hb_U*()) to update color strings
This commit is contained in:
Przemysław Czerpak
2015-07-27 18:41:14 +02:00
parent ddea7f90cb
commit 97c8e95c22
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog.txt
View File

@@ -10,6 +10,12 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2015-07-27 18:41 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rtl/teditor.prg
! fixed hb_ULen() wrongly used instead of Len() for arrays
% use byte oriented functions (hb_B*()) instead of character
ones (hb_U*()) to update color strings
2015-07-27 16:36 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rtl/chruni.c
* added new functions hb_BStuff() and hb_UStuff()

8
src/rtl/teditor.prg
View File

@@ -271,7 +271,7 @@ METHOD GotoLine( nRow ) CLASS HBEditor
RETURN ::Goto( nRow, ::nCol )
METHOD LineCount() CLASS HBEditor
RETURN hb_ULen( ::aText )
RETURN Len( ::aText )
METHOD Display() CLASS HBEditor
@@ -649,7 +649,7 @@ METHOD ReformParagraph() CLASS HBEditor
LOCAL nLines
LOCAL aPos
DO WHILE lNext .AND. ::nRow <= hb_ULen( ::aText )
DO WHILE lNext .AND. ::nRow <= Len( ::aText )
cLine += ::aText[ ::nRow ]:cText
lNext := ::aText[ ::nRow ]:lSoftCR
::RemoveLine( ::nRow )
@@ -696,7 +696,7 @@ METHOD Hilite() CLASS HBEditor
hb_tokenGet( ::cColorSpec, 2, "," ) + "," + ;
hb_tokenGet( ::cColorSpec, 1, "," )
::SetColor( cEnhanced + hb_URight( ::cColorSpec, hb_ULen( ::cColorSpec ) - hb_ULen( cEnhanced ) ) )
::SetColor( cEnhanced + hb_BRight( ::cColorSpec, hb_BLen( ::cColorSpec ) - hb_BLen( cEnhanced ) ) )
RETURN Self
@@ -707,7 +707,7 @@ METHOD DeHilite() CLASS HBEditor
hb_tokenGet( ::cColorSpec, 2, "," ) + "," + ;
hb_tokenGet( ::cColorSpec, 1, "," )
::SetColor( cStandard + hb_URight( ::cColorSpec, hb_ULen( ::cColorSpec ) - hb_ULen( cStandard ) ) )
::SetColor( cStandard + hb_BRight( ::cColorSpec, hb_BLen( ::cColorSpec ) - hb_BLen( cStandard ) ) )
RETURN Self