Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv19217

Modified Files: frames.lisp Log Message: Change default text and prompt style to sans-serif, except for forms in the listener.

--- /project/mcclim/cvsroot/mcclim/frames.lisp 2008/02/05 08:53:09 1.133 +++ /project/mcclim/cvsroot/mcclim/frames.lisp 2008/12/07 20:24:44 1.134 @@ -325,7 +325,7 @@ (lambda (sheet) (when (typep sheet 'pane) (when (and (typep sheet 'clim-stream-pane) - (not (eq :no-clear (pane-redisplay-needed sheet)))) + (not (eq :no-clear (pane-redisplay-needed sheet)))) (window-clear sheet)) (redisplay-frame-pane frame sheet :force-p force-p))) (frame-top-level-sheet frame))) @@ -463,7 +463,7 @@ (:disowned (disown-frame fm frame)))))))

-(defparameter +default-prompt-style+ (make-text-style :fix :italic :normal)) +(defparameter +default-prompt-style+ (make-text-style :sans-serif :bold :normal))

(defmethod default-frame-top-level ((frame application-frame)