Source position: fpgtk.pp line 2773
procedure AccelGroupActivate(
AG: PGtkAccelGroup;
Key: guint;
Mods: TGdkModifierType
);