TGadget

type TGadget = record

  NextGadget: PGadget;

  LeftEdge: SmallInt;

  TopEdge: SmallInt;

  Width: SmallInt;

  Height: SmallInt;

  Flags: Word;

  Activation: Word;

  GadgetType: Word;

  GadgetRender: APTR;

  SelectRender: APTR;

  GadgetText: PIntuiText;

  MutualExclude: LongInt;

  SpecialInfo: APTR;

  GadgetID: Word;

  UserData: APTR;

end;