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

[Robert Strandh]

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

Modified Files:
	gui.lisp pane.lisp 
Log Message:
Prepare for the day when McCLIM moves output records instead
of recomputing them.

Date: Sat Jan 22 00:04:37 2005
Author: rstrandh

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.93 climacs/gui.lisp:1.94
--- climacs/gui.lisp:1.93	Fri Jan 21 21:45:25 2005
+++ climacs/gui.lisp	Sat Jan 22 00:04:35 2005
@@ -922,6 +922,30 @@
 	     (sheet-adopt-child parent other)
 	     (reorder-sheets parent (list first other)))))))
 
+;; (define-named-command com-delete-window ()
+;;   (unless (null (cdr (windows *application-frame*)))
+;;     (let* ((constellation (parent3 (current-window)))
+;; 	   (box (sheet-parent constellation))
+;; 	   (box-children (sheet-children box))
+;; 	   (other (if (eq constellation (first box-children))
+;; 		      (third box-children)
+;; 		      (first box-children)))
+;; 	   (parent (sheet-parent box))
+;; 	   (children (sheet-children parent))
+;; 	   (first (first children))
+;; 	   (second (second children))
+;; 	   (third (third children)))
+;;       (pop (windows *application-frame*))
+;;       (sheet-disown-child box other)
+;;       (cond ((eq box first)
+;; 	     (sheet-disown-child parent box)
+;; 	     (sheet-adopt-child parent other)
+;; 	     (reorder-sheets parent (list other second third)))
+;; 	    (t
+;; 	     (sheet-disown-child parent box)
+;; 	     (sheet-adopt-child parent other)
+;; 	     (reorder-sheets parent (list first second other)))))))
+
 ;;;;;;;;;;;;;;;;;;;;
 ;; Kill ring commands
 


Index: climacs/pane.lisp
diff -u climacs/pane.lisp:1.8 climacs/pane.lisp:1.9
--- climacs/pane.lisp:1.8	Fri Jan 21 11:39:50 2005
+++ climacs/pane.lisp	Sat Jan 22 00:04:35 2005
@@ -315,7 +315,7 @@
 	     for id from 0 below (nb-elements cache)
 	     do (setf scan start-offset)
 		(updating-output
-		    (pane :unique-id id
+		    (pane :unique-id (element* cache id)
 			  :cache-value (if (<= start-offset
 					       (offset (point pane))
 					       (+ start-offset (length (element* cache id))))