plugins/tcl/signal-test.tcl@e68f50024a83 (annotated)
plugins/tcl/signal-test.tcl
Sun, 11 Sep 2005 17:05:58 +0000
- author
- Stu Tomlinson <nosnilmot@pidgin.im>
- date
- Sun, 11 Sep 2005 17:05:58 +0000
- changeset 11516
- e68f50024a83
- parent 10104
- 081392879815
- permissions
- -rw-r--r--
[gaim-migrate @ 13761]
The account-warned signal went away with the rest of the warning stuff in core
| 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::buddy handle] buddy-away { buddy } { | |
| 18 | gaim::debug -info "tcl signal" "buddy-away [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 19 | } | |
| 20 | ||
| 21 | gaim::signal connect [gaim::buddy handle] buddy-back { buddy } { | |
| 22 | gaim::debug -info "tcl signal" "buddy-back [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 23 | } | |
| 24 | ||
| 25 | gaim::signal connect [gaim::buddy handle] buddy-idle { buddy } { | |
| 26 | gaim::debug -info "tcl signal" "buddy-idle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 27 | } | |
| 28 | ||
| 29 | gaim::signal connect [gaim::buddy handle] buddy-unidle { buddy } { | |
| 30 | gaim::debug -info "tcl signal" "buddy-unidle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 31 | } | |
| 32 | ||
| 33 | gaim::signal connect [gaim::buddy handle] buddy-signed-on { buddy } { | |
| 34 | gaim::debug -info "tcl signal" "buddy-signed-on [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 35 | } | |
| 36 | ||
| 37 | gaim::signal connect [gaim::buddy handle] buddy-signed-off { buddy } { | |
| 38 | gaim::debug -info "tcl signal" "buddy-signed-off [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 39 | } | |
| 40 | ||
| 41 | gaim::signal connect [gaim::core handle] quitting {} { | |
| 42 | gaim::debug -info "tcl signal" "quitting" | |
| 43 | } | |
| 44 | ||
|
10104
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
45 | 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
|
46 | gaim::debug -info "tcl signal" "receiving-chat-msg [gaim::account username $account] $id $flags $who \"$what\"" |
| 8999 | 47 | return 0 |
| 48 | } | |
| 49 | ||
|
10104
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
50 | 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
|
51 | gaim::debug -info "tcl signal" "receiving-im-msg [gaim::account username $account] $id $flags $who \"$what\"" |
| 8999 | 52 | return 0 |
| 53 | } | |
| 54 | ||
|
10104
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
55 | 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
|
56 | gaim::debug -info "tcl signal" "received-chat-msg [gaim::account username $account] $id $flags $who \"$what\"" |
| 6694 | 57 | } |
| 58 | ||
|
10104
081392879815
[gaim-migrate @ 11131]
Nathan Fredrickson <nathan@silverorange.com>
parents:
8999
diff
changeset
|
59 | 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
|
60 | gaim::debug -info "tcl signal" "received-im-msg [gaim::account username $account] $id $flags $who \"$what\"" |
| 6694 | 61 | } |
| 62 | ||
| 63 | gaim::signal connect [gaim::conversation handle] sending-chat-msg { account what id } { | |
| 64 | gaim::debug -info "tcl signal" "sending-chat-msg [gaim::account username $account] $id \"$what\"" | |
| 65 | return 0 | |
| 66 | } | |
| 67 | ||
| 68 | gaim::signal connect [gaim::conversation handle] sending-im-msg { account who what } { | |
| 69 | gaim::debug -info "tcl signal" "sending-im-msg [gaim::account username $account] $who \"$what\"" | |
| 70 | return 0 | |
| 71 | } | |
| 72 | ||
| 73 | gaim::signal connect [gaim::conversation handle] sent-chat-msg { account id what } { | |
| 74 | gaim::debug -info "tcl signal" "sent-chat-msg [gaim::account username $account] $id \"$what\"" | |
| 75 | } | |
| 76 | ||
| 77 | gaim::signal connect [gaim::conversation handle] sent-im-msg { account who what } { | |
| 78 | gaim::debug -info "tcl signal" "sent-im-msg [gaim::account username $account] $who \"$what\"" | |
| 79 | } | |
| 80 | ||
| 81 | gaim::signal connect [gaim::connection handle] signed-on { gc } { | |
| 6698 | 82 | gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]]" |
| 6694 | 83 | } |
| 84 | ||
| 85 | gaim::signal connect [gaim::connection handle] signed-off { gc } { | |
| 86 | gaim::debug -info "tcl signal" "signed-off [gaim::account username [gaim::connection account $gc]]" | |
| 87 | } | |
| 88 | ||
| 89 | gaim::signal connect [gaim::connection handle] signing-on { gc } { | |
| 90 | gaim::debug -info "tcl signal" "signing-on [gaim::account username [gaim::connection account $gc]]" | |
| 91 | } | |
| 92 | ||
| 93 | if { 0 } { | |
| 94 | gaim::signal connect signing-off { | |
| 95 | gaim::debug -info "tcl signal" "signing-off [gaim::account username [gaim::connection account $event::gc]]" | |
| 96 | } | |
| 97 | ||
| 98 | gaim::signal connect update-idle { | |
| 99 | gaim::debug -info "tcl signal" "update-idle" | |
| 100 | } | |
| 101 | } | |
| 102 | ||
| 103 | proc plugin_init { } { | |
| 104 | list "Tcl Signal Test" \ | |
| 105 | "$gaim::version" \ | |
| 8117 | 106 | "Tests Tcl signal handlers" \ |
| 6694 | 107 | "Debugs a ridiculous amount of signal information." \ |
| 108 | "Ethan Blanton <eblanton@cs.purdue.edu>" \ | |
| 109 | "http://gaim.sourceforge.net/" | |
| 110 | } |
