/[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.5 by dtc, Sat Dec 19 15:21:20 1998 UTC revision 1.6 by toy, Mon Aug 19 16:22:20 2002 UTC
# Line 523  Line 523 
523      ((or null card32) time)))      ((or null card32) time)))
524    
525  (defun grab-button (window button event-mask  (defun grab-button (window button event-mask
526                      &key (modifiers 0)                      &key (modifiers :any)
527                           owner-p sync-pointer-p sync-keyboard-p confine-to cursor)                           owner-p sync-pointer-p sync-keyboard-p confine-to cursor)
528    (declare (type window window)    (declare (type window window)
529             (type (or (member :any) card8) button)             (type (or (member :any) card8) button)
# Line 543  Line 543 
543      (pad8 1)      (pad8 1)
544      (card16 (encode-modifier-mask modifiers))))      (card16 (encode-modifier-mask modifiers))))
545    
546  (defun ungrab-button (window button &key (modifiers 0))  (defun ungrab-button (window button &key (modifiers :any))
547    (declare (type window window)    (declare (type window window)
548             (type (or (member :any) card8) button)             (type (or (member :any) card8) button)
549             (type modifier-mask modifiers))             (type modifier-mask modifiers))

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

  ViewVC Help
Powered by ViewVC 1.1.5