Re: How to get the mouse position with JEWL?

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

tolkamp wrote:
> 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
>>>>     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- Tekst uit oorspronkelijk bericht niet weergeven -
>>
>> - Tekst uit oorspronkelijk bericht weergeven -
> 
> Yes, I understand, 

I suspect not...

> but how to make the compilation error free?

You should write, as Georg no doubt meant:

   with Interfaces.C;

not "with Interfaces.C.Int". You always "with" a package or some other 
library unit (stand-alone subprogram), you do not "with" a type, even 
though that type is defined in a package.

HTH,

-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
       .      @       .