Merge branch 'topic/gtkada.4.mold_warning' into 'master'

Fix mold warning in testgtk

See merge request eng/ide/gtkada!14

Author: AdrienBoulanger

testgtk/create_css_accordion.adb

@@ -34,12 +34,13 @@ with Gtk.Container; use Gtk.Container;
 
 package body Create_Css_Accordion is
 
+   package FA is new Forall_User_Data (Gtk_Style_Provider);
+
    procedure Run (Frame : access Gtk.Frame.Gtk_Frame_Record'Class) is
       Box : Gtk_Box;
       Provider : constant Gtk_Css_Provider
         := Gtk_Css_Provider_New;
       Error : aliased Glib.Error.GError;
-      package FA is new Forall_User_Data (Gtk_Style_Provider);
 
       procedure Apply_Css
         (Widget : not null access Gtk.Widget.Gtk_Widget_Record'Class;

testgtk/create_css_editor.adb

@@ -36,6 +36,8 @@ with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
 
 package body Create_Css_Editor is
 
+   package FA is new Forall_User_Data (Gtk_Style_Provider);
+
    CSS : constant String :=
       "/* You can edit the text in this window to change the" & ASCII.LF
      & " * appearance of this Window." & ASCII.LF
@@ -94,8 +96,6 @@ package body Create_Css_Editor is
       Text_Buffer : Gtk_Text_Buffer;
       Text_View : Gtk_Text_View;
 
-      package FA is new Forall_User_Data (Gtk_Style_Provider);
-
       procedure Apply_Css
         (Widget : not null access Gtk.Widget.Gtk_Widget_Record'Class;
          Provider : Gtk_Style_Provider)