tGadget

type tGadget = record

  NextGadget: pGadget;

  LeftEdge: SmallInt;

  TopEdge: SmallInt;

  Width: SmallInt;

  Height: SmallInt;

  Flags: Word;

  Activation: Word;

  GadgetType: Word;

  GadgetRender: Pointer;

  SelectRender: Pointer;

  GadgetText: pIntuiText;

  MutualExclude: LongInt;

  SpecialInfo: Pointer;

  GadgetID: Word;

  UserData: Pointer;

end;