Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv25999
Modified Files: gui.lisp Log Message: heh left some test code in there, sorry Date: Sun Feb 13 03:52:09 2005 Author: ejohnson
Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.107 climacs/gui.lisp:1.108 --- climacs/gui.lisp:1.107 Sun Feb 13 03:47:06 2005 +++ climacs/gui.lisp Sun Feb 13 03:52:08 2005 @@ -976,8 +976,7 @@ (unless (null (cdr (windows *application-frame*))) (let* ((saver (parent3 (current-window))) (top-level (do - ((a 1 (1+ a)) - (n saver (setf n (sheet-parent n)))) + ((n saver (setf n (sheet-parent n)))) ((clim-internals::top-level-sheet-pane-p n) n))) (level1 (car (sheet-children top-level))) ;; should be the only thing on level1 (level2 (if (typep (car (sheet-children level1)) 'vrack-pane) ;;don't select raised pane