/[cmucl]/src/clx/requests.lisp
ViewVC logotype

Diff of /src/clx/requests.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by toy, Mon Aug 19 16:22:20 2002 UTC revision 1.7 by emarsden, Mon Feb 3 14:19:58 2003 UTC
# Line 766  Line 766 
766    (with-buffer-request-and-reply (display *x-getinputfocus* 16 :sizes (8 32))    (with-buffer-request-and-reply (display *x-getinputfocus* 16 :sizes (8 32))
767         ()         ()
768      (values      (values
769        (or-get 8 (member :none :pointer-root) window)        (or-get 8 window (member :none :pointer-root))
770        (member8-get 1 :none :pointer-root :parent))))        (member8-get 1 :none :pointer-root :parent))))
771    
772  (defun query-keymap (display &optional bit-vector)  (defun query-keymap (display &optional bit-vector)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5