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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no 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
Path: 
 g2news2.google.com!postnews.google.com!n26g2000yqh.googlegroups.com!not-for-mail
From: tolkamp <f.tolkamp@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: How to get the mouse position with JEWL?
Date: Thu, 21 Oct 2010 10:09:17 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <84fbd137-d7d2-47e2-8cba-58e734d69d10@n26g2000yqh.googlegroups.com>
References: <i9nq7p$75o$1@peque.uv.es> <i9nroj$r03$1@speranza.aioe.org>
 <86bfa3ba-f67f-4ee2-95f6-c0c66ad08207@k22g2000yqh.googlegroups.com>
 <4cc06eac$0$6766$9b4e6d93@newsspool3.arcor-online.net>
NNTP-Posting-Host: 62.163.210.190
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1287680959 2431 127.0.0.1 (21 Oct 2010 17:09:19
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Thu, 21 Oct 2010 17:09:19 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: n26g2000yqh.googlegroups.com; posting-host=62.163.210.190;
 posting-account=nZAcngoAAACcfYM9wDw3w9Z1XR3bObfs
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64;
 Trident/4.0; GTB6.5; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR
 3.0.30729; Media Center PC 6.0; InfoPath.1; .NET4.0C),gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:15631
Date: 2010-10-21T10:09:17-07:00
List-Id: <comp.lang.ada>

On 21 okt, 18:47, Georg Bauhaus <rm.dash-bauh...@futureapps.de> wrote:
> On 21.10.10 17:23, tolkamp wrote:
>
>
>
>
>
> > On 21 okt, 00:51, tmo...@acm.org wrote:
> >> This works for me for Windows
> >> =A0 =A0 type Points is record
> >> =A0 =A0 =A0 x,y : interfaces.c.int;
> >> =A0 =A0 end record;
> >> =A0 =A0 type bool is new interfaces.c.int;
> >> =A0 =A0 function GetCursorPos(point : access points) return bool;
> >> =A0 =A0 pragma import(stdcall,GetCursorPos, "GetCursorPos");
> >> =A0 =A0 current : aliased points;
> >> =A0 =A0 ...
> >> =A0 =A0 =A0 if getcursorpos(current'access) =3D 0 then
> >> =A0 =A0 =A0 =A0 -- current now has mouse position
> >> =A0 =A0 =A0 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- Tekst uit oorspronkelijk bericht niet weergeven -
>
> - Tekst uit oorspronkelijk bericht weergeven -

Yes, I understand, but how to make the compilation error free?