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
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:ac8:1413:: with SMTP id k19mr4076379qtj.360.1572690168940;
        Sat, 02 Nov 2019 03:22:48 -0700 (PDT)
X-Received: by 2002:a54:448b:: with SMTP id v11mr6931301oiv.155.1572690168680;
 Sat, 02 Nov 2019 03:22:48 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!news.muarf.org!nntpfeed.proxad.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!j16no2738903qtl.0!news-out.google.com!g53ni348qtg.0!nntp.google.com!j16no2738896qtl.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 2 Nov 2019 03:22:48 -0700 (PDT)
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
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <cf3be50e-637f-4db3-b0a2-ed5d251af8b5@googlegroups.com>
Subject: gtkada evenhandler on_procedure method , how to access children of
 topwindow in the eventhandler
From: Alain De Vos <devosalain71@gmail.com>
Injection-Date: Sat, 02 Nov 2019 10:22:48 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:57440
Date: 2019-11-02T03:22:48-07:00
List-Id: <comp.lang.ada>

I have a window with obe button and one label and want to change the text on the label when the button is pressed in the eventhandler, I pass the top window.

procedure hello is
   Top     : Gtk.Window.Gtk_Window;
   Button  : Gtk_Button;
   Label   : Gtk_Label;
   VBox    : Gtk_Box;
   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");
      Gtk_New(Button);
      Button.On_Clicked (Call => On_Button_Click'Access, 
                         Slot => Top);
      Gtk_New(Label);
      Gtk_New_Vbox(VBox);
      Add (VBox,Button);
      Add (VBox,Label);
      Add (Top,VBox);
      Gtk.Window.Show_All (Top);
   end Create_Window;
begin
   Gtk.Main.Init;
   Create_Window;
   Gtk.Main.Main;
end hello;

I pass the topwindow to the eventhandler(slot).
In the eventhandler I need go from the Top to the Vbox to the Label and set the text on the label ... button pressed. I probably need to set a property in the main and query it in the handler and cast the correct type ...
{The label is not directly visible in the handler ...}

package body buttonhandler is
   procedure On_Button_Click (Top : access Glib.Object.GObject_Record'Class) is
   begin
      Put_line ("Hallo");
      -- I need to go from Top to Vbox to Label and set text ... ????
   end On_Button_Click;
end buttonhandler;