[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

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

Modified Files:
	listener.lisp wholine.lisp 
Log Message:
Aesthetic tweaks for freetype.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2007/12/31 23:34:53	1.37
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2008/01/06 01:33:25	1.38
@@ -153,7 +153,7 @@
   (get-frame-pane frame 'interactor))
 
 (defun run-listener (&key (new-process nil)
-                          (width 760)
+                          (width 790)
                           (height 550)
                           port
                           frame-manager
--- /project/mcclim/cvsroot/mcclim/Apps/Listener/wholine.lisp	2007/03/04 22:27:51	1.2
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/wholine.lisp	2008/01/06 01:33:25	1.3
@@ -79,13 +79,18 @@
 		       #-(or allegro cmu scl) (getenv "USER")
                        "luser"))  ; sorry..
          (sitename (machine-instance))
+         ;; :sans-serif :roman :small is the best looking jaggy font.
+         ;; But :small looks awful using freetype, perhaps because the
+         ;; fonts are, for whatever reason, slightly smaller.
+         ;; Very distressing.
+         (text-size (if (find-package :mcclim-freetype) :normal :small))
          (memusage #+(or cmu scl) (lisp::dynamic-usage)
                    #+sbcl  (sb-kernel:dynamic-usage)
                    #+lispworks (getf (system:room-values) :total-allocated)
 		   #+openmcl (+ (ccl::%usedbytes) (ccl::%freebytes))
                    #+clisp (values (sys::%room))
                    #-(or cmu scl sbcl lispworks openmcl clisp) 0))
-    (with-text-style (t (make-text-style :sans-serif :roman :small))
+    (with-text-style (t (make-text-style :sans-serif :roman text-size))
       (formatting-table (t :x-spacing '(3 :character))
         (formatting-row (t)                        
           (macrolet ((cell ((align-x) &body body)