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.Image
Date: Thu, 9 Sep 2021 18:03:09 +0200
Organization: Aioe.org NNTP Server
Message-ID: <shdb7s$1frc$1@gioia.aioe.org>
References: <2fee8bdc-8803-4ca4-8633-57a41b26b761n@googlegroups.com>
 <sgnfie$889$1@gioia.aioe.org>
 <540ef7e6-4a3e-49e4-ae25-c9a0ee57985en@googlegroups.com>
 <sgrb32$646$1@gioia.aioe.org>
 <1cc1fc02-3ce5-4756-ae43-78c3110a2bden@googlegroups.com>
 <03326986-05d8-48fc-9f9e-b19ca5b1fa13n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Info: gioia.aioe.org; logging-data="49004"; 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.14.0
X-Notice: Filtered by postfilter v. 0.9.2
Content-Language: en-US
Xref: reader02.eternal-september.org comp.lang.ada:62681
List-Id: <comp.lang.ada>

On 2021-09-09 17:31, AdaMagica wrote:
> AdaMagica schrieb am Freitag, 3. September 2021 um 09:32:24 UTC+2:
>> Dmitry A. Kazakov schrieb am Donnerstag, 2. September 2021 um 22:10:13 UTC+2:
>>> I have a small Ada utility program converting an XPM image to Ada
>>> packages. E.g. open BMP in GIMP and export it as XPM.
>> Thanks, I'll try it
>> Christoph
> Dmitry,
> I've produced the files Ada_9X_xpm-image.ads/adb .
> Problem is: Ada_9X_xpm.adb starts thus:
> 
> with Gdk.Pixbuf.Conversions;  <-- GNAT complains: file not found
> package body Ada_9X_xpm is
> 
> Have I overlooked something in your documentation?

It is a helper package from the GtkAda contributions:

----------------------------------
-- GtkAda  2.14.2  introduced  a  backward  incompatibility  by   making
-- Gdk_Pixbuf a tagged type rather than plain pointer.  This package  is
-- provided for backward compatibility of the GtkAda Contributions.
--
-- !!WARNING!! Use only with GtkAda >= 2.14.2
--
with Gdk.Pixbuf;   use Gdk.Pixbuf;
with GLib.Object;  use GLib.Object;
with System;       use System;

with Glib.Properties;
with Gtk.Cell_Renderer_Pixbuf;

package Gdk.Pixbuf.Conversions is
--
-- From_Address -- Ada object creation
--
--    Object - Obtained from a GDK call
--
-- Returns :
--
--    The Ada object
--
    function From_Address (Object : Address) return Gdk_Pixbuf
       renames Convert;
--
-- To_Address -- Getting C object address
--
--    Object - An Ada object
--
-- Returns :
--
--    The C object's address
--
    function To_Address
             (  Object : access GObject_Record'Class
             )  return Address renames GLib.Object.Get_Object;
--
-- Set_Pixbuf_Property -- Set pixbuf property
--
    procedure Set_Pixbuf_Property
              (  Object : access GObject_Record'Class;
                 Name   : Glib.Properties.Property_Object :=
                             Gtk.Cell_Renderer_Pixbuf.Pixbuf_Property;
                 Value  : access GObject_Record'Class
              )  renames Glib.Properties.Set_Property;

    subtype To_Value is Gdk_Pixbuf;

end Gdk.Pixbuf.Conversions;
----------------------------------

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