Mercurial > pidgin.yaz

comparison plugins/tcl/signal-test.tcl @ 6698:fe9568f4055f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 7224] ] committer: Tailor Script <tailor@pidgin.im>
author Ethan Blanton <elb@pidgin.im>
date Tue, 02 Sep 2003 03:54:52 +0000
parents 2d2f04c5c7d2
children e280d73ed07f
comparison
equal deleted inserted replaced
6697:c08d32c3213e 6698:fe9568f4055f
73 gaim::signal connect [gaim::conversation handle] sent-im-msg { account who what } { 73 gaim::signal connect [gaim::conversation handle] sent-im-msg { account who what } {
74 gaim::debug -info "tcl signal" "sent-im-msg [gaim::account username $account] $who \"$what\"" 74 gaim::debug -info "tcl signal" "sent-im-msg [gaim::account username $account] $who \"$what\""
75 } 75 }
76 76
77 gaim::signal connect [gaim::connection handle] signed-on { gc } { 77 gaim::signal connect [gaim::connection handle] signed-on { gc } {
78 gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]" 78 gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]]"
79 } 79 }
80 80
81 gaim::signal connect [gaim::connection handle] signed-off { gc } { 81 gaim::signal connect [gaim::connection handle] signed-off { gc } {
82 gaim::debug -info "tcl signal" "signed-off [gaim::account username [gaim::connection account $gc]]" 82 gaim::debug -info "tcl signal" "signed-off [gaim::account username [gaim::connection account $gc]]"
83 } 83 }