[beirc-cvs] CVS beirc

[dlichteblau]

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)