TMenuItem

type TMenuItem = record

  NextItem: PMenuItem;

  LeftEdge: SmallInt;

  TopEdge: SmallInt;

  Width: SmallInt;

  Height: SmallInt;

  Flags: Word;

  MutualExclude: LongInt;

  ItemFill: APTR;

  SelectFill: APTR;

  Command: Char;

  SubItem: PMenuItem;

  NextSelect: Word;

end;