[climacs-cvs] CVS climacs

[crhodes]

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

Modified Files:
	INSTALL gui.lisp 
Removed Files:
	esa.lisp 
Log Message:
Modify gui.lisp to use frame arguments where applicable, as redisplay 
methods need not be run in the application thread.

Document the need for external flexichain and esa checkouts, and remove 
esa.lisp.


--- /project/climacs/cvsroot/climacs/INSTALL	2005/09/25 20:06:25	1.7
+++ /project/climacs/cvsroot/climacs/INSTALL	2006/03/25 22:29:12	1.8
@@ -7,21 +7,15 @@
 Install instructions for Climacs.  We assume that if you have gotten
 this far, it means that you have either extracted a tar file with
 everything in it, or checked out the files from some CVS repository.
-If your directory contains a Flexichain subdirectory, skip directly to
-paragraph 1 below.  Otherwise start at paragraph 0.
 
-0. You need to check out the Flexichain module from the Gsharp project
-   on common-lisp.net.  If you are a member of that project, you can
-   do this:  
+0. You need to check out the flexichain and esa projects from
+   common-lisp.net. If you are not a member of those projects, here is
+   how you do it:
 
-    export CVS_RSH=ssh
-    cvs -z3 -d :ext:<username>@common-lisp.net:/project/gsharp/cvsroot co Flexichain
+    cvs -z3 -d :pserver:anonymous:anonymous at common-lisp.net:/project/flexichain/cvsroot co flexichain
+    cvs -z3 -d :pserver:anonymous:anonymous at common-lisp.net:/project/climacs/cvsroot co esa
 
-   If you are not a member, here is how you do it:
-
-    cvs -d :pserver:anonymous at common-lisp.net:/project/gsharp/cvsroot login
-    <enter anonymous as password>
-    cvs -z3 -d :pserver:anonymous at common-lisp.net:/project/gsharp/cvsroot co Flexichain
+   Ensure that asdf can find the .asd files for these projects.
       
 1. Start Lisp either from the shell or from Emacs
 
@@ -46,5 +40,3 @@
 For that reason, Climacs often depends on very fresh CVS versions of
 McCLIM.  If you discover a bug, please try to install a new version of
 McCLIM before looking too hard for any other reasons.
-
-
--- /project/climacs/cvsroot/climacs/gui.lisp	2006/03/03 19:38:57	1.204
+++ /project/climacs/cvsroot/climacs/gui.lisp	2006/03/25 22:29:12	1.205
@@ -225,7 +225,6 @@
 	(climacs :new-process new-process :process-name process-name :width width :height height))))
 
 (defun display-info (frame pane)
-  (declare (ignore frame))
   (let* ((master-pane (master-pane pane))
 	 (buffer (buffer master-pane))
 	 (size (size buffer))
@@ -265,15 +264,14 @@
 				       "Isearch"))
       (princ #\) pane))
     (with-text-family (pane :sans-serif)
-      (princ (if (recordingp *application-frame*)
+      (princ (if (recordingp frame)
 		 "Def"
 		 "")
 	     pane))))
 
 (defun display-window (frame pane)
   "The display function used by the climacs application frame."
-  (declare (ignore frame))
-  (redisplay-pane pane (eq pane (current-window))))
+  (redisplay-pane pane (eq pane (car (windows frame)))))
 
 (defmethod handle-repaint :before ((pane extended-pane) region)
   (declare (ignore region))
@@ -282,25 +280,26 @@
 (defvar *kill-ring* (make-instance 'kill-ring :max-size 7))
 
 (defmethod execute-frame-command :around ((frame climacs) command)
-  (handler-case
-      (if (buffer-pane-p (current-window))
-	  (with-undo ((buffer (current-window)))
-	    (call-next-method))
-	  (call-next-method))
-    (offset-before-beginning ()
-      (beep) (display-message "Beginning of buffer"))
-    (offset-after-end ()
-      (beep) (display-message "End of buffer"))
-    (motion-before-beginning ()
-      (beep) (display-message "Beginning of buffer"))
-    (motion-after-end ()
-      (beep) (display-message "End of buffer"))
-    (no-expression ()
-      (beep) (display-message "No expression around point"))
-    (no-such-operation ()
-      (beep) (display-message "Operation unavailable for syntax"))
-    (buffer-read-only ()
-      (beep) (display-message "Buffer is read only"))))  
+  (let ((current-window (car (windows frame))))
+    (handler-case
+        (if (buffer-pane-p current-window)
+            (with-undo ((buffer current-window))
+              (call-next-method))
+            (call-next-method))
+      (offset-before-beginning ()
+        (beep) (display-message "Beginning of buffer"))
+      (offset-after-end ()
+        (beep) (display-message "End of buffer"))
+      (motion-before-beginning ()
+        (beep) (display-message "Beginning of buffer"))
+      (motion-after-end ()
+        (beep) (display-message "End of buffer"))
+      (no-expression ()
+        (beep) (display-message "No expression around point"))
+      (no-such-operation ()
+        (beep) (display-message "Operation unavailable for syntax"))
+      (buffer-read-only ()
+        (beep) (display-message "Buffer is read only")))))
 
 (defmethod execute-frame-command :after ((frame climacs) command)
   (loop for buffer in (buffers frame)