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,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5cca94cb6ce39572,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-04-30 18:11:25 PST
Path: archiver1.google.com!postnews1.google.com!not-for-mail
From: astrolove@hotmail.com (VNCoder)
Newsgroups: comp.lang.ada
Subject: XGrab Pointer does work...why???
Date: 30 Apr 2003 18:11:24 -0700
Organization: http://groups.google.com/
Message-ID: <6091ca88.0304301711.61d724df@posting.google.com>
NNTP-Posting-Host: 203.38.122.197
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: posting.google.com 1051751485 5581 127.0.0.1 (1 May 2003 01:11:25
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: 1 May 2003 01:11:25 GMT
Xref: archiver1.google.com comp.lang.ada:36786
Date: 2003-05-01T01:11:25+00:00
List-Id: <comp.lang.ada>

G'day all,
   Using the Ada C-binding for Xlib (see below). After create a
window, I tried to grab the pointer immediately but it doesn't seem to
grab at all.
   Only if I put a delay (sleep for few seconds) before I grab then it
works.
   Anyone know what's happening??

    

----CODE ----------------


procedure Test_Grab_Pointer is
   pragma Link_With
      ("-L/usr/openwin/lib/ -R/usr/openwin/lib
/apex_repos/DISPLAY/oper/x11_support/c_lib/var.o -Bdynamic -lX11
-Bdynamic -lm -lc");

begin
   Test_Window_Grab_Pointer.Start;
   delay 5.0;

   Test_Window_Grab_Pointer.Bound_Pointer;
   delay 5.0;
   Test_Window_Grab_Pointer.Unbound_Pointer;
   delay 5.0;

end Test_Grab_Pointer;



package body Test_Window_Grab_Pointer is
   Display : X.Xlib.Xdisplay_Access;

   Window : X.Window;
   Screen_Number : X.Signed_Int;
   Attributes : aliased X.Xlib.Xsetwindowattributes;
   Attribute_Mask : X.Unsigned_Long;

   procedure Start is
   begin

      Display := X.Xlib.Xopendisplay (Interfaces.C.To_C (""));
      Attributes.Background_Pixel := 255;
      Attributes.Border_Pixel := 0;
      Attributes.Colormap := X.Xlib.Xdefaultcolormapofscreen
                                (X.Xlib.Xscreenofdisplay
                                    (Display, X.Xlib.Xdefaultscreen
(Display)));
      Attribute_Mask := X.Unsigned_Long
                           (X.Cwbackpixel + X.Cwborderpixel +
X.Cwcolormap);
      Window := X.Xlib.Xcreatewindow
                   (Display, X.Xlib.Rootwindow
                                (Display, X.Xlib.Xdefaultscreen
(Display)),
                    0, 0, 200, 200, 1,
                    X.Xlib.Xdefaultdepthofscreen
                       (X.Xlib.Xscreenofdisplay
                           (Display, X.Xlib.Xdefaultscreen
(Display))),
                    X.Inputoutput,
                    X.Xlib.Xdefaultvisualofscreen
                       (X.Xlib.Xscreenofdisplay
                           (Display, X.Xlib.Xdefaultscreen
(Display))),
                    Attribute_Mask,
                    Attributes'Access);
      X.Xlib.Xmapwindow (Display, Window);
      X.Xlib.Xflush (Display);
   end Start;

   procedure Bound_Pointer is
      Result : X.Signed_Int;
   begin
      Result := X.Xlib.Xgrabpointer
                   (Display, Window, X.Xlib.False,
                    X.Unsigned_Int (X.Buttonreleasemask +
X.Buttonpressmask +
                                    X.Pointermotionmask),
                    X.Grabmodeasync, X.Grabmodeasync,
                    Window, X.None, X.Currenttime);
   end Bound_Pointer;

   procedure Unbound_Pointer is
   begin
      X.Xlib.Xungrabpointer (Display, X.Currenttime);
   end Unbound_Pointer;
end Test_Window_Grab_Pointer;