Update of /project/mcclim/cvsroot/mcclim/Goatee In directory common-lisp.net:/tmp/cvs-serv6008/Goatee
Modified Files: clim-area.lisp Log Message: Fixes for rectangle changes that didn't make it before Date: Fri Feb 11 11:03:07 2005 Author: tmoore
Index: mcclim/Goatee/clim-area.lisp diff -u mcclim/Goatee/clim-area.lisp:1.29 mcclim/Goatee/clim-area.lisp:1.30 --- mcclim/Goatee/clim-area.lisp:1.29 Fri Feb 11 10:10:38 2005 +++ mcclim/Goatee/clim-area.lisp Fri Feb 11 11:03:07 2005 @@ -208,11 +208,11 @@ (unless (slot-boundp obj 'width) (setf (width obj) (line-text-width (editable-area obj) obj))) (unless (slot-boundp obj 'baseline) - (multiple-value-bind (x y) - (output-record-position obj) - (declare (ignore x)) - (setf (slot-value obj 'climi::y2) (+ y (ascent obj) (descent obj))) - (setf (baseline obj) (+ y (ascent obj)))))) + (climi::with-standard-rectangle* (:x1 x1 :y1 y1 :x2 x2) + obj + (setf (rectangle-edges* obj) + (values x1 y1 x2 (+ y1 (ascent obj) (descent obj)))) + (setf (baseline obj) (+ y1 (ascent obj))))))
(defmethod climi::map-over-output-records-1 (function (record screen-line) function-args)