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

[Andreas Fuchs]

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

Modified Files:
	application.lisp 
Log Message:
Fix the hostname translator: add a tester to it that returns true only
for the 'hostmask input-context.

Date: Wed Sep 28 21:40:08 2005
Author: afuchs

Index: beirc/application.lisp
diff -u beirc/application.lisp:1.15 beirc/application.lisp:1.16
--- beirc/application.lisp:1.15	Wed Sep 28 21:33:28 2005
+++ beirc/application.lisp	Wed Sep 28 21:40:07 2005
@@ -493,9 +493,11 @@
   (receiver-from-tab-pane
          (find-in-tab-panes-list object 'tab-layout-pane)))
 
-#+(or) ; XXX: for some reason, this translator is activated when accepting NICKNAME.
 (define-presentation-translator nickname-to-hostmask-translator
-    (nickname hostmask beirc)
+    (nickname hostmask beirc
+              :tester ((object context-type)
+                       (declare (ignore object))
+                        (eql context-type 'hostmask)))
     (object)
   (format nil "*!*@~A" (irc:hostname (irc:find-user (current-connection *application-frame*) object))))