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)