Discussion :

[Invité]

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 :

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 :

subprogram must not be deeper than access type

D'où ma question...

Merci pour vos réponses.

[Invité]

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 ada :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ada :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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.

[Invité]

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


Je sèche toujours.