Error in v11, okay in v10

[Ken 0]

Procedure ChangeAttr;

VAR

h :HANDLE;

BEGIN

h:=FINGROUP(FSACTLAYER);

WHILE h<>NIL DO BEGIN

SetFillBack(h,0,0,0);

SetLS(h,2);

SetFPat(h,0);

SetPenFore(h,189);

SetLW(h,14);

SetClass(h,'None');

h:=NEXTOBJ(h);

END;

ReDraw;

SetPref(10,false);

SetPref(11,false);

END;

RUN(ChangeAttr);

[ 12-18-2004, 01:54 PM: Message edited by: Archken ]