Mercurial > pidgin.yaz

comparison libpurple/plugins/tcl/signal-test.tcl @ 16363:f4c72a722741

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
This looks like the last of the purplification for Tcl. Somebody done did them a good job fixing it up.
author Ethan Blanton <elb@pidgin.im>
date Wed, 25 Apr 2007 02:36:05 +0000
parents 31a6bfedf7be
children
comparison
equal deleted inserted replaced
16362:7d0d3a746299 16363:f4c72a722741
1 gaim::signal connect [gaim::account handle] account-away { account state message } { 1 purple::signal connect [purple::account handle] account-away { account state message } {
2 gaim::debug -info "tcl signal" "account-away [gaim::account username $account] \"$state\" \"$message\"" 2 purple::debug -info "tcl signal" "account-away [purple::account username $account] \"$state\" \"$message\""
3 } 3 }
4 4
5 gaim::signal connect [gaim::account handle] account-connecting { account } { 5 purple::signal connect [purple::account handle] account-connecting { account } {
6 gaim::debug -info "tcl signal" "account-connecting [gaim::account username $account]" 6 purple::debug -info "tcl signal" "account-connecting [purple::account username $account]"
7 } 7 }
8 8
9 gaim::signal connect [gaim::account handle] account-set-info { account info } { 9 purple::signal connect [purple::account handle] account-set-info { account info } {
10 gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info" 10 purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info"
11 } 11 }
12 12
13 gaim::signal connect [gaim::account handle] account-setting-info { account info } { 13 purple::signal connect [purple::account handle] account-setting-info { account info } {
14 gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info" 14 purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info"
15 } 15 }
16 16
17 gaim::signal connect [gaim::buddy handle] buddy-away { buddy } { 17 purple::signal connect [purple::buddy handle] buddy-away { buddy } {
18 gaim::debug -info "tcl signal" "buddy-away [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" 18 purple::debug -info "tcl signal" "buddy-away [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
19 } 19 }
20 20
21 gaim::signal connect [gaim::buddy handle] buddy-back { buddy } { 21 purple::signal connect [purple::buddy handle] buddy-back { buddy } {
22 gaim::debug -info "tcl signal" "buddy-back [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" 22 purple::debug -info "tcl signal" "buddy-back [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
23 } 23 }
24 24
25 gaim::signal connect [gaim::buddy handle] buddy-idle { buddy } { 25 purple::signal connect [purple::buddy handle] buddy-idle { buddy } {
26 gaim::debug -info "tcl signal" "buddy-idle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" 26 purple::debug -info "tcl signal" "buddy-idle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
27 } 27 }
28 28
29 gaim::signal connect [gaim::buddy handle] buddy-unidle { buddy } { 29 purple::signal connect [purple::buddy handle] buddy-unidle { buddy } {
30 gaim::debug -info "tcl signal" "buddy-unidle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" 30 purple::debug -info "tcl signal" "buddy-unidle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
31 } 31 }
32 32
33 gaim::signal connect [gaim::buddy handle] buddy-signed-on { buddy } { 33 purple::signal connect [purple::buddy handle] buddy-signed-on { buddy } {
34 gaim::debug -info "tcl signal" "buddy-signed-on [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" 34 purple::debug -info "tcl signal" "buddy-signed-on [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
35 } 35 }
36 36
37 gaim::signal connect [gaim::buddy handle] buddy-signed-off { buddy } { 37 purple::signal connect [purple::buddy handle] buddy-signed-off { buddy } {
38 gaim::debug -info "tcl signal" "buddy-signed-off [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" 38 purple::debug -info "tcl signal" "buddy-signed-off [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
39 } 39 }
40 40
41 gaim::signal connect [gaim::core handle] quitting {} { 41 purple::signal connect [purple::core handle] quitting {} {
42 gaim::debug -info "tcl signal" "quitting" 42 purple::debug -info "tcl signal" "quitting"
43 } 43 }
44 44
45 gaim::signal connect [gaim::conversation handle] receiving-chat-msg { account who what id flags } { 45 purple::signal connect [purple::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\"" 46 purple::debug -info "tcl signal" "receiving-chat-msg [purple::account username $account] $id $flags $who \"$what\""
47 return 0 47 return 0
48 } 48 }
49 49
50 gaim::signal connect [gaim::conversation handle] receiving-im-msg { account who what id flags } { 50 purple::signal connect [purple::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\"" 51 purple::debug -info "tcl signal" "receiving-im-msg [purple::account username $account] $id $flags $who \"$what\""
52 return 0 52 return 0
53 } 53 }
54 54
55 gaim::signal connect [gaim::conversation handle] received-chat-msg { account who what id flags } { 55 purple::signal connect [purple::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\"" 56 purple::debug -info "tcl signal" "received-chat-msg [purple::account username $account] $id $flags $who \"$what\""
57 } 57 }
58 58
59 gaim::signal connect [gaim::conversation handle] received-im-msg { account who what id flags } { 59 purple::signal connect [purple::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\"" 60 purple::debug -info "tcl signal" "received-im-msg [purple::account username $account] $id $flags $who \"$what\""
61 } 61 }
62 62
63 gaim::signal connect [gaim::conversation handle] sending-chat-msg { account what id } { 63 purple::signal connect [purple::conversation handle] sending-chat-msg { account what id } {
64 gaim::debug -info "tcl signal" "sending-chat-msg [gaim::account username $account] $id \"$what\"" 64 purple::debug -info "tcl signal" "sending-chat-msg [purple::account username $account] $id \"$what\""
65 return 0 65 return 0
66 } 66 }
67 67
68 gaim::signal connect [gaim::conversation handle] sending-im-msg { account who what } { 68 purple::signal connect [purple::conversation handle] sending-im-msg { account who what } {
69 gaim::debug -info "tcl signal" "sending-im-msg [gaim::account username $account] $who \"$what\"" 69 purple::debug -info "tcl signal" "sending-im-msg [purple::account username $account] $who \"$what\""
70 return 0 70 return 0
71 } 71 }
72 72
73 gaim::signal connect [gaim::conversation handle] sent-chat-msg { account id what } { 73 purple::signal connect [purple::conversation handle] sent-chat-msg { account id what } {
74 gaim::debug -info "tcl signal" "sent-chat-msg [gaim::account username $account] $id \"$what\"" 74 purple::debug -info "tcl signal" "sent-chat-msg [purple::account username $account] $id \"$what\""
75 } 75 }
76 76
77 gaim::signal connect [gaim::conversation handle] sent-im-msg { account who what } { 77 purple::signal connect [purple::conversation handle] sent-im-msg { account who what } {
78 gaim::debug -info "tcl signal" "sent-im-msg [gaim::account username $account] $who \"$what\"" 78 purple::debug -info "tcl signal" "sent-im-msg [purple::account username $account] $who \"$what\""
79 } 79 }
80 80
81 gaim::signal connect [gaim::connection handle] signed-on { gc } { 81 purple::signal connect [purple::connection handle] signed-on { gc } {
82 gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]]" 82 purple::debug -info "tcl signal" "signed-on [purple::account username [purple::connection account $gc]]"
83 } 83 }
84 84
85 gaim::signal connect [gaim::connection handle] signed-off { gc } { 85 purple::signal connect [purple::connection handle] signed-off { gc } {
86 gaim::debug -info "tcl signal" "signed-off [gaim::account username [gaim::connection account $gc]]" 86 purple::debug -info "tcl signal" "signed-off [purple::account username [purple::connection account $gc]]"
87 } 87 }
88 88
89 gaim::signal connect [gaim::connection handle] signing-on { gc } { 89 purple::signal connect [purple::connection handle] signing-on { gc } {
90 gaim::debug -info "tcl signal" "signing-on [gaim::account username [gaim::connection account $gc]]" 90 purple::debug -info "tcl signal" "signing-on [purple::account username [purple::connection account $gc]]"
91 } 91 }
92 92
93 if { 0 } { 93 if { 0 } {
94 gaim::signal connect signing-off { 94 purple::signal connect signing-off {
95 gaim::debug -info "tcl signal" "signing-off [gaim::account username [gaim::connection account $event::gc]]" 95 purple::debug -info "tcl signal" "signing-off [purple::account username [purple::connection account $event::gc]]"
96 } 96 }
97 97
98 gaim::signal connect update-idle { 98 purple::signal connect update-idle {
99 gaim::debug -info "tcl signal" "update-idle" 99 purple::debug -info "tcl signal" "update-idle"
100 } 100 }
101 } 101 }
102 102
103 gaim::signal connect [gaim::plugins handle] plugin-load args { 103 purple::signal connect [purple::plugins handle] plugin-load args {
104 gaim::debug -info "tcl signal" "plugin-load [list $args]" 104 purple::debug -info "tcl signal" "plugin-load [list $args]"
105 } 105 }
106 106
107 gaim::signal connect [gaim::plugins handle] plugin-unload args { 107 purple::signal connect [purple::plugins handle] plugin-unload args {
108 gaim::debug -info "tcl signal" "plugin-unload [list $args]" 108 purple::debug -info "tcl signal" "plugin-unload [list $args]"
109 } 109 }
110 110
111 gaim::signal connect [gaim::savedstatuses handle] savedstatus-changed args { 111 purple::signal connect [purple::savedstatuses handle] savedstatus-changed args {
112 gaim::debug -info "tcl signal" "savedstatus-changed [list $args]" 112 purple::debug -info "tcl signal" "savedstatus-changed [list $args]"
113 gaim::debug -info "tcl signal" "gaim::savedstatus current = [gaim::savedstatus current]" 113 purple::debug -info "tcl signal" "purple::savedstatus current = [purple::savedstatus current]"
114 } 114 }
115 115
116 proc plugin_init { } { 116 proc plugin_init { } {
117 list "Tcl Signal Test" \ 117 list "Tcl Signal Test" \
118 "$gaim::version" \ 118 "$purple::version" \
119 "Tests Tcl signal handlers" \ 119 "Tests Tcl signal handlers" \
120 "Debugs a ridiculous amount of signal information." \ 120 "Debugs a ridiculous amount of signal information." \
121 "Ethan Blanton <eblanton@cs.purdue.edu>" \ 121 "Ethan Blanton <elb@pidgin.im>" \
122 "http://gaim.sourceforge.net/" 122 "http://www.pidgin.im/"
123 } 123 }