[mcclim-cvs] CVS update: mcclim/stream-output.lisp

[Andy Hefner]

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)))