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

Modified Files: application.lisp Log Message: Adds a receiver-pane-to-channel-translator presentation translator. (Useful for rejoining channels for which tab-panes are already existing.)

Date: Sun Oct 2 06:01:32 2005 Author: mretzlaff

Index: beirc/application.lisp diff -u beirc/application.lisp:1.18 beirc/application.lisp:1.19 --- beirc/application.lisp:1.18 Fri Sep 30 15:30:34 2005 +++ beirc/application.lisp Sun Oct 2 06:01:25 2005 @@ -497,6 +497,16 @@ (receiver-from-tab-pane (find-in-tab-panes-list object 'tab-layout-pane)))

+(define-presentation-translator receiver-pane-to-channel-translator + (receiver-pane channel beirc + :documentation ((object stream) + (format stream "Channel: ~A" + (channel (receiver-from-tab-pane + (find-in-tab-panes-list object 'tab-layout-pane)))))) + (object) + (channel (receiver-from-tab-pane + (find-in-tab-panes-list object 'tab-layout-pane)))) + (define-presentation-translator nickname-to-hostmask-translator (nickname hostmask beirc :tester ((object context-type)