libpurple/plugins/tcl/signal-test.tcl@c238e0966eb1 (annotated)
libpurple/plugins/tcl/signal-test.tcl
Fri, 23 Feb 2007 16:49:32 +0000
- author
- Ethan Blanton <elb@pidgin.im>
- date
- Fri, 23 Feb 2007 16:49:32 +0000
- changeset 15750
- c238e0966eb1
- parent 15435
- 4b933b06d75e
- child 15758
- d31f3317c849
- permissions
- -rw-r--r--
gaim::plugin Tcl command, thanks to Dossy Shiobara
| 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 | ||
|
15750
c238e0966eb1
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15435
diff
changeset
|
103 | gaim::signal connect [gaim::plugins handle] plugin-load args { |
|
c238e0966eb1
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15435
diff
changeset
|
104 | gaim::debug -info "tcl signal" "plugin-load [list $args]" |
|
c238e0966eb1
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15435
diff
changeset
|
105 | } |
|
c238e0966eb1
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15435
diff
changeset
|
106 | |
|
c238e0966eb1
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15435
diff
changeset
|
107 | gaim::signal connect [gaim::plugins handle] plugin-unload args { |
|
c238e0966eb1
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15435
diff
changeset
|
108 | gaim::debug -info "tcl signal" "plugin-unload [list $args]" |
|
c238e0966eb1
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15435
diff
changeset
|
109 | } |
|
c238e0966eb1
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15435
diff
changeset
|
110 | |
| 6694 | 111 | proc plugin_init { } { |
| 112 | list "Tcl Signal Test" \ | |
| 113 | "$gaim::version" \ | |
| 8117 | 114 | "Tests Tcl signal handlers" \ |
| 6694 | 115 | "Debugs a ridiculous amount of signal information." \ |
| 116 | "Ethan Blanton <eblanton@cs.purdue.edu>" \ | |
| 117 | "http://gaim.sourceforge.net/" | |
| 118 | } |
