Source position: intuition.pas line 3690
type TSubStyle = record
Name: PChar;
Category: Word;
ID: Word;
end;