From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,4ee76705c0d90ce,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-12-12 08:54:47 PST
Newsgroups: comp.lang.ada
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newspeer.radix.net!uunet!ash.uu.net!xyzzy!nntp
From: "Nelson Chandler" <NOSPAM_nelson.c.chandler@boeing.com>
Subject: Need Help With GLUT (Apex NT 4.2.0)
X-Nntp-Posting-Host: e120589.sw.nos.boeing.com
Message-ID: <H70MHL.n@news.boeing.com>
X-Mimeole: Produced By Microsoft MimeOLE V6.00.2600.0000
X-Priority: 3
X-Msmail-Priority: Normal
Sender: nntp@news.boeing.com (Boeing NNTP News Access)
Organization: The Boeing Company
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
Date: Thu, 12 Dec 2002 16:44:10 GMT
Xref: archiver1.google.com comp.lang.ada:31748
Date: 2002-12-12T16:44:10+00:00
List-Id: <comp.lang.ada>

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;