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-Thread: 103376,a949937a76bda3b7
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!feeder.news-service.com!85.214.198.2.MISMATCH!eternal-september.org!feeder.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: Setting up Opengl
Date: Fri, 19 Nov 2010 20:14:42 +0000
Organization: A noiseless patient Spider
Message-ID: <m2y68p5avh.fsf@pushface.org>
References: 
 <1b5c6b5d-c5aa-4e59-9079-940d3f269e29@q14g2000yqe.googlegroups.com>
	<976e2a89-130e-4150-8b50-97f68b97330a@z19g2000yqb.googlegroups.com>
	<c4631d08-4bd5-4706-98a6-0a13f927153c@r14g2000yqa.googlegroups.com>
	<4ce45a30$0$7670$9b4e6d93@newsspool1.arcor-online.net>
	<7a62e247-9a36-4471-a559-4ded9810adea@v12g2000vbh.googlegroups.com>
	<m2aal676i5.fsf@pushface.org>
	<4ce5ae3b$0$6979$9b4e6d93@newsspool4.arcor-online.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Injection-Info: mx01.eternal-september.org;
 posting-host="dFCm8HWntFqmDIilBLqEJQ";
	logging-data="31224"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1/kR1GzLIdx1YyoeyInpX2cGZW6D8YHWGg="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (darwin)
Cancel-Lock: sha1:wEJZpQuOjbJx0QEndAeoDAk6+SM=
	sha1:nCPEhN1Pat2Dz8Gj8ANvRM+zOL0=
Xref: g2news1.google.com comp.lang.ada:15621
Date: 2010-11-19T20:14:42+00:00
List-Id: <comp.lang.ada>

Georg Bauhaus <rm-host.bauhaus@maps.futureapps.de> writes:

> On 11/18/10 8:53 PM, Simon Wright wrote:

> Mini.adb has been added a few minutes ago.
> The compiler wants an additional keyboard parameter
> for Strike_once. Guessing, then, I have added one and
> mini works, now.  Nice.
>
> *** mini.adb	Thu Nov 18 23:42:56 2010
> --- mini.orig	Thu Nov 18 23:39:48 2010
> ***************
> *** 235,240 ****
>   !     if GLUT.Devices.Strike_once(
> !         Character'Val(27),
> !         GLUT.Devices.default_Keyboard'Access)
> !     then
>         GLUT.LeaveMainLoop;
> --- 235,237 ----
>   !     if GLUT.Devices.Strike_once( Character'Val(27) ) then
>         GLUT.LeaveMainLoop;

You might add this ... builds fine now.

--- globe_3d_gps_darwin.gpr	(revision 141)
+++ globe_3d_gps_darwin.gpr	(working copy)
@@ -2,7 +2,7 @@
 
    for Object_Dir use "../obj/gnatdebg";
    for Source_Dirs use (".", "../bindings", "../bindings/linux", "../src//**");
-   for Main use ("globe_3d_demo.adb", "Mini.adb");
+   for Main use ("globe_3d_demo.adb", "mini.adb");
    for Exec_Dir use ".";
 
    package Binder is