Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv13582

Modified Files: application.lisp Log Message: repaired define-window-switcher, thanks to Thomas Persson for the bug report

--- /project/beirc/cvsroot/beirc/application.lisp 2007/02/24 10:58:16 1.85 +++ /project/beirc/cvsroot/beirc/application.lisp 2007/02/24 19:25:49 1.86 @@ -417,9 +417,12 @@ (macrolet ((define-window-switcher (name keystroke direction predicate) `(define-beirc-command (,name :name t :keystroke ,keystroke) () - (let* ((current-pane (tab-page-pane - (tab-layout-enabled-page (find-pane-named *application-frame* 'query)))) - (list-of-panes (sheet-children (sheet-parent current-pane))) + (let* ((tab-layout + (find-pane-named *application-frame* 'query)) + (current-pane (tab-page-pane + (tab-layout-enabled-page tab-layout))) + (list-of-panes (mapcar #'tab-page-pane + (tab-layout-pages tab-layout))) (n-panes (length list-of-panes)) (current-pane-position (position current-pane list-of-panes)) (position current-pane-position)