Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv17226

Modified Files: pango.lisp Log Message:

Readable rendering in Closure.

* Backends/gtkairo/pango.lisp (MAKE-FONT-DESCRIPTION): Interpret font sizes as pixels again, not points. Default font sizes would have been too -small- now, adjust them a little.

--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/pango.lisp 2006/12/26 12:11:04 1.5 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/pango.lisp 2006/12/29 18:10:48 1.6 @@ -119,13 +119,22 @@ (if (eq family :fixed) :fix family)) (error "unknown font family: ~A" family)))) (size (case size - (:normal 12) - (:tiny 6) - (:small 10) - (:very-small 8) - (:large 14) - (:very-large 16) - (:huge 24) + ;; points: +;;; (:tiny 6) +;;; (:very-small 8) +;;; (:small 10) +;;; (:normal 12) +;;; (:large 14) +;;; (:very-large 16) +;;; (:huge 24) + ;; pixels: + (:tiny 8) + (:very-small 11) + (:small 13) + (:normal 16) + (:large 18) + (:very-large 21) + (:huge 32) (otherwise (truncate size)))) desc) (if (stringp face) @@ -148,7 +157,7 @@ (pango_font_description_set_weight desc weight) (pango_font_description_set_style desc style))) (pango_font_description_set_family desc family) - (pango_font_description_set_size desc (* size PANGO_SCALE)) + (pango_font_description_set_absolute_size desc (df (* size PANGO_SCALE))) desc)))

(defun pango-layout-get-pixel-size (layout)