>>>>> "Peter" == Peter Van Eynde <[EMAIL PROTECTED]> writes:
Peter> On Mon, Aug 26, 2002 at 03:33:00PM +0200, Manuel Giraud wrote:
>>
>>
>> I use the function 'xlib:input-focus' in a program I'm writing but it seems to
>> be buggy. This s-expression evaluated in an inferior CMUCL from emacs returns 0:
>>
>> (let ((dpy (ext:open-clx-display)))
>> (nth-value 0 (xlib:input-focus dpy)))
Peter> Took a while, but I found it.
Peter> in requests.lisp it should be:
Peter> (defun input-focus (display)
Peter> (declare (type display display))
Peter> (declare (clx-values focus revert-to))
Peter> (with-buffer-request-and-reply (display *x-getinputfocus* 16 :sizes (8
32))
Peter> ()
Peter> (values
Peter> (or-get 8 window (member :none :pointer-root))
Peter> (member8-get 1 :none :pointer-root :parent))))
Thanks for this update, but what is supposed to happen here? On my
Sparc system, when running cmulisp inside XEmacs, I don't get a
sigsegv anymore. That's good. But now it returns #<XLIB:WINDOW
unix:0 213910036>. In fact
(let ((dpy (ext:open-clx-display)))
(xlib:input-focus dpy))
returns
#<XLIB:WINDOW unix:0 213910036>
:PARENT
Is this right?
Note: I'm an X ignoramus.
Ray
