Re: What does this error mean and how do I correct this?

["Luke A. Guest" <laguest@archeia.com>]

Handler needs to be in a package you with.

On 01/09/2023 22:04, richardthiebaud wrote:
> in the following program:
> 
> with Gtk.Enums; use Gtk.Enums;
> with Gtk.Main;
> with Gtk.Window;
> with Gdk;
> with Gdk.Event;
> with Glib;
> with Glib.Object;
> 
> procedure test1 is
>     Win       : Gtk.Window.Gtk_Window;
>     function Handler
>       (Self  : access Glib.Object.GObject_Record'Class;
>        Event : Gdk.Event.Gdk_Event_Button) return Boolean is
>     begin
>        Gtk.Main.Main_Quit;
>        return True;
>     end Handler;
>     --
>     --  defined in gtk-widget.ads
>     --
>     --  type Cb_GObject_Gdk_Event_Button_Boolean is not null access 
> function
>     --  (Self  : access Glib.Object.GObject_Record'Class;
>     --   Event : Gdk.Event.Gdk_Event_Button) return Boolean;
> 
> begin  -- Gtk.Init;
>     Gtk.Main.Init;
>     Gtk.Window.Gtk_New (Window => Win, The_Type => 
> Gtk.Enums.Window_Toplevel);
>     Win.Set_Position (Win_Pos_Center);
>     Gtk.Window.Set_Title (Window => Win, Title => "Editor");
>     Gtk.Window.Show_All (Win);
>     Win.On_Button_Press_Event     <------------ line that gets the error
>        (Call =>  Handler'Access,
>         After => False,
>         Slot =>  Win);
>     Gtk.Main.Main;
> end test1;
> 
> I get the compiler error message:
> 
> test1.adb:32:17: subprogram must not be deeper than access type
> 
> What does this mean and how can I correct it?