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)))
Took a while, but I found it.
in requests.lisp it should be:
(defun input-focus (display)
(declare (type display display))
(declare (clx-values focus revert-to))
(with-buffer-request-and-reply (display *x-getinputfocus* 16 :sizes (8 32))
()
(values
(or-get 8 window (member :none :pointer-root))
(member8-get 1 :none :pointer-root :parent))))
Why oh why (SVREF '#(:NONE :POINTER-ROOT) 31457282) returns 0 in :xlib is a mystery...
Groetjes, Peter
--
It's logic Jim, but not as we know it. | [EMAIL PROTECTED]
"God, root, what is difference?" - Pitr| http://people.debian.org/~pvaneynd/
"God is more forgiving." - Dave Aronson| http://users.belgacom.net/bn110523/
-- Attached file included as plaintext by Listar --
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)
iD8DBQE9bTUu11ldN0tyliURAvUmAKCUQi0/5ZP5leILoF19La+QuBYF1gCgsTOq
wrKOKbUHlrDMv5VMq/hKxa8=
=6Flq
-----END PGP SIGNATURE-----
