>>>>> "Manuel" == Manuel Giraud <[EMAIL PROTECTED]> writes:
Manuel> Raymond Toy <[EMAIL PROTECTED]> writes:
>>
>> 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?
>>
Manuel> Compare the string returned by:
Manuel> (let ((dpy (ext:open-clx-display)))
Manuel> (format nil "0x~X" (xlib:drawable-id (xlib:input-focus dpy))))
I guess I wasn't clear enough. The first value from xlib:input-focus
is XLIB:WINDOW object. However, in the original question, we were
returning (nth-value 0 (xlib:input-focus dpy)) and people were getting
things like :POINTER-ROOT. With Peter's change, I get the xlib:window
object. The second value is :PARENT. Without his change, I was
getting a segfault.
So why does (nth-value 0 ...) give my the window instead of some
keyword?
Ray
