From 7cb0c3d2db3169ffce7af76f6100fef778f625f4 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 9 Sep 2007 17:48:10 +0000 Subject: [PATCH] some minor fixed after commit --- harbour/ChangeLog | 4 +++- harbour/source/rtl/tbrowse.prg | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index fc25ccdcb9..71e88ac529 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -36,6 +36,8 @@ * source/rtl/tbrowse.prg + Some work in progress towards better C5.x compatibility (borrowed from xhb) + ! Fixed crash in TBMouse() (due to recent changes) + (Thanks to Guillermo) * source/rtl/getsys.prg * source/rtl/tgetlist.prg @@ -61,7 +63,7 @@ ! Added :End() to HBBrwText to avoid using some internals vars of the class. ! Fixed problem with HBDebugger:SaveAppScreen() - where it crashed due to wrong initialization + where it crashed due to wrong initialization order of TBrowse() screen coordinates. Bug appeared due to the now more compatible TBrowse() behaviour. % Optimizations and cleanups. diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index 71daffd55f..9c52aad364 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -422,7 +422,7 @@ METHOD insColumn( nPos, oCol ) CLASS TBrowse AAdd( ::aColumns, oCol ) AAdd( ::aColsWidth, ::SetColumnWidth( oCol ) ) - AAdd( ::aColsPos, 100 ) + AAdd( ::aColsPos, 0 ) AAdd( ::aColsInfo, ::InitColumn( oCol, .F. ) ) else