[climacs-cvs] CVS update: climacs/window-commands.lisp

[Dwight Holman]

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)))