{Developed by Julian Carr 1997}

Procedure ResetTextBlockFast;

Procedure FEO(h : HANDLE);
VAR
    Style,i : INTEGER;
BEGIN
    i:=Len(GetText(h));
    Style:=GetTextStyle(h,0);
    SetTextStyle(h,0,i,Style);
    SetTextStyle(h,0,i,Style);
END;

BEGIN
    ForEachObject(FEO,(T=Text));
    ForEachObject(FEO,InSymbol & (T=Text));
    ReDrawAll;
END;
RUN(ResetTextBlockFast);