[climacs-cvs] CVS update: climacs/gui.lisp climacs/pane.lisp
Robert Strandh
rstrandh at common-lisp.net
Sat Jan 22 08:04:38 UTC 2005
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))))
More information about the Climacs-cvs
mailing list