{Developed by Julian Carr 1997}

Procedure ResetTextSizeSlow;

Procedure FEO(h : HANDLE);
VAR
    h1 : HANDLE;
    Style,i,j : INTEGER;
BEGIN
    j:=Len(GetText(h));
    FOR i:=0 TO j-1 DO BEGIN
        Style:=GetTextStyle(h,i);
        SetTextStyle(h,i,1,Style);
        SetTextStyle(h,i,1,Style);
    END;
END;

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