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)