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))))