On Wed, 23 Apr 2008, Lorenzo Fiorini wrote: > > BTW have you tested this code with Clipper? > Yes it is old C5x code.
That's what I'm afraid ;-) Have you tested _exactly_ this (current) code in Clipper? But before you will waste time for such tests please read below. > What I've found so far is that ::stabilize() > never return .T. when that condition is met but it doesn't call my > skipblock code. It happens IF a ::down() is done when ::RowPos is at > the last row of the tbrowse. Try to compile tbrowse.prg with -b and see in debugger where it stops to execute or enter the loop have loop. > What I mean is that in this case I never reach alert( "here1" ) > > ... > nPos := AScan( ::aCellStatus, _TBR_UNDEF ) > alert( "here0" ) If tbrowse is unstable then this code have to be executed if program wasn't stopped inside skipblock(). I've found one mistake (missing: + 1) in line 724 which should look like: WHILE ( nPos := AScan( ::aCellStatus, _TBR_NONE, nPos + 1, ::nBufferPos - nPos ) ) != 0 but it should not cause any of such effect for single record skip anyhow please test with fixed version. I think that debugger should give the best answer if it's hard to isolate the problem. best regards, Przemek _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
