Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv11496 Modified Files: window-commands.lisp Log Message: Adding color customizations to constellations. Date: Mon Jan 9 05:15:19 2006 Author: dholman Index: climacs/window-commands.lisp diff -u climacs/window-commands.lisp:1.3 climacs/window-commands.lisp:1.4 --- climacs/window-commands.lisp:1.3 Mon Dec 5 10:56:19 2005 +++ climacs/window-commands.lisp Mon Jan 9 05:15:12 2006 @@ -82,7 +82,8 @@ (defun make-typeout-constellation (&optional label) (let* ((typeout-pane - (make-pane 'typeout-pane :width 900 :height 400 :display-time nil)) + (make-pane 'typeout-pane :foreground *fg-color* :background *bg-color* + :width 900 :height 400 :display-time nil)) (label (make-pane 'label-pane :label label)) (vbox @@ -128,6 +129,8 @@ :name 'window :end-of-line-action :scroll :incremental-redisplay t + :background *bg-color* + :foreground *fg-color* :display-function 'display-window :command-table 'global-climacs-table)) (vbox @@ -137,6 +140,8 @@ extended-pane) extended-pane) (make-pane 'climacs-info-pane + :background *info-bg-color* + :foreground *info-fg-color* :master-pane extended-pane :width 900)))) (values vbox extended-pane)))