|
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
|
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\""
|
|
8999
|
47 return 0
|
|
|
48 }
|
|
|
49
|
|
10104
|
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\""
|
|
8999
|
52 return 0
|
|
|
53 }
|
|
|
54
|
|
10104
|
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\""
|
|
6694
|
57 }
|
|
|
58
|
|
10104
|
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\""
|
|
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 }
|
