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

[Andreas Fuchs]

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

Modified Files:
	application.lisp 
Log Message:
add "unfocus" translator by mgr.

Date: Sun Sep 25 20:21:08 2005
Author: afuchs

Index: beirc/application.lisp
diff -u beirc/application.lisp:1.8 beirc/application.lisp:1.9
--- beirc/application.lisp:1.8	Sun Sep 25 19:58:14 2005
+++ beirc/application.lisp	Sun Sep 25 20:21:08 2005
@@ -407,6 +407,15 @@
     (object)
   (list object))
 
+(define-presentation-to-command-translator nickname-to-unfocus-translator
+    (nickname com-unfocus beirc
+              :gesture :menu
+              :menu t
+              :documentation "Unfocus this user"
+              :pointer-documentation "Unfocus this user")
+    (object)
+  (list object))
+
 (define-presentation-to-command-translator nickname-to-query-translator
     (nickname com-query beirc
               :gesture :menu