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

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

Hmm, what I posted was a bit wrong. The event handler connect generics
actually take an Event_Handler_Class which all windows are rooted at.
Another example is when passing the items to sizers using "Add" after
the controlling parameter the next parameter is a Window_Class
(currently - it will be possible to add sizers as well in the future)
which is the item to add into the sizer, this is where I've needed to
use aliased.

In my minimal sample I derive a new Frame_Type and within that I have
declared a Button_Type instance, i.e.

type Minimal_Frame_Type is new Frame_Type with
  record
    ...
    Button : aliased Button_Type;
    ...
  end record;

Now, in the code I do this:

Add(Some_Sizer, Self.Button'Unchecked_Access...);

If I remove the aliased, it wont compile because Button is not aliased
(it is rooted at Object_Type like all other wxAda types).

If I keep aliased but use 'Access it doesn't compile because it is a
local object - I have also tried allocating the Minimal_Frame_Type
using new rather than having a "global" and it still requires the
aliased.

Because of all of this, I am seriously considering using pointers to
these instances rather than just instantiating them, i.e.:

type Minimal_Frame_Type is new Frame_Type with
  record
    ...
    Button : Button_Access;
    ...
  end record;

type Minimal_Frame_Access is access all Minimal_Frame_Type;

and having all primitives take an access parameter as the controlling
parameter.

Thanks,
Luke.