[beirc-cvs] CVS beirc

[afuchs]

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

Modified Files:
	application.lisp 
Log Message:
remove :gesture :menu to make the right-click presentation menu work again.


--- /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 09:39:08	1.56
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 19:11:19	1.57
@@ -625,7 +625,6 @@
 
 (define-presentation-to-command-translator nickname-to-ignore-translator
     (nickname com-ignore beirc
-              :gesture :menu
               :menu t
               :documentation "Ignore this user"
               :pointer-documentation "Ignore this user"
@@ -638,7 +637,6 @@
 
 (define-presentation-to-command-translator nickname-to-unignore-translator
     (nickname com-unignore beirc
-              :gesture :menu
               :menu t
               :documentation "Unignore this user"
               :pointer-documentation "Unignore this user"
@@ -650,7 +648,6 @@
 
 (define-presentation-to-command-translator nickname-to-focus-translator
     (nickname com-focus beirc
-              :gesture :menu
               :menu t
               :documentation "Focus this user"
               :pointer-documentation "Focus this user"
@@ -662,7 +659,6 @@
 
 (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"
@@ -674,7 +670,6 @@
 
 (define-presentation-to-command-translator nickname-to-query-translator
     (nickname com-query beirc
-              :gesture :menu
               :menu t
               :documentation "Query this user"
               :pointer-documentation "Query this user")
@@ -683,7 +678,6 @@
 
 (define-presentation-to-command-translator nickname-to-kick-translator
     (nickname com-kick beirc
-              :gesture :menu
               :menu t
               :documentation "Kick this user"
               :pointer-documentation "Kick this user")
@@ -696,7 +690,6 @@
 
 (define-presentation-to-command-translator nickname-to-ban-nick-translator
     (nickname com-ban-nick beirc
-              :gesture :menu
               :menu t
               :documentation "Ban this user's nickname"
               :pointer-documentation "Ban this user's nickname")
@@ -705,7 +698,6 @@
 
 (define-presentation-to-command-translator hostmask-to-ban-translator
     (hostmask com-ban-hostmask beirc
-              :gesture :menu
               :menu t
               :documentation "Ban this hostmask"
               :pointer-documentation "Ban this hostmask")
@@ -714,7 +706,6 @@
 
 (define-presentation-to-command-translator hostmask-to-unban-translator
     (hostmask com-unban-hostmask beirc
-              :gesture :menu
               :menu t
               :documentation "Unban this hostmask"
               :pointer-documentation "Unban this hostmask")
@@ -723,7 +714,6 @@
 
 (define-presentation-to-command-translator nickname-to-ban-hostmask-translator
     (nickname com-ban-hostmask beirc
-              :gesture :menu
               :menu t
               :documentation "Ban this user's hostmask"
               :pointer-documentation "Ban this user's hostmask")