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

[Robert Strandh]

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