? abbrev.fasl
? base.fasl
? buffer.fasl
? cl-syntax.fasl
? colors.fasl
? delegating-buffer.fasl
? developer-commands.fasl
? esa.fasl
? file-commands.fasl
? fundamental-syntax.fasl
? gui.fasl
? html-syntax.fasl
? io.fasl
? kill-ring.fasl
? lisp-syntax-commands.fasl
? lisp-syntax.fasl
? misc-commands.fasl
? packages.fasl
? pane.fasl
? prolog-syntax.fasl
? prolog2paiprolog.fasl
? search-commands.fasl
? slidemacs-gui.fasl
? slidemacs.fasl
? syntax.fasl
? text-syntax.fasl
? ttcn3-syntax.fasl
? undo.fasl
? unicode-commands.fasl
? window-commands.fasl
? Doc/climacs-internals.html
? Persistent/binseq-package.fasl
? Persistent/binseq.fasl
? Persistent/binseq2.fasl
? Persistent/obinseq.fasl
? Persistent/persistent-buffer.fasl
? Persistent/persistent-undo.fasl
? cl-automaton/automaton-package.fasl
? cl-automaton/automaton.fasl
? cl-automaton/eqv-hash.fasl
? cl-automaton/regexp.fasl
? cl-automaton/state-and-transition.fasl
Index: esa.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/esa.lisp,v
retrieving revision 1.27
diff -u -r1.27 esa.lisp
--- esa.lisp	3 Mar 2006 19:38:57 -0000	1.27
+++ esa.lisp	25 Mar 2006 20:59:35 -0000
@@ -266,15 +266,17 @@
 
 (defmethod redisplay-frame-panes :around ((frame esa-frame-mixin) &key force-p)
   (declare (ignore force-p))
-  (when (null (remaining-keys *application-frame*))
-    (setf (executingp *application-frame*) nil)
+  (when (null (remaining-keys frame))
+    (setf (executingp frame) nil)
     (call-next-method)))
 
 (defmethod execute-frame-command :after ((frame esa-frame-mixin) command)
-  (setf (previous-command *standard-output*)
+  (setf (previous-command (car (slot-value frame 'windows)))
 	(if (consp command)
 	    (car command)
-	    command)))
+	    command))
+  (when (eq frame *application-frame*)
+    (redisplay-frame-panes frame)))
 
 (defgeneric find-applicable-command-table (frame))
 
@@ -299,16 +301,16 @@
       (redisplay-frame-panes frame :force-p t)
       (loop
        do (restart-case
-              (progn
-                (handler-case
-                    (let ((command-table (find-applicable-command-table frame)))
-                      ;; for presentation-to-command-translators,
-                      ;; which are searched for in
-                      ;; (frame-command-table *application-frame*)
-                      (setf (frame-command-table frame) command-table)
-                      (process-gestures-or-command frame command-table))
-                  (abort-gesture () (display-message "Quit")))
-                (redisplay-frame-panes frame))
+              (handler-case
+                  (let ((command-table (find-applicable-command-table frame)))
+                    ;; for presentation-to-command-translators,
+                    ;; which are searched for in
+                    ;; (frame-command-table *application-frame*)
+                    (setf (frame-command-table frame) command-table)
+                    (process-gestures-or-command frame command-table))
+                (abort-gesture () 
+                  (display-message "Quit")
+                  (redisplay-frame-panes frame)))
 	   (return-to-esa () nil)
            (reset-esa ()
              ;; This restart is used to jump out of deadlocks where
Index: gui.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/gui.lisp,v
retrieving revision 1.204
diff -u -r1.204 gui.lisp
--- gui.lisp	3 Mar 2006 19:38:57 -0000	1.204
+++ gui.lisp	25 Mar 2006 20:59:35 -0000
@@ -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)
