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,be6e28f854440947
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!proxad.net!feeder1-2.proxad.net!feeder.erje.net!news.internetdienste.de!newsfeed.velia.net!noris.net!newsfeed.arcor.de!newsspool3.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Thu, 21 Oct 2010 18:47:40 +0200
From: Georg Bauhaus <rm.dash-bauhaus@futureapps.de>
User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US;
 rv:1.9.2.11) Gecko/20101013 Thunderbird/3.1.5
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: How to get the mouse position with JEWL?
References: <i9nq7p$75o$1@peque.uv.es> <i9nroj$r03$1@speranza.aioe.org>
 <86bfa3ba-f67f-4ee2-95f6-c0c66ad08207@k22g2000yqh.googlegroups.com>
In-Reply-To: 
 <86bfa3ba-f67f-4ee2-95f6-c0c66ad08207@k22g2000yqh.googlegroups.com>
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Message-ID: <4cc06eac$0$6766$9b4e6d93@newsspool3.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 21 Oct 2010 18:47:40 CEST
NNTP-Posting-Host: f5da419a.newsspool3.arcor-online.net
X-Trace: 
 DXC=Q_VaAb`W:A>lIh70@<QIE7McF=Q^Z^V384Fo<]lROoR18kF<OcfhCO;b]0=LcU[4[1nc\616M64>:Lh>_cHTX3j=MUYo\jDToc:
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news2.google.com comp.lang.ada:15630
Date: 2010-10-21T18:47:40+02:00
List-Id: <comp.lang.ada>

On 21.10.10 17:23, tolkamp wrote:
> On 21 okt, 00:51, tmo...@acm.org wrote:
>> This works for me for Windows
>>     type Points is record
>>       x,y : interfaces.c.int;
>>     end record;
>>     type bool is new interfaces.c.int;
>>     function GetCursorPos(point : access points) return bool;
>>     pragma import(stdcall,GetCursorPos, "GetCursorPos");
>>     current : aliased points;
>>     ...
>>       if getcursorpos(current'access) = 0 then
>>         -- current now has mouse position
>>       else -- Windows error
> 
> When I include "with interfaces.c.int" the compilation results in
> error:
> Interface.C.Init is not a predefined library unit.

"int" is the name of a type in package Interface.C.
"With" that.


Georg