Need Help With GLUT (Apex NT 4.2.0)

["Nelson Chandler" <NOSPAM_nelson.c.chandler@boeing.com>]

Hello All,

I'm trying to learn OpenGL using Ada on a Win2k machine.
When I try to compile the following, I get "Render_Scene is not subtype
conformant with procedure [RM_95 3.10.2(32)]".  This is an example from
"OpenGL SuperBible (2nd ed)" converted (by me) to the general format of the
sample gnat Ada programs that came with GLUT.  I'm using Apex Ada NT 4.2.0.
Can any of you tell me what's wrong and how to fix it?  Thank you.

-Nelson

--
-- File Name: simple.2.ada
--

with Glut;
use Glut;
with Gl;
with Simple_Procs;

procedure Simple is
    Dont_Care : Integer;
begin

    Glutinitdisplaymode (Glut_Single or Glut_Rgb);
    Dont_Care := Glutcreatewindow ("Simple");
    Glutdisplayfunc (Simple_Procs.Render_Scene'Access);  --COMPILER ERROR IS
HERE

    Gl.Glclearcolor (0.0, 0.0, 1.0, 1.0);

    Glutmainloop;

end Simple;

--
-- File Name: simple_procs.1.ada
--
with Glut;

package Simple_Procs is
    procedure Render_Scene;
end Simple_Procs;

--
-- File Name: simple_procs.2.ada
--
with Gl;
package body Simple_Procs is
    procedure Render_Scene is
    begin
        Gl.Glclear (Gl.Gl_Color_Buffer_Bit);
        Gl.Glflush;
    end Render_Scene;
end Simple_Procs;