>Hi Gang!
>
>In one of our apps, there is some code to do an
>
>INDEX ON
>
>to recreate the tags in the free table.
>
>
>The output is displayed on the form, but looks very uncontrolled... writing over text and objects.
>
>
>I have added an editbox to show output before we reach this point in the program.
>
>Any way to redirect the output of INDEX ON to go into the editbox, instead of the form itself?
>
>Thanks!

the first raw idea ...

PUBLIC g_LastRefresh
g_LastRefresh = CAST(NULL AS N)

CREATE CURSOR testindex (f1 INT)
FOR k=1 TO 1000000
	APPEND BLANK
NEXT
GO TOP

INDEX on f1 FOR progressIndex() TAG tag1

* DISABLE OUTPUT
g_LastRefresh = -1

PROCEDURE progressIndex
        IF m.g_LastRefresh<0 OR EMPTY(RECCOUNT())
            RETURN
        ENDIF
	IF m.g_LastRefresh<ROUND(RECNO()/RECCOUNT(),2)
		WAIT WINDOWS ROUND(RECNO()/RECCOUNT(),2) NOWAIT
	ENDIF
	g_LastRefresh=ROUND(RECNO()/RECCOUNT(),2)
ENDPROC