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

Modified Files: gui.lisp Log Message: Removed debug message and an obsolete comment.

Date: Mon Feb 21 13:51:57 2005 Author: rstrandh

Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.117 climacs/gui.lisp:1.118 --- climacs/gui.lisp:1.117 Mon Feb 21 09:51:03 2005 +++ climacs/gui.lisp Mon Feb 21 13:51:55 2005 @@ -856,8 +856,6 @@ ;;; ;;; Commands for splitting windows

-;; put this in for real when we find a solution for the problem -;; it causes for com-delete-window (defun replace-constellation (constellation additional-constellation vertical-p) (let* ((parent (sheet-parent constellation)) (children (sheet-children parent)) @@ -865,7 +863,6 @@ (second (second children)) (third (third children)) (adjust (make-pane 'clim-extensions:box-adjuster-gadget))) - (format *query-io* "~S" children) (assert (member constellation children)) (sheet-disown-child parent constellation) (let ((new (if vertical-p