Mercurial > pidgin
annotate libpurple/plugins/tcl/signal-test.tcl @ 18916:0f46f13c0805
Proposed "attention" API, a generalization of zaps (MySpaceIM), buzzes
(Yahoo), and nudges (MSN).
Adds a PurpleAttentionType struct to prpl.h, which is used to describe the
the attention command (some protocols, notably MySpaceIM, support more than
one).
Uses two reserved fields in PurplePluginProtocolInfo, one function for sending
an attention command, another for getting the possible attention commands
(similar to status_types).
Adds serv_got_attention() to server.c, similar to serv_got_im(), used to notify
of incoming or outgoing attention notices.
author | Jeffrey Connelly <jaconnel@calpoly.edu> |
---|---|
date | Mon, 13 Aug 2007 05:59:24 +0000 |
parents | f4c72a722741 |
children |
rev | line source |
---|---|
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
1 purple::signal connect [purple::account handle] account-away { account state message } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
2 purple::debug -info "tcl signal" "account-away [purple::account username $account] \"$state\" \"$message\"" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
3 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
4 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
5 purple::signal connect [purple::account handle] account-connecting { account } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
6 purple::debug -info "tcl signal" "account-connecting [purple::account username $account]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
7 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
8 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
9 purple::signal connect [purple::account handle] account-set-info { account info } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
10 purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
11 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
12 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
13 purple::signal connect [purple::account handle] account-setting-info { account info } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
14 purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
15 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
16 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
17 purple::signal connect [purple::buddy handle] buddy-away { buddy } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
18 purple::debug -info "tcl signal" "buddy-away [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
19 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
20 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
21 purple::signal connect [purple::buddy handle] buddy-back { buddy } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
22 purple::debug -info "tcl signal" "buddy-back [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
23 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
24 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
25 purple::signal connect [purple::buddy handle] buddy-idle { buddy } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
26 purple::debug -info "tcl signal" "buddy-idle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
27 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
28 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
29 purple::signal connect [purple::buddy handle] buddy-unidle { buddy } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
30 purple::debug -info "tcl signal" "buddy-unidle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
31 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
32 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
33 purple::signal connect [purple::buddy handle] buddy-signed-on { buddy } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
34 purple::debug -info "tcl signal" "buddy-signed-on [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
35 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
36 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
37 purple::signal connect [purple::buddy handle] buddy-signed-off { buddy } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
38 purple::debug -info "tcl signal" "buddy-signed-off [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
39 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
40 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
41 purple::signal connect [purple::core handle] quitting {} { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
42 purple::debug -info "tcl signal" "quitting" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
43 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
44 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
45 purple::signal connect [purple::conversation handle] receiving-chat-msg { account who what id flags } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
46 purple::debug -info "tcl signal" "receiving-chat-msg [purple::account username $account] $id $flags $who \"$what\"" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
47 return 0 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
48 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
49 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
50 purple::signal connect [purple::conversation handle] receiving-im-msg { account who what id flags } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
51 purple::debug -info "tcl signal" "receiving-im-msg [purple::account username $account] $id $flags $who \"$what\"" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
52 return 0 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
53 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
54 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
55 purple::signal connect [purple::conversation handle] received-chat-msg { account who what id flags } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
56 purple::debug -info "tcl signal" "received-chat-msg [purple::account username $account] $id $flags $who \"$what\"" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
57 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
58 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
59 purple::signal connect [purple::conversation handle] received-im-msg { account who what id flags } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
60 purple::debug -info "tcl signal" "received-im-msg [purple::account username $account] $id $flags $who \"$what\"" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
61 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
62 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
63 purple::signal connect [purple::conversation handle] sending-chat-msg { account what id } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
64 purple::debug -info "tcl signal" "sending-chat-msg [purple::account username $account] $id \"$what\"" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
65 return 0 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
66 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
67 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
68 purple::signal connect [purple::conversation handle] sending-im-msg { account who what } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
69 purple::debug -info "tcl signal" "sending-im-msg [purple::account username $account] $who \"$what\"" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
70 return 0 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
71 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
72 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
73 purple::signal connect [purple::conversation handle] sent-chat-msg { account id what } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
74 purple::debug -info "tcl signal" "sent-chat-msg [purple::account username $account] $id \"$what\"" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
75 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
76 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
77 purple::signal connect [purple::conversation handle] sent-im-msg { account who what } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
78 purple::debug -info "tcl signal" "sent-im-msg [purple::account username $account] $who \"$what\"" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
79 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
80 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
81 purple::signal connect [purple::connection handle] signed-on { gc } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
82 purple::debug -info "tcl signal" "signed-on [purple::account username [purple::connection account $gc]]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
83 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
84 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
85 purple::signal connect [purple::connection handle] signed-off { gc } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
86 purple::debug -info "tcl signal" "signed-off [purple::account username [purple::connection account $gc]]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
87 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
88 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
89 purple::signal connect [purple::connection handle] signing-on { gc } { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
90 purple::debug -info "tcl signal" "signing-on [purple::account username [purple::connection account $gc]]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
91 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
92 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
93 if { 0 } { |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
94 purple::signal connect signing-off { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
95 purple::debug -info "tcl signal" "signing-off [purple::account username [purple::connection account $event::gc]]" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
96 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
97 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
98 purple::signal connect update-idle { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
99 purple::debug -info "tcl signal" "update-idle" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
100 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
101 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
102 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
103 purple::signal connect [purple::plugins handle] plugin-load args { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
104 purple::debug -info "tcl signal" "plugin-load [list $args]" |
15686
d79c9952f6bb
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15373
diff
changeset
|
105 } |
d79c9952f6bb
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15373
diff
changeset
|
106 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
107 purple::signal connect [purple::plugins handle] plugin-unload args { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
108 purple::debug -info "tcl signal" "plugin-unload [list $args]" |
15686
d79c9952f6bb
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15373
diff
changeset
|
109 } |
d79c9952f6bb
gaim::plugin Tcl command, thanks to Dossy Shiobara
Ethan Blanton <elb@pidgin.im>
parents:
15373
diff
changeset
|
110 |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
111 purple::signal connect [purple::savedstatuses handle] savedstatus-changed args { |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
112 purple::debug -info "tcl signal" "savedstatus-changed [list $args]" |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
113 purple::debug -info "tcl signal" "purple::savedstatus current = [purple::savedstatus current]" |
15696
31a6bfedf7be
Tcl savedstatus command, again from Dossy Shiobara. Dossy is on fire.
Ethan Blanton <elb@pidgin.im>
parents:
15686
diff
changeset
|
114 } |
31a6bfedf7be
Tcl savedstatus command, again from Dossy Shiobara. Dossy is on fire.
Ethan Blanton <elb@pidgin.im>
parents:
15686
diff
changeset
|
115 |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
116 proc plugin_init { } { |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
117 list "Tcl Signal Test" \ |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
118 "$purple::version" \ |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
119 "Tests Tcl signal handlers" \ |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
120 "Debugs a ridiculous amount of signal information." \ |
16363
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
121 "Ethan Blanton <elb@pidgin.im>" \ |
f4c72a722741
This looks like the last of the purplification for Tcl. Somebody done
Ethan Blanton <elb@pidgin.im>
parents:
15696
diff
changeset
|
122 "http://www.pidgin.im/" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
123 } |