/[mcclim]/mcclim/pointer-tracking.lisp
ViewVC logotype

Diff of /mcclim/pointer-tracking.lisp

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

revision 1.1 by adejneka, Fri Aug 2 11:59:09 2002 UTC revision 1.2 by moore, Mon Oct 14 00:57:27 2002 UTC
# Line 41  Line 41 
41      (setq sheet '*standard-output*))      (setq sheet '*standard-output*))
42    (check-type sheet symbol)    (check-type sheet symbol)
43    (loop    (loop
44         with motion-events = (assoc :pointer-motion body)
45       for event-name in '(:pointer-motion       for event-name in '(:pointer-motion
46                           :presentation                           :presentation
47                           :pointer-button-press                           :pointer-button-press
# Line 58  Line 59 
59       finally       finally
60       (return `(flet ,bindings       (return `(flet ,bindings
61                  (declare (dynamic-extent ,@handler-names))                  (declare (dynamic-extent ,@handler-names))
62                  (invoke-tracking-pointer ,sheet ,@handlers                  ,(if motion-events
63                                           ,@args)))))                       `(letf (((sheet-motion-hints ,sheet) nil))
64                            (invoke-tracking-pointer ,sheet ,@handlers ,@args))
65                         `(invoke-tracking-pointer ,sheet ,@handlers ,@args))))))
66    
67    
68  (defun invoke-tracking-pointer  (defun invoke-tracking-pointer
69      (sheet      (sheet

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5