TGtkItemFactory

type TGtkItemFactory = record

  anObject: TGtkObject;

  path: Pgchar;

  accel_group: PGtkAccelGroup;

  widget: PGtkWidget;

  items: PGSList;

  translate_func: TGtkTranslateFunc;

  translate_data: gpointer;

  translate_notify: TGtkDestroyNotify;

end;