Use GtkAda binding for GIO_Channel and Spawn

Author: reznikmm

gnat/spawn.gpr

@@ -23,9 +23,7 @@ project Spawn is
    for Source_Dirs use ("../source/spawn");
    for Object_Dir use "../.obj/spawn";
 
-   Common_Excluded :=
-     ("glib-spawns.ads",
-      "glib-io_channels.ads");
+   Common_Excluded := ();
 
    case OS_API is
       when "Posix" =>

source/spawn/glib-io_channels.ads

@@ -20,8 +20,7 @@ with Interfaces.C;
 
 with GNAT.Strings;
 
-with Gtkada.Bindings;
-with Glib.Spawns;
+with Glib.Spawn;
 
 package body Spawn.Environments.Internal is
 
@@ -32,8 +31,7 @@ package body Spawn.Environments.Internal is
    procedure Initialize_Default
      (Default : out Spawn.Environments.Process_Environment)
    is
-      List : GNAT.Strings.String_List :=
-        Gtkada.Bindings.To_String_List_And_Free (Glib.Spawns.g_get_environ);
+      List : GNAT.Strings.String_List := Glib.Spawn.Get_Environ;
    begin
       for Text of List loop
          declare

source/spawn/glib-spawns.ads

@@ -16,11 +16,10 @@
 ------------------------------------------------------------------------------
 
 with Ada.Finalization;
-with Interfaces.C;
 
-with Glib.IO_Channels;
+with Glib.IOChannel;
 with Glib.Main;
-with Glib.Spawns;
+with Glib.Spawn;
 
 private package Spawn.Internal is
 
@@ -34,8 +33,8 @@ private package Spawn.Internal is
    type Pipe_Kinds is (Stdin, Stdout, Stderr);
 
    type Pipe_Record is record
-      FD      : aliased Interfaces.C.int;
-      Channel : Glib.IO_Channels.Channel;
+      FD      : aliased Glib.Gint;
+      Channel : Glib.IOChannel.Giochannel;
       Event   : Glib.Main.G_Source_Id;
       --  Pipe is watched if Event /= No_Source_Id
       Watch   : Boolean;
@@ -57,7 +56,7 @@ private package Spawn.Internal is
    type Process is new Ada.Finalization.Limited_Controlled with record
       Reference : aliased Process_Reference;
       Event     : Glib.Main.G_Source_Id := 0;
-      pid       : aliased Glib.Spawns.GPid := 0;
+      pid       : aliased Glib.Spawn.GPid := 0;
       pipe      : Pipe_Array :=
         (others => (0, null, Glib.Main.No_Source_Id, False));
    end record;