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

2012-12-28 13:03 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* src/rtl/teditor.prg
    ! fixed a regression from 2012-11-14 04:49 UTC+0100, caused
      by an odd coding case that doesn't occure anywhere else
      in codebase (verified). Thanks to Vlado for noticing.
This commit is contained in:
Viktor Szakats
2012-12-28 12:09:46 +00:00
parent aaf9612304
commit f0a8564e4d
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog.txt
View File

@@ -10,6 +10,12 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2012-12-28 13:03 UTC+0100 Viktor Szakats (harbour syenar.net)
* src/rtl/teditor.prg
! fixed a regression from 2012-11-14 04:49 UTC+0100, caused
by an odd coding case that doesn't occure anywhere else
in codebase (verified). Thanks to Vlado for noticing.
2012-12-27 16:17 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/src/vm/classes.c
! fixed unexpected item clearing in object item assignment when

9
harbour/src/rtl/teditor.prg
View File

@@ -1008,13 +1008,18 @@ METHOD New( cString, nTop, nLeft, nBottom, nRight, lEditMode, nLineLength, nTabS
hb_default( @nBottom , MaxRow() )
hb_default( @nRight , MaxCol() )
hb_default( @lEditMode , .T. )
hb_default( @nLineLength , NIL )
hb_default( @nTabSize , NIL )
hb_default( @nTextRow , 1 )
hb_default( @nTextCol , 0 )
hb_default( @nWndRow , 0 )
hb_default( @nWndCol , 0 )
IF ! ISNUMBER( nLineLength )
nLineLength := NIL
ENDIF
IF ! ISNUMBER( nTabSize )
nTabSize := NIL
ENDIF
::aText := Text2Array( cString, nLineLength )
::naTextLen := Len( ::aText )