Visibility rules and package names

[Jacob Sparre Andersen <sparre@nbi.dk>]

When I started thinking about structuring the GUI code for a project I
am working on, I quickly came to a point where I had the following
piece of code:

   package Project_Name is
      type Data_Type is null record;
   end Project_Name;

   package GtkAda is
   end GtkAda;

   package GtkAda.Project_Name is
   end GtkAda.Project_Name;

   with Project_Name;
   package GtkAda.Project_Name.Specialized_Widget is
      use type Project_Name.Data_Type;               -- Problem!
   end GtkAda.Project_Name.Specialized_Widget;

Since "Project_Name" refers to "GtkAda.Project_Name" in child packages
of "GtkAda.Project_Name" this will not compile.

Is there a way to refer to package "Project_Name" inside children of
"GtkAda.Project_Name"?  Or will I have to rename one of the packages
"GtkAda.Project_Name" and "Project_Name"?

Jacob
-- 
"[...] *transfer* a bit of salary from the person who writes
 a bug to the person that finds a bug..." -- Keith Ray