[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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)