From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: GtkAda.Image
Date: Thu, 9 Sep 2021 18:03:09 +0200 [thread overview]
Message-ID: <shdb7s$1frc$1@gioia.aioe.org> (raw)
In-Reply-To: 03326986-05d8-48fc-9f9e-b19ca5b1fa13n@googlegroups.com
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
next prev parent reply other threads:[~2021-09-09 16:03 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-09-01 8:42 GtkAda.Image AdaMagica
2021-09-01 9:02 ` GtkAda.Image Dmitry A. Kazakov
2021-09-02 18:16 ` GtkAda.Image AdaMagica
2021-09-02 20:10 ` GtkAda.Image Dmitry A. Kazakov
2021-09-03 7:32 ` GtkAda.Image AdaMagica
2021-09-09 15:31 ` GtkAda.Image AdaMagica
2021-09-09 16:03 ` Dmitry A. Kazakov [this message]
2021-09-11 13:35 ` GtkAda.Image AdaMagica
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox