Source position: fpgtk.pp line 2767
procedure AcceleratorAdd(
AG: PGtkAccelGroup;
aWidget: TFPgtkWidget;
aSignal: string;
Key: guint;
Mods: TGdkModifierType;
Flags: TGtkAccelFlags
);