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,714a40eb8c53061d
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news3.google.com!feeder.news-service.com!aioe.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: ADA and Open GL
Date: Tue, 09 Aug 2011 15:51:32 +0100
Organization: Aioe.org NNTP Server
Message-ID: <m2pqke3aff.fsf@pushface.org>
References: <4e4144df$0$2573$703f8584@news.kpn.nl>
NNTP-Posting-Host: SptRn4/nB6/EZ1vi/h8RlA.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.3 (darwin)
X-Notice: Filtered by postfilter v. 0.8.2
Cancel-Lock: sha1:i9d9joacPs+bTdo0F3pigFbZC/k=
Xref: g2news2.google.com comp.lang.ada:21468
Date: 2011-08-09T15:51:32+01:00
List-Id: <comp.lang.ada>

"ldries46" <bertus.dries@planet.nl> writes:

> I do have a program where I have to create an OpenGL window in a
> selected number of cases.
> When compiling I get the error message:
>
> cannot use function "glutCreateWindow" in a procedure call
>
> when I create a function in stead of a procedure I get the same error
> message

The problem is (presumably!) that glutCreateWindow() is a
function. Google shows:

Usage

  int glutCreateWindow(char *name);

  name
    ASCII character string for use as window name.

[...]

  The value returned is a unique small integer identifier for the
  window. The range of allocated identifiers starts at one. This window
  identifier can be used when calling glutSetWindow.

So, if you don't want the identifier, say something like

  declare
    dummy : integer;
    pragma unreferenced (dummy);
  begin
    dummy := glutCreateWindow( pwin );
  end;