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