Re: Hiding a type

[sk <noname@myob.com>]

Hi, 

Not sure if this is what you are looking for, but 

package Whatever is

    type Something is private;

    procedure Some_Procedure (Thing : Something);

private

    type Internal_Something;

    type Something is access Internal_Something;

end Whatever;

package body Whatever is

    type Internal_Something is new Integer;
    -- Whatever type you define

    procedure Some_Procedure (Thing : Something) is
    begin
        null;
    end Some_Procedure;

end Whatever;

The item of interest being the incomplete definition of
"Internal_Something" in the package specification.

-- 
-------------------------------------
-- Merge vertically for real address
-------------------------------------
s n p @ t . o
 k i e k c c m
-------------------------------------