Instantiation problem in generic.

["Bobby D. Bryant" <bdbryant@mail.utexas.edu>]

Am I interpreting this GNAT message correctly? (the compiler is GNAT 3.15p)

For the code in the body of a generic library package (pardon the
wrapping) -

-- Set up callbacks for the window manager's decorations:
GTK_Stuff.Widget_Callback_Returning_Boolean.Connect
   (Widget => Histogram_Window,
    Name   => "delete_event",
    Marsh  => GTK_Stuff.Widget_Callback_Returning_Boolean.To_Marshaller
                 (Close_Histogram_Window_Fn'Access));
--
GTK_Stuff.Widget_Callback.Connect
   (Widget => Histogram_Window,
    Name   => "destroy",
    Marsh  => GTK_Stuff.Widget_Callback.To_Marshaller
                 (Close_Histogram_Window'Access));

I get error messages when compiling the package body (line numbers off due
to Usenet wrapping) -

746. Marsh  => GTK_Stuff.Widget_Callback_Returning_Boolean.To_Marshaller
                  (Close_Histogram_Window_Fn'Access));
        >>> access type must not be outside generic body

750. Marsh  => GTK_Stuff.Widget_Callback.To_Marshaller
                  (Close_Histogram_Window'Access));
        >>> access type must not be outside generic body

The Close_Histogram_* subprograms are defined within the body of the
generic package, so I don't understand what the compiler is complaining
about.

If I put declarations in the package spec, whether in the public area or
the private area, the message is suppressed when compiling the package,
but it still occurs when compiling the program that instantiates it.

Any suggestions?

-- 
Bobby Bryant
Austin, Texas