diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a74438add8..73843619ae 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -9,6 +9,12 @@ */ * Fix bug in PICTURE '@S' + * Fix some bugs and formatting indentation from last changelog + +2002-03-19 20:59 UTC+0100 Tomaz Zupan + * contrib/odbc/odbc.c + + 2002-03-19 13:07 UTC+0100 Antonio Linares * source/vm/memvars.c * __MVSAVE() saves all variables (publics and privates) diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index 18bf9e97b0..9ee5dd1d16 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -1488,11 +1488,11 @@ function TBMOUSE( oBrowse, nMouseRow, nMouseCol ) local Local1 if ( oBrowse:hittest(nMouseRow, nMouseCol) == -5121 ) - tracelog('mouse row ',oBrowse:mrowpos) - tracelog('mouse col ',oBrowse:mcolpos) +// tracelog('mouse row ',oBrowse:mrowpos) +// tracelog('mouse col ',oBrowse:mcolpos) Local1 := oBrowse:mrowpos - oBrowse:rowpos - tracelog('local1 ',local1) +// tracelog('local1 ',local1) do while ( Local1 < 0 ) Local1++ oBrowse:up() @@ -1517,11 +1517,11 @@ function TBMOUSE( oBrowse, nMouseRow, nMouseCol ) Method hitTest(mrow,mcol) CLASS TBROWSE local i - tracelog('mrow',mrow) - tracelog('mcol',mrow) +// tracelog('mrow',mrow) +// tracelog('mcol',mrow) ::mRowPos := ::rowPos ::mColPos := ::colPos - tracelog(::mrowPos) +// tracelog(::mrowPos) if mRow< ::rect[1] .or. mRow > ::rect[3] return HTNOWHERE endif diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg index ddf04fffdc..35c2cdd3d2 100644 --- a/harbour/source/rtl/tgetlist.prg +++ b/harbour/source/rtl/tgetlist.prg @@ -1031,7 +1031,7 @@ method TBReader( oGet,oGetsys, aMsg ) Class HBGETLIST IF oGet:exitState == GE_NOEXIT // Added. IF ( ::nHitcode == HTCELL ) - tracelog('hitcode ',::nHitcode ) +// tracelog('hitcode ',::nHitcode ) // Replaces call to TBMouse( oTB, mROW(), mCOL() ): oTB:RowPos := oTb:mRowPos oTB:ColPos := oTb:mColPos