From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM, WEIRD_PORT autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 2002:a37:a283:: with SMTP id l125mr4199370qke.298.1572911094308; Mon, 04 Nov 2019 15:44:54 -0800 (PST) X-Received: by 2002:a9d:4042:: with SMTP id o2mr2439932oti.22.1572911093951; Mon, 04 Nov 2019 15:44:53 -0800 (PST) Path: eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!j16no433095qtl.0!news-out.google.com!g53ni661qtg.0!nntp.google.com!j16no433090qtl.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Mon, 4 Nov 2019 15:44:53 -0800 (PST) In-Reply-To: <254277d5-2ccc-474c-a65d-c5e2def102bd@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=2a02:a03f:e3e9:4d00:1260:4bff:fe89:deb2; posting-account=kTRirAoAAACnF_wtAOSamxYBSVvmJuCa NNTP-Posting-Host: 2a02:a03f:e3e9:4d00:1260:4bff:fe89:deb2 References: <254277d5-2ccc-474c-a65d-c5e2def102bd@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: Re: gtkada Connecting via the Gtk.Handlers object_connect problem From: Alain De Vos Injection-Date: Mon, 04 Nov 2019 23:44:54 +0000 Content-Type: text/plain; charset="UTF-8" Xref: reader01.eternal-september.org comp.lang.ada:57477 Date: 2019-11-04T15:44:53-08:00 List-Id: On Sunday, November 3, 2019 at 12:37:46 PM UTC+1, Alain De Vos wrote: > I try an application with one button and one label and one handler > > http://docs.adacore.com/live/wave/gtkada/html/gtkada_ug/signals.html#second-case-using-object-connect-instead > ------------------------- > I have a file myvboxpak.ads -> > package myvboxpak is > > type MyVBoxR is new Gtk_VBox_Record with record > Button : Gtk_Button; > Label : Gtk_Label; > end record; > type MyVBoxT is access all MyVBoxR'Class; > > package MYCB is new Gtk.Handlers.User_Callback(Glib.Object.GObject_Record,MyVBoxT); > > procedure MyButtonClick (T : MyVBoxR'Class); --eventhandler > end myvboxpak; > --------------------------------- > A file myvboxpak -> > package body myvboxpak is > procedure MyButtonClick (User_Data => T : MyVBoxR'Class) is > begin > ..... > ------------------------------------ > A file hello.adb -> > procedure hello is > Top : Gtk.Window.Gtk_Window; > MyVBox : MyVBoxT; > > procedure Create_Window is > begin > Gtk.Window.Gtk_New > (Window => Top, > The_Type => Gtk.Enums.Window_Toplevel); > Gtk.Window.Set_Title (Window => Top, Title => "Hello from ADA"); > > MyVBox := new MyVBoxR; > Initialize_Vbox (MyVBox); > Gtk_New (MyVBox.Button); > MyVBox.Add (MyVBox.Button); > Gtk_New (MyVBox.Label); > MyVBox.Add (MyVBox.Label); > > Add (Top,MyVBox); > MYCB.Object_Connect > (Widget => MYVBOX.Button, > Name => "clicked", > Marsh => MYCB.To_Marshaller (MyButtonClick'Access), -- The signal handler > Slot_Object =>Top, > User_Data => MYVBOX > ); > ... > > The error received while compiling is : > Compile > [Ada] hello.adb > hello.adb:35:27: no candidate interpretations match the actuals: > hello.adb:35:56: expected type "Handler" defined at gtk-marshallers.ads:546, instance at gtk-handlers.ads:1164, instance at myvboxpak.ads:17 > hello.adb:35:56: found type access to procedure "MyButtonClick" defined at line 35 > hello.adb:35:56: ==> in call to "To_Marshaller" at gtk-handlers.ads:1205, instance at myvboxpak.ads:17 > > Or , "MYCB.To_Marshaller (MyButtonClick'Access)" , does not have the correct type, the functions expects a "Handler". Or should I do something like, package Button_Handler is new Handlers.Callback (Gtk_Button_Record); ?