Mercurial > pidgin
annotate plugins/perl/common/Prpl.xs @ 12919:248b8b39c671
[gaim-migrate @ 15272]
Replace GaimBlistNodeAction with the more generic GaimMenuAction, this is in
preparation for letting the chat room user list have extensible menus like the
blist entries do. (I know it's not exactly the prettiest, and the callback
isn't exactly type-safe, when we eventually gobjectify everything we can get
some safety back by using (GObject, gpointer) but that's for later.)
I'm planning to look into merging GaimPluginActions into GaimMenuActions as
well.
committer: Tailor Script <tailor@pidgin.im>
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Tue, 17 Jan 2006 23:22:19 +0000 |
parents | 33cb3206af90 |
children |
rev | line source |
---|---|
11118 | 1 #include "module.h" |
2 | |
3 MODULE = Gaim::Prpl PACKAGE = Gaim::Find PREFIX = gaim_find_ | |
4 PROTOTYPES: ENABLE | |
5 | |
6 Gaim::Plugin | |
7 gaim_find_prpl(id) | |
8 const char *id | |
9 | |
10 MODULE = Gaim::Prpl PACKAGE = Gaim::Prpl PREFIX = gaim_prpl_ | |
11 PROTOTYPES: ENABLE | |
12 | |
12792
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
13 void |
11118 | 14 gaim_prpl_change_account_status(account, old_status, new_status) |
15 Gaim::Account account | |
16 Gaim::Status old_status | |
17 Gaim::Status new_status | |
18 | |
19 void | |
20 gaim_prpl_get_statuses(account, presence) | |
21 Gaim::Account account | |
22 Gaim::Presence presence | |
23 PREINIT: | |
12792
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
24 GList *l; |
11118 | 25 PPCODE: |
12792
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
26 for (l = gaim_prpl_get_statuses(account,presence); l != NULL; l = l->next) { |
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
27 /* XXX Someone please test and make sure this is the right |
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
28 * type for these things. */ |
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
29 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Status"))); |
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
30 } |
11118 | 31 |
12792
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
32 void |
11118 | 33 gaim_prpl_got_account_idle(account, idle, idle_time) |
34 Gaim::Account account | |
35 gboolean idle | |
36 time_t idle_time | |
37 | |
12792
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
38 void |
11118 | 39 gaim_prpl_got_account_login_time(account, login_time) |
40 Gaim::Account account | |
41 time_t login_time | |
42 | |
12792
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
43 void |
11118 | 44 gaim_prpl_got_user_idle(account, name, idle, idle_time) |
45 Gaim::Account account | |
46 const char *name | |
47 gboolean idle | |
48 time_t idle_time | |
49 | |
12792
33cb3206af90
[gaim-migrate @ 15139]
Etan Reisner <pidgin@unreliablesource.net>
parents:
11290
diff
changeset
|
50 void |
11118 | 51 gaim_prpl_got_user_login_time(account, name, login_time) |
52 Gaim::Account account | |
53 const char *name | |
54 time_t login_time |