Règles du forum

Le langage Ada uniquement, pas les compilateurs. Les questions de sémantique et de langage et les questions techniques liées à une application en particulier, son deux choses différentes. Si nécessaire, un forum sur GNAT et les autres compilateurs, tel JanusAda, sera ouvert.

Auteur Message
Emmanuel Sens
Beau Parleur
Avatar de l’utilisateur
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.
Profil
Emmanuel Sens
Beau Parleur
Avatar de l’utilisateur
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.
Profil
  1. Index du forum
  2. Sciences
  3. Sciences Classiques
  4. Ada