plugins/tcl/signal-test.tcl@726fdb74d4d3 (annotated)
plugins/tcl/signal-test.tcl
Fri, 09 Apr 2004 05:29:37 +0000
- author
- Nathan Walp <nwalp@pidgin.im>
- date
- Fri, 09 Apr 2004 05:29:37 +0000
- changeset 8624
- 726fdb74d4d3
- parent 8117
- 0df7cb80c56c
- child 8999
- dd434cfec86a
- permissions
- -rw-r--r--
[gaim-migrate @ 9375]
wow.
| 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 | ||
| 49 | gaim::signal connect [gaim::conversation handle] received-chat-msg { account who what id } { | |
| 50 | gaim::debug -info "tcl signal" "received-chat-msg [gaim::account username $account] $id $who \"$what\"" | |
| 51 | return 0 | |
| 52 | } | |
| 53 | ||
| 54 | gaim::signal connect [gaim::conversation handle] received-im-msg { account who what flags } { | |
| 55 | gaim::debug -info "tcl signal" "received-im-msg [gaim::account username $account] $flags $who \"$what\"" | |
| 56 | return 0 | |
| 57 | } | |
| 58 | ||
| 59 | gaim::signal connect [gaim::conversation handle] sending-chat-msg { account what id } { | |
| 60 | gaim::debug -info "tcl signal" "sending-chat-msg [gaim::account username $account] $id \"$what\"" | |
| 61 | return 0 | |
| 62 | } | |
| 63 | ||
| 64 | gaim::signal connect [gaim::conversation handle] sending-im-msg { account who what } { | |
| 65 | gaim::debug -info "tcl signal" "sending-im-msg [gaim::account username $account] $who \"$what\"" | |
| 66 | return 0 | |
| 67 | } | |
| 68 | ||
| 69 | gaim::signal connect [gaim::conversation handle] sent-chat-msg { account id what } { | |
| 70 | gaim::debug -info "tcl signal" "sent-chat-msg [gaim::account username $account] $id \"$what\"" | |
| 71 | } | |
| 72 | ||
| 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\"" | |
| 75 | } | |
| 76 | ||
| 77 | gaim::signal connect [gaim::connection handle] signed-on { gc } { | |
| 6698 | 78 | gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]]" |
| 6694 | 79 | } |
| 80 | ||
| 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]]" | |
| 83 | } | |
| 84 | ||
| 85 | gaim::signal connect [gaim::connection handle] signing-on { gc } { | |
| 86 | gaim::debug -info "tcl signal" "signing-on [gaim::account username [gaim::connection account $gc]]" | |
| 87 | } | |
| 88 | ||
| 89 | if { 0 } { | |
| 90 | gaim::signal connect signing-off { | |
| 91 | gaim::debug -info "tcl signal" "signing-off [gaim::account username [gaim::connection account $event::gc]]" | |
| 92 | } | |
| 93 | ||
| 94 | gaim::signal connect update-idle { | |
| 95 | gaim::debug -info "tcl signal" "update-idle" | |
| 96 | } | |
| 97 | } | |
| 98 | ||
| 99 | proc plugin_init { } { | |
| 100 | list "Tcl Signal Test" \ | |
| 101 | "$gaim::version" \ | |
| 8117 | 102 | "Tests Tcl signal handlers" \ |
| 6694 | 103 | "Debugs a ridiculous amount of signal information." \ |
| 104 | "Ethan Blanton <eblanton@cs.purdue.edu>" \ | |
| 105 | "http://gaim.sourceforge.net/" | |
| 106 | } |
