/[mcclim]/mcclim/frames.lisp
ViewVC logotype

Diff of /mcclim/frames.lisp

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

revision 1.116 by tmoore, Mon Mar 13 06:08:12 2006 UTC revision 1.117 by tmoore, Wed Mar 15 15:38:39 2006 UTC
# Line 1460  documentation produced by presentations. Line 1460  documentation produced by presentations.
1460  ;;; Classic CLIM seems to agree. -- moore  ;;; Classic CLIM seems to agree. -- moore
1461  (defun highlight-for-tracking-pointer (frame stream event input-context  (defun highlight-for-tracking-pointer (frame stream event input-context
1462                                         highlight)                                         highlight)
1463    (let ((context-ptype (input-context-type (car input-context)))    (let ((presentation nil)
         (presentation nil)  
1464          (current-hilited (frame-hilited-presentation frame)))          (current-hilited (frame-hilited-presentation frame)))
1465      (when (output-recording-stream-p stream)      (when (output-recording-stream-p stream)
1466        (setq presentation (find-innermost-applicable-presentation        ;; XXX Massive hack to prevent the presentation action for completions
1467                            input-context        ;; from being applicable. After the .9.2.2 release that action will have
1468                            stream        ;; a more restrictive context type.
1469                            (device-event-x event)        (let ((*completion-possibilities-continuation* nil))
1470                            (device-event-y event)          (setq presentation (find-innermost-applicable-presentation
1471                            :frame frame                              input-context
1472                            :event event)))                              stream
1473                                (device-event-x event)
1474                                (device-event-y event)
1475                                :frame frame))))
1476      (when (and current-hilited (not (eq (car current-hilited) presentation)))      (when (and current-hilited (not (eq (car current-hilited) presentation)))
1477        (highlight-presentation-1 (car current-hilited)        (highlight-presentation-1 (car current-hilited)
1478                                  (cdr current-hilited)                                  (cdr current-hilited)
# Line 1641  documentation produced by presentations. Line 1643  documentation produced by presentations.
1643          (tracking-pointer (window :context-type `(or ,(mapcar #'from-type          (tracking-pointer (window :context-type `(or ,(mapcar #'from-type
1644                                                                translators))                                                                translators))
1645                                    :highlight nil                                    :highlight nil
1646                                    :multiple-window t)                                    :multiple-window nil) ;XXX
1647            (:presentation (&key presentation window event x y)            (:presentation (&key presentation window event x y)
1648              (let ((dest-translator (find-dest-translator presentation window              (let ((dest-translator (find-dest-translator presentation window
1649                                                           x y)))                                                           x y)))

Legend:
Removed from v.1.116  
changed lines
  Added in v.1.117

  ViewVC Help
Powered by ViewVC 1.1.5