From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.6
Path: eternal-september.org!reader02.eternal-september.org!aioe.org!x6YkKUCkj2qHLwbKnVEeag.user.46.165.242.91.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Newsgroups: comp.lang.ada
Subject: Re: GtkAda callback and event
Date: Sun, 5 Sep 2021 17:53:39 +0200
Organization: Aioe.org NNTP Server
Message-ID: <sh2p61$1dll$1@gioia.aioe.org>
References: <6133e791$0$6461$426a74cc@news.free.fr>
 <sh0s15$1ha4$1@gioia.aioe.org> <6134cb26$0$3697$426a74cc@news.free.fr>
 <sh2lb1$1lpq$1@gioia.aioe.org> <6134db32$0$6461$426a74cc@news.free.fr>
 <6134dc71$0$3693$426a74cc@news.free.fr> <sh2mpb$950$2@gioia.aioe.org>
 <6134e03d$0$3372$426a74cc@news.free.fr>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: gioia.aioe.org; logging-data="46773"; posting-host="x6YkKUCkj2qHLwbKnVEeag.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:78.0) Gecko/20100101
 Thunderbird/78.13.0
X-Notice: Filtered by postfilter v. 0.9.2
Content-Language: en-US
Xref: reader02.eternal-september.org comp.lang.ada:62646
List-Id: <comp.lang.ada>

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;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de