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

Diff of /mcclim/recording.lisp

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

revision 1.86 by hefner1, Sat Aug 9 01:34:01 2003 UTC revision 1.87 by strandh, Fri Aug 15 02:14:29 2003 UTC
# Line 626  recording stream. If it is T, *STANDARD- Line 626  recording stream. If it is T, *STANDARD-
626    0)    0)
627    
628  (defmethod map-over-output-records  (defmethod map-over-output-records
629      (function (record basic-output-record)      (function (record displayed-output-record)
630       &optional (x-offset 0) (y-offset 0)       &optional (x-offset 0) (y-offset 0)
631       &rest function-args)       &rest function-args)
632    (declare (ignore function x-offset y-offset function-args))    (declare (ignore function x-offset y-offset function-args))
# Line 644  recording stream. If it is T, *STANDARD- Line 644  recording stream. If it is T, *STANDARD-
644         (output-record-children record)))         (output-record-children record)))
645    
646  (defmethod map-over-output-records-containing-position  (defmethod map-over-output-records-containing-position
647      (function (record basic-output-record) x y      (function (record displayed-output-record) x y
648       &optional (x-offset 0) (y-offset 0)       &optional (x-offset 0) (y-offset 0)
649       &rest function-args)       &rest function-args)
650    (declare (ignore function x y x-offset y-offset function-args))    (declare (ignore function x y x-offset y-offset function-args))
# Line 668  recording stream. If it is T, *STANDARD- Line 668  recording stream. If it is T, *STANDARD-
668         (output-record-children record)))         (output-record-children record)))
669    
670  (defmethod map-over-output-records-overlapping-region  (defmethod map-over-output-records-overlapping-region
671      (function (record basic-output-record) region      (function (record displayed-output-record) region
672       &optional (x-offset 0) (y-offset 0)       &optional (x-offset 0) (y-offset 0)
673       &rest function-args)       &rest function-args)
674    (declare (ignore function region x-offset y-offset function-args))    (declare (ignore function region x-offset y-offset function-args))
# Line 684  recording stream. If it is T, *STANDARD- Line 684  recording stream. If it is T, *STANDARD-
684    (declare (ignore x-offset y-offset))    (declare (ignore x-offset y-offset))
685    (map nil    (map nil
686         (lambda (child) (when (region-intersects-region-p region child)         (lambda (child) (when (region-intersects-region-p region child)
687                           (apply function child function-args)))                           (apply function child function-args)))
688         (output-record-children record)))         (output-record-children record)))
689    
690  (defun null-bounding-rectangle-p (bbox)  (defun null-bounding-rectangle-p (bbox)

Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87

  ViewVC Help
Powered by ViewVC 1.1.5