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

Diff of /mcclim/recording.lisp

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

revision 1.136 by ahefner, Mon Jan 21 01:26:42 2008 UTC revision 1.137 by ahefner, Mon Jan 21 22:24:32 2008 UTC
# Line 1730  were added." Line 1730  were added."
1730         (:bottom (incf top (- point-y descent))         (:bottom (incf top (- point-y descent))
1731                  (incf bottom (- point-y descent)))                  (incf bottom (- point-y descent)))
1732         (:center (incf top (+ point-y (ceiling (- ascent descent) 2)))         (:center (incf top (+ point-y (ceiling (- ascent descent) 2)))
1733                  (incf bottom (+ point-xy (ceiling (- ascent descent) 2)))))                  (incf bottom (+ point-y (ceiling (- ascent descent) 2)))))
1734       (values left top right bottom))))       (values left top right bottom))))
1735    
1736  (defmethod* (setf output-record-position) :around  (defmethod* (setf output-record-position) :around

Legend:
Removed from v.1.136  
changed lines
  Added in v.1.137

  ViewVC Help
Powered by ViewVC 1.1.5