plugins/tcl/signal-test.tcl@80801a34a246 (annotated)
plugins/tcl/signal-test.tcl
Mon, 17 Jan 2005 00:33:30 +0000
- author
- Stu Tomlinson <nosnilmot@pidgin.im>
- date
- Mon, 17 Jan 2005 00:33:30 +0000
- changeset 10519
- 80801a34a246
- parent 10104
- 081392879815
- child 11516
- e68f50024a83
- permissions
- -rw-r--r--
[gaim-migrate @ 11833]
Leak fixes, round #2. And some minor MSN tweaks suggested by Felipe.
| 6694 | 1 | gaim::signal connect [gaim::account handle] account-away { account state message } { |
| 2 | gaim::debug -info "tcl signal" "account-away [gaim::account username $account] \"$state\" \"$message\"" | |
| 3 | } | |
| 4 | ||
| 5 | gaim::signal connect [gaim::account handle] account-connecting { account } { | |
| 6 | gaim::debug -info "tcl signal" "account-connecting [gaim::account username $account]" | |
| 7 | } | |
| 8 | ||
| 9 | gaim::signal connect [gaim::account handle] account-set-info { account info } { | |
| 10 | gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info" | |
| 11 | } | |
| 12 | ||
| 13 | gaim::signal connect [gaim::account handle] account-setting-info { account info } { | |
| 14 | gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info" | |
| 15 | } | |
| 16 | ||
| 17 | gaim::signal connect [gaim::account handle] account-warned { account who level } { | |
| 18 | gaim::debug -info "tcl signal" "account-warned [gaim::account username $account] $who $level" | |
| 19 | } | |
| 20 | ||
| 21 | gaim::signal connect [gaim::buddy handle] buddy-away { buddy } { | |
| 22 | gaim::debug -info "tcl signal" "buddy-away [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 23 | } | |
| 24 | ||
| 25 | gaim::signal connect [gaim::buddy handle] buddy-back { buddy } { | |
| 26 | gaim::debug -info "tcl signal" "buddy-back [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 27 | } | |
| 28 | ||
| 29 | gaim::signal connect [gaim::buddy handle] buddy-idle { buddy } { | |
| 30 | gaim::debug -info "tcl signal" "buddy-idle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 31 | } | |
| 32 | ||
| 33 | gaim::signal connect [gaim::buddy handle] buddy-unidle { buddy } { | |
| 34 | gaim::debug -info "tcl signal" "buddy-unidle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 35 | } | |
| 36 | ||
| 37 | gaim::signal connect [gaim::buddy handle] buddy-signed-on { buddy } { | |
| 38 | gaim::debug -info "tcl signal" "buddy-signed-on [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 39 | } | |
| 40 | ||
| 41 | gaim::signal connect [gaim::buddy handle] buddy-signed-off { buddy } { | |
| 42 | gaim::debug -info "tcl signal" "buddy-signed-off [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 43 | } | |
| 44 | ||
| 45 | gaim::signal connect [gaim::core handle] quitting {} { | |
| 46 | gaim::debug -info "tcl signal" "quitting" | |
| 47 | } | |
| 48 | ||
|
10104
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
49 | gaim::signal connect [gaim::conversation handle] receiving-chat-msg { account who what id flags } { |
|
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
50 | gaim::debug -info "tcl signal" "receiving-chat-msg [gaim::account username $account] $id $flags $who \"$what\"" |
| 8999 | 51 | return 0 |
| 52 | } | |
| 53 | ||
|
10104
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
54 | gaim::signal connect [gaim::conversation handle] receiving-im-msg { account who what id flags } { |
|
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
55 | gaim::debug -info "tcl signal" "receiving-im-msg [gaim::account username $account] $id $flags $who \"$what\"" |
| 8999 | 56 | return 0 |
| 57 | } | |
| 58 | ||
|
10104
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
59 | gaim::signal connect [gaim::conversation handle] received-chat-msg { account who what id flags } { |
|
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
60 | gaim::debug -info "tcl signal" "received-chat-msg [gaim::account username $account] $id $flags $who \"$what\"" |
| 6694 | 61 | } |
| 62 | ||
|
10104
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
63 | gaim::signal connect [gaim::conversation handle] received-im-msg { account who what id flags } { |
|
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
64 | gaim::debug -info "tcl signal" "received-im-msg [gaim::account username $account] $id $flags $who \"$what\"" |
| 6694 | 65 | } |
| 66 | ||
| 67 | gaim::signal connect [gaim::conversation handle] sending-chat-msg { account what id } { | |
| 68 | gaim::debug -info "tcl signal" "sending-chat-msg [gaim::account username $account] $id \"$what\"" | |
| 69 | return 0 | |
| 70 | } | |
| 71 | ||
| 72 | gaim::signal connect [gaim::conversation handle] sending-im-msg { account who what } { | |
| 73 | gaim::debug -info "tcl signal" "sending-im-msg [gaim::account username $account] $who \"$what\"" | |
| 74 | return 0 | |
| 75 | } | |
| 76 | ||
| 77 | gaim::signal connect [gaim::conversation handle] sent-chat-msg { account id what } { | |
| 78 | gaim::debug -info "tcl signal" "sent-chat-msg [gaim::account username $account] $id \"$what\"" | |
| 79 | } | |
| 80 | ||
| 81 | gaim::signal connect [gaim::conversation handle] sent-im-msg { account who what } { | |
| 82 | gaim::debug -info "tcl signal" "sent-im-msg [gaim::account username $account] $who \"$what\"" | |
| 83 | } | |
| 84 | ||
| 85 | gaim::signal connect [gaim::connection handle] signed-on { gc } { | |
| 6698 | 86 | gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]]" |
| 6694 | 87 | } |
| 88 | ||
| 89 | gaim::signal connect [gaim::connection handle] signed-off { gc } { | |
| 90 | gaim::debug -info "tcl signal" "signed-off [gaim::account username [gaim::connection account $gc]]" | |
| 91 | } | |
| 92 | ||
| 93 | gaim::signal connect [gaim::connection handle] signing-on { gc } { | |
| 94 | gaim::debug -info "tcl signal" "signing-on [gaim::account username [gaim::connection account $gc]]" | |
| 95 | } | |
| 96 | ||
| 97 | if { 0 } { | |
| 98 | gaim::signal connect signing-off { | |
| 99 | gaim::debug -info "tcl signal" "signing-off [gaim::account username [gaim::connection account $event::gc]]" | |
| 100 | } | |
| 101 | ||
| 102 | gaim::signal connect update-idle { | |
| 103 | gaim::debug -info "tcl signal" "update-idle" | |
| 104 | } | |
| 105 | } | |
| 106 | ||
| 107 | proc plugin_init { } { | |
| 108 | list "Tcl Signal Test" \ | |
| 109 | "$gaim::version" \ | |
| 8117 | 110 | "Tests Tcl signal handlers" \ |
| 6694 | 111 | "Debugs a ridiculous amount of signal information." \ |
| 112 | "Ethan Blanton <eblanton@cs.purdue.edu>" \ | |
| 113 | "http://gaim.sourceforge.net/" | |
| 114 | } |
