Q831-010 Remove ineffective use clauses.

Change-Id: I07f98ddef124c4ba00ca670d1173e7f7db304683

Author: godunko

src/glib-type_conversion_hooks.adb

@@ -79,10 +79,8 @@ package body Glib.Type_Conversion_Hooks is
       function Get_Type (Obj : System.Address) return GType;
       pragma Import (C, Get_Type, "ada_gobject_get_type");
 
-      The_Type  : GType := Get_Type (Obj);
-      Hooks     : Glib.Type_Conversion_Hooks.Hook_List_Access;
-
-      use type Glib.Type_Conversion_Hooks.Hook_List_Access;
+      The_Type : GType := Get_Type (Obj);
+      Hooks    : Glib.Type_Conversion_Hooks.Hook_List_Access;
 
    begin
       while The_Type > GType_Object loop

src/glib.ads

@@ -39,8 +39,6 @@ package Glib is
    pragma Preelaborate;
 
    package C renames Interfaces.C;
-   use type C.int;
-   use type C.unsigned;
 
    -------------------------------------
    -- The basic types defined by glib --

src/gtkada-canvas_view.adb

@@ -3198,7 +3198,6 @@ package body Gtkada.Canvas_View is
      (Self     : not null access Container_Item_Record;
       In_Model : not null access Canvas_Model_Record'Class)
    is
-      use Item_Sets;
       To_Remove : Item_Sets.Set;
 
       procedure Do_Child (C : not null access Container_Item_Record'Class);

src/gtkada-dialogs.adb

@@ -218,7 +218,6 @@ package body Gtkada.Dialogs is
       Img         : Gtk_Image;
       Pixmap      : Gdk_Pixbuf;
 
-      use Gdk;
    begin
       Gtk_New
         (Dialog,

src/gtkada-mdi.adb

@@ -1956,7 +1956,6 @@ package body Gtkada.MDI is
    -------------------
 
    procedure Destroy_Child (Child : access Gtk_Widget_Record'Class) is
-      use type Widget_SList.GSlist;
       C                   : constant MDI_Child := MDI_Child (Child);
       MDI                 : constant MDI_Window := C.MDI;
       In_Selection_Dialog : Boolean := False;

src/gtkada-multi_paned.adb

@@ -720,8 +720,8 @@ package body Gtkada.Multi_Paned is
    procedure Destroy_Paned
      (Paned : access Gtk_Widget_Record'Class)
    is
-      use type Widget_List.Glist;
       Split : constant Gtkada_Multi_Paned := Gtkada_Multi_Paned (Paned);
+
    begin
       --  Destruction of children would be done automatically by the default
       --  "destroy" handler of the ancestor of Gtkada_Multi_Paned (ie GtkFixed)

src/pango.ads

@@ -30,7 +30,7 @@ pragma Warnings (Off);
 with System;  --   Needed for child packages
 pragma Warnings (On);
 
-with Glib;   use Glib;
+with Glib;
 
 package Pango is