[mcclim-cvs] CVS mcclim

[ahefner]

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)