[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	gui.lisp 
Log Message:
Added `reset-esa' restart to break out of deadlocks.


--- /project/climacs/cvsroot/climacs/gui.lisp	2006/02/07 15:21:30	1.201
+++ /project/climacs/cvsroot/climacs/gui.lisp	2006/02/25 10:14:29	1.202
@@ -198,13 +198,23 @@
 (defun climacs-rv (&key new-process (process-name "Climacs")
                 (width 900) (height 400))
   "Starts up a climacs session"
-   (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)))
+  (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))))
 
 (defun display-info (frame pane)
   (declare (ignore frame))