[beirc-cvs] CVS beirc

[afuchs]

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv2721

Modified Files:
	application.lisp 
Log Message:
Use explicit :gesture nil on menu-only presentation translators.


--- /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 19:18:38	1.58
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 19:29:10	1.59
@@ -626,6 +626,7 @@
 (define-presentation-to-command-translator nickname-to-ignore-translator
     (nickname com-ignore beirc
               :menu t
+              :gesture nil
               :documentation "Ignore this user"
               :pointer-documentation "Ignore this user"
               :tester ((object)
@@ -638,6 +639,7 @@
 (define-presentation-to-command-translator nickname-to-unignore-translator
     (nickname com-unignore beirc
               :menu t
+              :gesture nil
               :documentation "Unignore this user"
               :pointer-documentation "Unignore this user"
               :tester ((object)
@@ -649,6 +651,7 @@
 (define-presentation-to-command-translator nickname-to-focus-translator
     (nickname com-focus beirc
               :menu t
+              :gesture nil
               :documentation "Focus this user"
               :pointer-documentation "Focus this user"
               :tester ((object)
@@ -660,6 +663,7 @@
 (define-presentation-to-command-translator nickname-to-unfocus-translator
     (nickname com-unfocus beirc
               :menu t
+              :gesture nil
               :documentation "Unfocus this user"
               :pointer-documentation "Unfocus this user"
               :tester ((object)
@@ -671,6 +675,7 @@
 (define-presentation-to-command-translator nickname-to-query-translator
     (nickname com-query beirc
               :menu t
+              :gesture nil
               :documentation "Query this user"
               :pointer-documentation "Query this user")
     (object)
@@ -679,6 +684,7 @@
 (define-presentation-to-command-translator nickname-to-kick-translator
     (nickname com-kick beirc
               :menu t
+              :gesture nil
               :documentation "Kick this user"
               :pointer-documentation "Kick this user")
     (object)
@@ -691,6 +697,7 @@
 (define-presentation-to-command-translator nickname-to-ban-nick-translator
     (nickname com-ban-nick beirc
               :menu t
+              :gesture nil
               :documentation "Ban this user's nickname"
               :pointer-documentation "Ban this user's nickname")
     (object)
@@ -699,6 +706,7 @@
 (define-presentation-to-command-translator hostmask-to-ban-translator
     (hostmask com-ban-hostmask beirc
               :menu t
+              :gesture nil
               :documentation "Ban this hostmask"
               :pointer-documentation "Ban this hostmask")
     (object)
@@ -707,6 +715,7 @@
 (define-presentation-to-command-translator hostmask-to-unban-translator
     (hostmask com-unban-hostmask beirc
               :menu t
+              :gesture nil
               :documentation "Unban this hostmask"
               :pointer-documentation "Unban this hostmask")
     (object)
@@ -715,6 +724,7 @@
 (define-presentation-to-command-translator nickname-to-ban-hostmask-translator
     (nickname com-ban-hostmask beirc
               :menu t
+              :gesture nil
               :documentation "Ban this user's hostmask"
               :pointer-documentation "Ban this user's hostmask")
     (object)