[mcclim-cvs] CVS mcclim/Looks

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Looks
In directory clnet:/tmp/cvs-serv27864

Modified Files:
	pixie.lisp 
Log Message:
Text style trickery - with truetype fonts, for whatever reason,
:small feels much smaller.



--- /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp	2007/03/20 01:51:22	1.21
+++ /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp	2008/05/06 20:47:30	1.22
@@ -1170,7 +1170,11 @@
   (:default-initargs
     :default-view +pixie-tab-bar-view+
     :background +gray83+
-    :text-style (make-text-style :sans-serif :roman :small)))
+    :text-style (make-text-style :sans-serif 
+                                 :roman 
+                                 (if (find-package :mcclim-truetype)
+                                     :normal
+                                     :small))))
 
 (defmethod compose-space ((pane pixie-tab-bar-pane) &key width height)
   (declare (ignore width height))