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

[Max-Gerd Retzlaff]

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)