2002-03-19 11:36 UTC+0000 Dave Pearson <davep@davep.org>

* source/rtl/tbrowse.prg
    * Commented out calls to TRACELOG().
  * source/rtl/tgetlist.prg
    * Commented out calls to TRACELOG().
This commit is contained in:
Dave Pearson
2002-03-19 11:39:24 +00:00
parent 16a9c301c0
commit 1622cd0c71
3 changed files with 13 additions and 7 deletions

View File

@@ -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 <tomaz.zupan@orpo.si>
* contrib/odbc/odbc.c
2002-03-19 13:07 UTC+0100 Antonio Linares <alinares@fivetech.com>
* source/vm/memvars.c
* __MVSAVE() saves all variables (publics and privates)

View File

@@ -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

View File

@@ -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