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)