Mercurial > pidgin

diff plugins/tcl/signal-test.tcl @ 10104:60db14d54914

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 11131] "This patch that makes received-im-msg and received-chat-msg signals correspond with each other. My motivation was to add flags to received-chat-msg, but I also added conv to received-im-msg to make the signals match each other." -- Nathan Fredrickson (noif) I also updated the receiving-im-msg and receiving-chat-msg signals to match. Now I can finally reject patch 909745 with "this should be a plugin", which I've wanted to be able to say for a while. Yay :) committer: Tailor Script <tailor@pidgin.im>
author Stu Tomlinson <stu@nosnilmot.com>
date Sat, 16 Oct 2004 15:07:22 +0000
parents 8f838ae3e710
children 4d2d3104c92f
line wrap: on
line diff
--- a/plugins/tcl/signal-test.tcl	Sat Oct 16 01:05:40 2004 +0000
+++ b/plugins/tcl/signal-test.tcl	Sat Oct 16 15:07:22 2004 +0000
@@ -46,22 +46,22 @@
 	gaim::debug -info "tcl signal" "quitting"
 }
 
-gaim::signal connect [gaim::conversation handle] receiving-chat-msg { account who what id } {
-	gaim::debug -info "tcl signal" "receiving-chat-msg [gaim::account username $account] $id $who \"$what\""
+gaim::signal connect [gaim::conversation handle] receiving-chat-msg { account who what id flags } {
+	gaim::debug -info "tcl signal" "receiving-chat-msg [gaim::account username $account] $id $flags $who \"$what\""
 	return 0
 }
 
-gaim::signal connect [gaim::conversation handle] receiving-im-msg { account who what flags } {
-	gaim::debug -info "tcl signal" "receiving-im-msg [gaim::account username $account] $flags $who \"$what\""
+gaim::signal connect [gaim::conversation handle] receiving-im-msg { account who what id flags } {
+	gaim::debug -info "tcl signal" "receiving-im-msg [gaim::account username $account] $id $flags $who \"$what\""
 	return 0
 }
 
-gaim::signal connect [gaim::conversation handle] received-chat-msg { account who what id } {
-	gaim::debug -info "tcl signal" "received-chat-msg [gaim::account username $account] $id $who \"$what\""
+gaim::signal connect [gaim::conversation handle] received-chat-msg { account who what id flags } {
+	gaim::debug -info "tcl signal" "received-chat-msg [gaim::account username $account] $id $flags $who \"$what\""
 }
 
-gaim::signal connect [gaim::conversation handle] received-im-msg { account who what flags } {
-	gaim::debug -info "tcl signal" "received-im-msg [gaim::account username $account] $flags $who \"$what\""
+gaim::signal connect [gaim::conversation handle] received-im-msg { account who what id flags } {
+	gaim::debug -info "tcl signal" "received-im-msg [gaim::account username $account] $id $flags $who \"$what\""
 }
 
 gaim::signal connect [gaim::conversation handle] sending-chat-msg { account what id } {