[beirc-cvs] CVS update: beirc/beirc.lisp

[Andreas Fuchs]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv1525

Modified Files:
	beirc.lisp 
Log Message:
Fix a few uses to find-in-tab-panes-list to use the recommended API

Date: Sat Sep 24 01:22:50 2005
Author: afuchs

Index: beirc/beirc.lisp
diff -u beirc/beirc.lisp:1.17 beirc/beirc.lisp:1.18
--- beirc/beirc.lisp:1.17	Sat Sep 24 01:04:21 2005
+++ beirc/beirc.lisp	Sat Sep 24 01:22:50 2005
@@ -184,8 +184,7 @@
 
 (defmethod switch-to-pane :after ((pane sheet) (parent (eql 'tab-layout-pane)))
   (let ((receiver (receiver-from-tab-pane
-                   (find-in-tab-panes-list pane
-                                           (find-pane-named *application-frame* 'query)))))
+                   (find-in-tab-panes-list pane 'tab-layout-pane))))
     (unless (null receiver)
       (setf (unseen-messages receiver) 0)
       (setf (messages-directed-to-me receiver) 0)
@@ -404,8 +403,7 @@
     (receiver-pane receiver beirc)
     (object)
   (receiver-from-tab-pane
-         (find-in-tab-panes-list object
-                                 (find-pane-named *application-frame* 'query))))
+         (find-in-tab-panes-list object 'tab-layout-pane)))
 
 (defun nick-equals-my-nick-p (nickname)
   (and *application-frame*