Merge branch 'topic/vadim/pangocairo' into 'master'

Subprogram to set default Pango/Cairo backend.

See merge request eng/ide/gtkada!31

Author: godunko

src/pango-cairo.adb

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                  GtkAda - Ada95 binding for Gtk+/Gnome                   --
 --                                                                          --
---                     Copyright (C) 2010-2018, AdaCore                     --
+--                     Copyright (C) 2010-2025, AdaCore                     --
 --                                                                          --
 -- This library is free software;  you can redistribute it and/or modify it --
 -- under terms of the  GNU General Public License  as published by the Free --
@@ -26,6 +26,28 @@ with Glib.Object; use Glib.Object;
 
 package body Pango.Cairo is
 
+   ---------------------------
+   -- Set_Default_Font_Type --
+   ---------------------------
+
+   procedure Set_Default_Font_Type
+     (Font_Type : Standard.Cairo.Cairo_Font_Type)
+   is
+      function pango_cairo_font_map_new_for_font_type
+        (fonttype : Standard.Cairo.Cairo_Font_Type) return System.Address with
+        Import, Convention => C,
+        Link_Name          => "pango_cairo_font_map_new_for_font_type";
+
+      procedure pango_cairo_font_map_set_default
+        (fontmap : System.Address) with
+        Import, Convention => C,
+        Link_Name          => "pango_cairo_font_map_set_default";
+
+   begin
+      pango_cairo_font_map_set_default
+        (pango_cairo_font_map_new_for_font_type (Font_Type));
+   end Set_Default_Font_Type;
+
    -----------------
    -- Show_Layout --
    -----------------

src/pango-cairo.ads

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                  GtkAda - Ada95 binding for Gtk+/Gnome                   --
 --                                                                          --
---                     Copyright (C) 2010-2018, AdaCore                     --
+--                     Copyright (C) 2010-2025, AdaCore                     --
 --                                                                          --
 -- This library is free software;  you can redistribute it and/or modify it --
 -- under terms of the  GNU General Public License  as published by the Free --
@@ -37,4 +37,13 @@ package Pango.Cairo is
    --  Draws a pango layout in the specified cairo context. The top-left corner
    --  of Layout will be drawn at the current point of the cairo context.
 
+   procedure Set_Default_Font_Type (Font_Type : Standard.Cairo.Cairo_Font_Type);
+   --  Sets the default fontmap used by default. This can be used to
+   --  change the Cairo font backend that the default fontmap uses,
+   --  for example. The old default font map is unreffed.
+   --  Note that since Pango 1.32.6, the default fontmap is per-thread.
+   --  This function only changes the default fontmap for the current thread.
+   --  Default fontmaps of existing threads are not changed. Default fontmaps
+   --  of any new threads will still be created using the default mechanism.
+
 end Pango.Cairo;