Re: Les Callback en Ada

Liste des GroupesRevenir à fcl ada 
Sujet : Re: Les Callback en Ada
De : rosen (at) *nospam* adalog.fr (J-P. Rosen)
Groupes : fr.comp.lang.ada
Date : 16. Sep 2021, 10:48:40
Autres entêtes
Organisation : Adalog
Message-ID : <shv0d7$1sv$1@dont-email.me>
References : 1
User-Agent : Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:78.0) Gecko/20100101 Thunderbird/78.14.0
Le 16/09/2021 à 04:29, Danielle Mandi Mayagha a écrit :
Salut Salut Je viens avec un tout petit (un gros enfaite) problème  qui me sauf un peu le cerveau. bon voila! j'essaie de faire un Callback avec un Bouton mais le souci c'est que ce bon vieux Gnat me dit ceci ( pour info je suis carrément nul en anglais😊😛) :
   Instantiation error at gtk-handlers.ads : 1039
Subprogram must not be deeper than access type.
 
[...]

voici mon code :
 WITH Gtk.Main;             USE Gtk.Main;
WITH Gtk.Widget;         USE Gtk.Widget;
WITH Gtk.Window;        USE Gtk.Window;
WITH Gtk.Enums;          USE Gtk.Enums;
WITH Gtk.Button;           USE Gtk.Button;
WITH Gtk.Handlers;
 Procedure Test is
 Package P_Callback is new Gtk.Handlers.Callback (Gtk_Widget_Record);
USE P_Callback;
 Procedure Stop_Program ( Emetteur : Gtk_Widget_Record'Class ) is
Pragma Unreferenced (Emetteur);
begin
Main_Quit;
 end Stop_Program;
Ici, Stop_Program est un sous-programme interne à la procédure Test
 Win : Gtk_Window;
Bouton : Gtk_Button;
 begin
Init;
 Gtk_New (Win);
Win.Set_Default_Size (600,400);
 Gtk_New (Bouton,"Le Bouton");
  Win.Add (Bouton);
 P_Callback.Connect (Bouton,"Clicked", To_marshaller (Stop_Program'Access));
Le type attendu par To_Marshaller est un pointeur global. On ne peut lui passer un sous-programme local, car il y aurait un risque de pouvoir accéder au sous-programme après être sorti de sa portée.
Le plus simple: sors Stop_Program de Test en le mettant dans un fichier séparé. (bien sûr, pour pouvoir y accéder, Test devra faire un "with Stop_Program;")
--
J-P. Rosen
Adalog
2 rue du Docteur Lombard, 92441 Issy-les-Moulineaux CEDEX
Tel: +33 1 45 29 21 52
https://www.adalog.fr

Date Sujet#  Auteur
16 Sep 21 * Les Callback en Ada8Danielle Mandi Mayagha
16 Sep 21 `* Re: Les Callback en Ada7J-P. Rosen
17 Sep 21  `* Re: Les Callback en Ada6Danielle Mandi Mayagha
20 Sep 21   `* Re: Les Callback en Ada5Danielle Mandi Mayagha
20 Sep 21    +* Re: Les Callback en Ada3DrPi
21 Sep 21    i`* Re: Les Callback en Ada2Danielle Mandi Mayagha
20 Jan 22    i `- Re: Les Callback en Ada1Thomas
21 Sep 21    `- Re: Les Callback en Ada1Ludovic Brenta

Haut de la page

Les messages affichés proviennent d'usenet.

NewsPortal