Passage de paramètres avec un callback

Passage de paramètres avec un callback - Ada - Programmation

Marsh Posté le 09-02-2004 à 23:58:35    

Voilà, c'est encore moi.
 
Bref, je voudrais saovir s'il est possible de passer des paramètres à une fonctions lorsqu'on l'appelle par un callback
 

Code :
  1. -- Définition des callbacks
  2. package Handlers is new Gtk.Handlers.Callback
  3.      (Widget_Type => Gtk.Widget.Gtk_Widget_Record);
  4. package Return_Handlers is new Gtk.Handlers.Return_Callback
  5.      (Widget_Type => Gtk.Widget.Gtk_Widget_Record,
  6.       Return_Type => Boolean);


 

Code :
  1. Handlers.Connect(bouton(1) ,"clicked",Handlers.To_Marshaller(Bt_1'access));


 
voilà ce que je fais d'habitude.
Ah oui
 
Bt1 est défini comme ci :

Code :
  1. procedure Bt_1(widget : access Gtk_Widget_Record'class) is
  2.    begin
  3.       put_line("hello" );
  4.    end Bt_1;


 
Par exemple, je voudrais pouvoir spécifier la chaine à afficher quand je clique sur le bouton. Je voudrais donc savoir si c'ets possible, et si oui, comment m'y prendre.
J'ai éssayé en faisant un truc comme çà:

Code :
  1. procedure Bt_1(widget : access Gtk_Widget_Record'class; char : in character) is
  2.    begin
  3.       put_line(char);
  4.    end Bt_1;


 
et
 

Code :
  1. Handlers.Connect(bouton(1) ,"clicked",Handlers.To_Marshaller(Bt_1'access),'a');


 
mais il y a une erreur dans la liste des paramètres. Il doit surement y avoir un moyen, mais je ne vois pas comment.
@++

Reply

Marsh Posté le 09-02-2004 à 23:58:35   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed