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@common-lisp.net:/project/flexichain/cvsroot co flexichain + cvs -z3 -d :pserver:anonymous:anonymous@common-lisp.net:/project/climacs/cvsroot co esa

- If you are not a member, here is how you do it: - - cvs -d :pserver:anonymous@common-lisp.net:/project/gsharp/cvsroot login - <enter anonymous as password> - cvs -z3 -d :pserver:anonymous@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)