Index: application.lisp
===================================================================
RCS file: /project/beirc/cvsroot/beirc/application.lisp,v
retrieving revision 1.4
diff -a -u -r1.4 application.lisp
--- application.lisp	25 Sep 2005 16:07:58 -0000	1.4
+++ application.lisp	25 Sep 2005 16:33:49 -0000
@@ -80,6 +80,7 @@
   (:panes
    (io
     :interactor)
+   (pointer-doc :pointer-documentation)
    (status-bar
     :application
     :display-function 'beirc-status-display
@@ -106,6 +107,7 @@
          (with-tab-layout ('receiver-pane :name 'query)
            ("*Server*" server 'receiver-pane))
          (60 io)
+         (20 pointer-doc)
          (20                            ;<-- Sigh! Bitrot!
           status-bar)))))
 
@@ -446,7 +448,11 @@
   (list (presentation-object presentation)))
 
 (define-presentation-translator receiver-pane-to-receiver-translator
-    (receiver-pane receiver beirc)
+    (receiver-pane receiver beirc
+       :documentation ((object stream)
+                       (format stream "Reiceiver: ~A"
+                               (title (receiver-from-tab-pane
+                                       (find-in-tab-panes-list object 'tab-layout-pane))))))
     (object)
   (receiver-from-tab-pane
          (find-in-tab-panes-list object 'tab-layout-pane)))
@@ -482,6 +488,7 @@
                    (clim-sys:make-process #'(lambda ()
                                               (irc-event-loop frame connection))
                                           :name "IRC Message Muffling Loop")))))))
+
 (defun quit (frame reason)
   (raise-receiver (server-receiver frame))
   (irc:quit (current-connection frame) reason)
Index: receivers.lisp
===================================================================
RCS file: /project/beirc/cvsroot/beirc/receivers.lisp,v
retrieving revision 1.1
diff -a -u -r1.1 receivers.lisp
--- receivers.lisp	25 Sep 2005 12:43:52 -0000	1.1
+++ receivers.lisp	25 Sep 2005 16:33:49 -0000
@@ -11,6 +11,16 @@
       (pane :reader pane)
       (tab-pane :accessor tab-pane)))
 
+(defun slot-value-or-something (object &key (slot 'name) (something "without name"))
+  (if (slot-boundp object slot)
+      (slot-value object slot)
+      something))
+
+(defmethod print-object ((receiver receiver) stream)
+  (print-unreadable-object (receiver stream :type t)
+    (write-string (slot-value-or-something receiver :slot 'title :something "without title")
+                  stream)))
+
 (define-presentation-type receiver-pane ())
 
 ;;; KLUDGE: make-clim-application-pane doesn't return an application