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