[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv18869

Modified Files:
	packages.lisp gui.lisp 
Log Message:
Changed the colors of `climacs-rv' slightly and exported the symbol
from the :climacs-gui package.


--- /project/climacs/cvsroot/climacs/packages.lisp	2006/04/30 15:20:46	1.90
+++ /project/climacs/cvsroot/climacs/packages.lisp	2006/05/01 18:36:41	1.91
@@ -174,6 +174,7 @@
   ;;(:import-from :lisp-string)
   (:export :climacs ; Main entry point.
            ;; GUI functions follow.
+           :climacs-rv ; Entry point with alternate colors.
            :current-window
            :point
            :syntax
--- /project/climacs/cvsroot/climacs/gui.lisp	2006/03/27 15:54:31	1.209
+++ /project/climacs/cvsroot/climacs/gui.lisp	2006/05/01 18:36:41	1.210
@@ -203,23 +203,17 @@
   "Starts up a climacs session"
   ;; SBCL doesn't inherit dynamic bindings when starting new
   ;; processes, so start a new processes and THEN setup the colors.
-  (if new-process
-      (clim-sys:make-process (lambda ()
-			       (let ((*bg-color* +black+)
-				     (*fg-color* +white+)
-				     (*info-bg-color* +blue+)
-				     (*info-fg-color* +yellow+)
-				     (*mini-bg-color* +black+)
-				     (*mini-fg-color* +white+))
-				 (climacs :new-process nil :width width :height height)))
-			     :name process-name)
-      (let ((*bg-color* +black+)
-	    (*fg-color* +white+)
-	    (*info-bg-color* +blue+)
-	    (*info-fg-color* +yellow+)
-	    (*mini-bg-color* +black+)
-	    (*mini-fg-color* +white+))
-	(climacs :new-process new-process :process-name process-name :width width :height height))))
+  (flet ((run ()
+           (let ((*bg-color* +black+)
+                 (*fg-color* +gray+)
+                 (*info-bg-color* +darkslategray+)
+                 (*info-fg-color* +gray+)
+                 (*mini-bg-color* +black+)
+                 (*mini-fg-color* +white+))
+             (climacs :new-process nil :width width :height height))))
+    (if new-process
+      (clim-sys:make-process #'run :name process-name)
+      (run))))
 
 (defun display-info (frame pane)
   (let* ((master-pane (master-pane pane))