Oddities with symbol definitions

[Petri]

Why does this work in some files but not in some others?

PROCEDURE SetDefaults; { ? Petri Sakkinen 2006 } 

VAR 
insertMode, breakMode : INTEGER;
cName, sName: STRING;
sdHd : HANDLE;

PROCEDURE SetGraphicsByClass;
BEGIN
{ add code } 
END;

BEGIN
insertMode := 1;  { edge } 
breakMode := 4;   { no break }
cName := 'WHAT-Ever';
NAMECLASS(cName);
sdHd := FSYMDEF; 
WHILE sdHd <> NIL DO BEGIN 
	sName := GETSDNAME(sdHd); 
	SETSYMBOLOPTIONSN(sName, insertMode, breakMode, cName); 
	sdHd := NEXTSYMDEF(sdHd);
END;
END;

RUN(SetDefaults);

[MullinRJ]

Hi Petri,

Because Symbol Folders are also stored in the SymDef List. Try:

	WHILE (sdHd <> NIL) DO BEGIN
	if (GetType(sdHd) = 16) then BEGIN 
		sName := GETSDNAME(sdHd); 
		SETSYMBOLOPTIONSN(sName, insertMode, breakMode, cName); 
	END;
	sdHd := NEXTSYMDEF(sdHd);
END;

Raymond

[Petri]

... I should have known... Thanks, Raymond!