Utiliser Gtk dansun paquetage générique ?

Bonjour,

Je souhaiterais faire un paquetage générique pour une interface graphique avec Gtk mais je tombe sur une erreur à l'utilisation du type Action_Group.Action_Callback.

l'erreur est la suivante :

Citation:

mal-x.adb:520:53: 'Access attribute not allowed in generic body
mal-x.adb:520:53: because access type "Action_Callback" is declared outside generic unit (RM 3.10.2(32))
mal-x.adb:520:53: move 'Access to private part, or (Ada 2005) use anonymous access type instead of "Action_Callback"

Alors j'ai essayé de mettre mon l'Entry_Action_Array dans la partie privé de la spécification mais je tombe sur une autre erreur dans le main à l'instanciation du générique :

Citation:

subprogram must not be deeper than access type

D'où ma question...

Merci pour vos réponses.

J'ai peut-être trouvé la solution mais j'obtiens des warnings.

J'avais cette déclaration qui levais la première erreur précedente:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure Main_Quit (Action, Main_Window : System.Address); pragma Convention (C, Main_Quit); -- Called when Quit actions has been selected Main_Entries : constant Action_Entry_Array := (1 => Create (Name => "FileMenu", Label => "_File"), 2 => Create (Name => "Quit", Stock_Id => Stock_Quit, Label => "_Quit", Accelerator => "<control>Q", Tooltip => "Quit", Callback => Main_Quit'Access),
Alors j'ai mis :
Code:

1 2 3 4 5 6 7 8 9 Main_Entries : constant Action_Entry_Array := (1 => Create (Name => "FileMenu", Label => "_File"), 2 => Create (Name => "Quit", Stock_Id => Stock_Quit, Label => "_Quit", Accelerator => "<control>Q", Tooltip => "Quit", Callback => Main_Quit'Access.all'access),
Mais à présent, j'ai un warning :

Citation:

midimal.adb:29:04: warning: in instantiation at mal-x.adb:959
midimal.adb:29:04: warning: accessibility check failure
midimal.adb:29:04: warning: "Program_Error" will be raised at run time
midimal.adb:29:04: warning: in instantiation at mal-x.adb:959
midimal.adb:29:04: warning: cannot convert local pointer to non-local access type
midimal.adb:29:04: warning: Program_Error will be raised at run time

Bien que ça ai l'air de fonctionner.

Pff, finalement ça constitue en rien une solution, ça me fait bugguer Gnat.

Je sèche toujours.