[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv21533

Modified Files:
	wholine.lisp 
Log Message:
Less ugly.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/wholine.lisp	2007/02/05 03:27:14	1.1
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/wholine.lisp	2007/03/04 22:27:51	1.2
@@ -85,7 +85,7 @@
 		   #+openmcl (+ (ccl::%usedbytes) (ccl::%freebytes))
                    #+clisp (values (sys::%room))
                    #-(or cmu scl sbcl lispworks openmcl clisp) 0))
-    (with-text-family (t :serif)
+    (with-text-style (t (make-text-style :sans-serif :roman :small))
       (formatting-table (t :x-spacing '(3 :character))
         (formatting-row (t)                        
           (macrolet ((cell ((align-x) &body body)