Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv26576 Modified Files: stream-output.lisp Log Message: Squashed a "magic fudge factor". Date: Sun Apr 17 18:42:48 2005 Author: ahefner Index: mcclim/stream-output.lisp diff -u mcclim/stream-output.lisp:1.53 mcclim/stream-output.lisp:1.54 --- mcclim/stream-output.lisp:1.53 Wed Feb 2 12:33:59 2005 +++ mcclim/stream-output.lisp Sun Apr 17 18:42:47 2005 @@ -487,15 +487,15 @@ (declare (ignore total-height final-y baseline)) (values final-x total-width)))) -;;; XXX where does "6" come from? Magic fudge factor? -- moore (defmethod stream-text-margin ((stream standard-extended-output-stream)) (with-slots (margin) stream (or margin (- (bounding-rectangle-width (or (pane-viewport stream) stream)) - 6)))) + (text-size stream "O"))))) -(defmethod stream-line-height ((stream standard-extended-output-stream) &key (text-style nil)) +(defmethod stream-line-height ((stream standard-extended-output-stream) + &key (text-style nil)) (+ (text-style-height (or text-style (medium-text-style (sheet-medium stream))) (sheet-medium stream)) (stream-vertical-spacing stream)))