Re: GtkAda callback and event

[DrPi <314@drpi.fr>]

Le 05/09/2021 à 17:53, Dmitry A. Kazakov a écrit :
> On 2021-09-05 17:20, DrPi wrote:
>> Le 05/09/2021 à 17:12, Dmitry A. Kazakov a écrit :
> 
>>> It is a part of GValues object. But you could create a child package 
>>> that would have access to the internals of GValue and get access to 
>>> C_GValues in GValue.
>>>
>> I didn't know I can create a  child Package of a GtkAda Package myself.
> 
> Of course you can:
> 
>     package Glib.Values.My_Stuff is
>        function Get_C_Values (List : GValues) return C_GValues;
>     end Glib.Values.My_Stuff;
> 
>     package body Glib.Values.My_Stuff is
>        function Get_C_Values (List : GValues) return C_GValues is
>        begin
>           return List.Arr;
>        end Get_C_Values;
>     end Glib.Values.My_Stuff;
> 
That's what I did after you told me it's possible.

My first attempt was with an expression function like the following :

      package Glib.Values.User is
         function Get_C_GValues (Val : GValues) return C_GValues is 
(Val.Arr);
      end Glib.Values.User;

But that didn't work. The compiler complained about something I don't 
remember.
I then used the classical function implementation and all went well.