Mercurial > pidgin
annotate libpurple/plugins/tcl/signal-test.tcl @ 22360:c5ab31c2f5c4
Polish translation updated (Emil Nowak)
Closes #4298
author | Stu Tomlinson <stu@nosnilmot.com> |
---|---|
date | Thu, 28 Feb 2008 15:29:27 +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 } |