Re: How to get the mouse position with JEWL?

[Georg Bauhaus <rm.dash-bauhaus@futureapps.de>]

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