Re: How to get the mouse position with JEWL?

[tolkamp <f.tolkamp@gmail.com>]

On 20 okt, 13:42, Manuel Collado <m.coll...@domain.invalid> wrote:
> El 20/10/2010 11:04, tolkamp escribió:
>
> > I use JEWL in several of my applications.
> > Now I try to get the mouse position within a JEWL canvas by using the
> > function "End_Point(Canavas)".
> > The resulting mouse position (x,y) is always zero. What is going wrong?
>
> Please try:
>
>   point := Start_Point( canvas );
>
> It works for me.
>
> --
> Manuel Collado -http://lml.ls.fi.upm.es/~mcollado

Also when I try:
 point := Start_Point( canvas );
the x and y position remains zero.

Here is the code:

task body Task_2Hz is
My_Frame  : Frame_Type;
My_Canvas : Canvas_Type;
My_Mouse_Position : Point_Type;
begin
    accept Start do
       My_Frame   := Frame (1200, 500, "", 0);
       My_Canvas  := Canvas (Frame, (850,10),      300, 300);
loop
       My_Mouse_Position := Start_Point(My_Canvas);
       Put("Mouse-x = "); Int_Io.Put(My_Mouse_Position.x); New_Line;
       Put("Mouse-y = "); Int_Io.Put(My_Mouse_Position.y); New_Line;
   delay 0.5;
end loop;
end Task_2Hz;