[climacs-cvs] CVS update: climacs/gui.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv7636

Modified Files:
	gui.lisp 
Log Message:
Reassign *standard-input* when the current pane changes, otherwise the
concept of previous-command (which is per-pane) does not make sense.


Date: Sun Jul 17 17:31:39 2005
Author: rstrandh

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.154 climacs/gui.lisp:1.155
--- climacs/gui.lisp:1.154	Sun Jul 17 14:40:19 2005
+++ climacs/gui.lisp	Sun Jul 17 17:31:38 2005
@@ -327,7 +327,7 @@
     (setf windows (list (find-climacs-pane (find-pane-named frame 'win))))
     (push (buffer (car windows)) (buffers frame))
     (let ((*standard-output* (car windows))
-	  (*standard-input* (find-pane-named frame 'int))
+	  (*standard-input* (frame-standard-input frame))
 	  (*print-pretty* nil)
 	  (*abort-gestures* '((:keyboard #\g 512))))
       (redisplay-frame-panes frame :force-p t)
@@ -1017,6 +1017,7 @@
               (auto-fill-mode new-pane) (auto-fill-mode current-window)
               (auto-fill-column new-pane) (auto-fill-column current-window))
 	(push new-pane (windows *application-frame*))
+	(setf *standard-output* new-pane)
 	(replace-constellation constellation-root vbox t)
 	(full-redisplay current-window)
 	(full-redisplay new-pane)))))
@@ -1032,6 +1033,7 @@
               (auto-fill-mode new-pane) (auto-fill-mode current-window)
               (auto-fill-column new-pane) (auto-fill-column current-window))
 	(push new-pane (windows *application-frame*))
+	(setf *standard-output* new-pane)
 	(replace-constellation constellation-root vbox nil)
 	(full-redisplay current-window)
 	(full-redisplay new-pane)))))
@@ -1039,13 +1041,16 @@
 (define-named-command com-other-window ()
   (setf (windows *application-frame*)
 	(append (cdr (windows *application-frame*))
-		(list (car (windows *application-frame*))))))
+		(list (car (windows *application-frame*)))))
+  (setf *standard-output* (car (windows *application-frame*))))
 
 (define-named-command com-single-window ()
   (loop until (null (cdr (windows *application-frame*)))
 	do (rotatef (car (windows *application-frame*))
 		    (cadr (windows *application-frame*)))
-	   (com-delete-window)))
+	   (com-delete-window))
+  (setf *standard-output* (car (windows *application-frame*))))
+	   
 
 (define-named-command com-delete-window ()
   (unless (null (cdr (windows *application-frame*)))
@@ -1061,6 +1066,7 @@
 	   (second (second children))
 	   (third (third children)))
       (pop (windows *application-frame*))
+      (setf *standard-output* (car (windows *application-frame*)))
       (sheet-disown-child box other)
       (sheet-disown-child parent box)
 	 (sheet-adopt-child parent other)