Summary for xlib--main--2.2--patch-2

[Zajcev Evgeny <lg@xxxxxxxx>]

Location: lg@xxxxxxxxxxxxxx http://arch.xwem.org/2005/

Revision: xlib--main--2.2--patch-2
Archive: lg@xxxxxxxxxxxxxx
Creator: Zajcev Evgeny <lg@xxxxxxxx>
Date: Wed Mar 22 01:44:00 MSK 2006
Standard-date: 2006-03-21 22:44:00 GMT
Modified-files: lisp/xlib-xtest.el
New-patches: lg@xxxxxxxxxxxxxx/xlib--main--2.2--patch-2
Summary: extends X-XTest-FakeInput
Keywords: xtest

* lisp/xlib-xtest.el (X-XTest-FakeInput): [addon] Support for mouse
  events as well as keyboad


* added files

    {arch}/xlib/xlib--main/xlib--main--2.2/lg@xxxxxxxxxxxxxx/patch-log/patch-2

* modified files

--- orig/lisp/xlib-xtest.el
+++ mod/lisp/xlib-xtest.el
@@ -50,7 +50,7 @@
 (defconst X-Xtest-ButtonRelease 5)
 (defconst X-Xtest-MotionNotify 6)
 
-(defun X-XTest-FakeInput (xdpy evtype detail root rootx rooty &optional time)
+(defun X-XTest-FakeInput (xdpy evtype detail &optional root rootx rooty time)
   "On display XDPY send fake event of EVTYPE with DETAIL at TIME."
   (X-Dpy-p xdpy 'X-XTest-FakeInput)
 
@@ -64,10 +64,10 @@
                [1 detail]
                [2 nil]                 ;pad
                [4 (or time X-CurrentTime)]
-               [4 (if (X-Win-p root) (X-Win-id root) root)]
+               [4 (if (X-Win-p root) (X-Win-id root) (or root X-None))]
                [8 nil]
-               [2 rootx]
-               [2 rooty]
+               [2 (or rootx 0)]
+               [2 (or rooty 0)]
                [8 nil]
                ))
         (msg (X-Create-message ListOfFields)))