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:
@@ -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)
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user