Private primitive operations available to entire package hierarchy. Can it be done?

["Lucretia" <lucretia9@lycos.co.uk>]

Hi,

In my work with wxAda, I've found a need for some primitives to be
private to the outside of the "wx." package hierarchy, yet packages
within "wx." need to acces them.

e.g.

The package "wx.Window" contains a function which creates an Ada type
rooted at Window_Type for a specific C++ instance type and class name
(i.e. "wxWindow", "wxTopLevelWindow", etc.). This is also required in
other packages, yet I don't want an application using wxAda to be able
to see/use it at all.

I also need to be able to do this without causing cyclic dependencies
as I can see this happening quite easily.

I have also added a factory to allow creation of Ada types from a C++
class name, at the moment, I register each type within the statement
part of a package body. Is there an easier way register these
factories? Currently to register a factory the package needs to be
"with'd".

Thanks,
Luke.

P.S: Has Ada0X been put back another year?