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*