Mercurial > pidgin
comparison libpurple/plugins/tcl/signal-test.tcl @ 15373:5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Sat, 20 Jan 2007 02:32:10 +0000 |
parents | |
children | d79c9952f6bb |
comparison
equal
deleted
inserted
replaced
15372:f79e0f4df793 | 15373:5fe8042783c1 |
---|---|
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 | |
45 gaim::signal connect [gaim::conversation handle] receiving-chat-msg { account who what id flags } { | |
46 gaim::debug -info "tcl signal" "receiving-chat-msg [gaim::account username $account] $id $flags $who \"$what\"" | |
47 return 0 | |
48 } | |
49 | |
50 gaim::signal connect [gaim::conversation handle] receiving-im-msg { account who what id flags } { | |
51 gaim::debug -info "tcl signal" "receiving-im-msg [gaim::account username $account] $id $flags $who \"$what\"" | |
52 return 0 | |
53 } | |
54 | |
55 gaim::signal connect [gaim::conversation handle] received-chat-msg { account who what id flags } { | |
56 gaim::debug -info "tcl signal" "received-chat-msg [gaim::account username $account] $id $flags $who \"$what\"" | |
57 } | |
58 | |
59 gaim::signal connect [gaim::conversation handle] received-im-msg { account who what id flags } { | |
60 gaim::debug -info "tcl signal" "received-im-msg [gaim::account username $account] $id $flags $who \"$what\"" | |
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 } { | |
82 gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]]" | |
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" \ | |
106 "Tests Tcl signal handlers" \ | |
107 "Debugs a ridiculous amount of signal information." \ | |
108 "Ethan Blanton <eblanton@cs.purdue.edu>" \ | |
109 "http://gaim.sourceforge.net/" | |
110 } |