Problème de connection de handler avec GtkAda

Auteur Message
Bonjour,
J'ai un problème pour connecter une procedure à un objet GtkAda.

L'objet en question est un widget Gtk_Entry nommé "Main_Line".
La specification de ma procedure est celle- ci :

Source ada : 

procedure On_Main_Line_Key_Pressed
     (The_Entry : access GObject_Record'Class;
      Args      : in Glib.Values.GValues;
      Arknos    : in Arknos_Pointer);


Mon paquetage Callback est celui- ci:

Source ada : 

package Arknos_Entry_Object_User_CB is
      new Gtk.Handlers.User_Callback
     (GObject_Record, Arknos_Pointer);


En suite j'essaie vainnement de connecter mais la marshaller ne correspond pas.
Connection au signal "key-press-event"

Source ada : 

Arknos_Entry_Object_User_CB.Object_Connect
        (
         Arknos.Main_Line,
         "key-press-event",
         Arknos_Entry_Object_User_CB.To_Marshaller
           (On_Main_Line_Key_Pressed'Access),
         Slot_object => Arknos.Main_Line,
         User_Data => Arknos
        );

En fait je n'ai aucune idée de l'objet a fournir au parametre "Slot_Object" de la fonction Object_Connect.

Je souhaiterais récupéré l'eventuelle frappe de la touche Tabulation.

Merci pour votre aide.
Rebonjour,

Il y a certainement des chose à comprendre.

Je n'utilise pas la fonction To_Marshaller et ça compile.
Et même ça s'exécute.

Merci pour votre soutient.

Juste un truc pour la précision, ici il fallait implémenter une fonction.