pidgin/plugins/perl/common/GtkBlist.xs@5dbd0617a27d (annotated)
pidgin/plugins/perl/common/GtkBlist.xs
Thu, 30 Oct 2008 22:40:49 +0000
- author
- Richard Laager <rlaager@pidgin.im>
- date
- Thu, 30 Oct 2008 22:40:49 +0000
- changeset 24569
- 5dbd0617a27d
- parent 15899
- 75f0041f72b8
- child 18068
- b6554e3c8224
- child 32158
- 88b99c8f86ad
- permissions
- -rw-r--r--
Build everything with the *_DISABLE_DEPRECATED flags set. This allows us
to detect when we're still using deprecated functions internally (and by
extension, when we've deprecated something we shouldn't have). In the
course of developing this changeset, I fixed a few such cases.
Given that the plan is to switch from PURPLE_HIDE_STRUCTS to
PURPLE_DISABLE_DEPRECATED as each struct is fully dealt with, this will
also ensure we have no regressions on the struct hiding work.
Deprecated functions are still available to the respective .c file, to
avoid missing prototype errors. Also, Perl and DBus undef the
*_DISABLE_DEPRECATED defines as appropriate so that deprecated functions
will still be exported to Perl plugins and via DBus. (Otherwise, we'd
be breaking backwards compatibility.)
| 14478 | 1 | #include "gtkmodule.h" |
| 2 | ||
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
3 | MODULE = Pidgin::BuddyList PACKAGE = Pidgin::BuddyList PREFIX = pidgin_blist_ |
| 14478 | 4 | PROTOTYPES: ENABLE |
| 5 | ||
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15590
diff
changeset
|
6 | Purple::Handle |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
7 | pidgin_blist_get_handle() |
| 14478 | 8 | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
9 | Pidgin::BuddyList |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
10 | pidgin_blist_get_default_gtk_blist() |
| 14478 | 11 | |
| 12 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
13 | pidgin_blist_refresh(list) |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15590
diff
changeset
|
14 | Purple::BuddyList list |
| 14478 | 15 | |
| 16 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
17 | pidgin_blist_update_refresh_timeout() |
| 14478 | 18 | |
| 19 | gboolean | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
20 | pidgin_blist_node_is_contact_expanded(node) |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15590
diff
changeset
|
21 | Purple::BuddyList::Node node |
| 14478 | 22 | |
| 23 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
24 | pidgin_blist_toggle_visibility() |
| 14478 | 25 | |
| 26 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
27 | pidgin_blist_visibility_manager_add() |
| 14478 | 28 | |
| 29 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
30 | pidgin_blist_visibility_manager_remove() |
| 14478 | 31 | |
| 32 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
33 | pidgin_blist_get_sort_methods() |
| 14478 | 34 | PREINIT: |
| 35 | GList *l; | |
| 36 | PPCODE: | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
37 | for (l = pidgin_blist_get_sort_methods(); l != NULL; l = l->next) { |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15590
diff
changeset
|
38 | XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Pidgin::BuddyList::SortMethod"))); |
| 14478 | 39 | } |
| 40 | ||
| 41 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
42 | pidgin_blist_sort_method_reg(id, name, func) |
| 14478 | 43 | const char * id |
| 44 | const char * name | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
45 | Pidgin::BuddyList::SortFunction func |
| 14478 | 46 | |
| 47 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
48 | pidgin_blist_sort_method_unreg(id) |
| 14478 | 49 | const char * id |
| 50 | ||
| 51 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
52 | pidgin_blist_sort_method_set(id) |
| 14478 | 53 | const char * id |
| 54 | ||
| 55 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
56 | pidgin_blist_setup_sort_methods() |
| 14478 | 57 | |
| 58 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
59 | pidgin_blist_update_accounts_menu() |
| 14478 | 60 | |
| 61 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
62 | pidgin_blist_update_plugin_actions() |
| 14478 | 63 | |
| 64 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
65 | pidgin_blist_update_sort_methods() |
| 14478 | 66 | |
| 67 | gboolean | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
68 | pidgin_blist_joinchat_is_showable() |
| 14478 | 69 | |
| 70 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
71 | pidgin_blist_joinchat_show() |
| 14478 | 72 | |
| 73 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
74 | pidgin_blist_update_account_error_state(account, message) |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15590
diff
changeset
|
75 | Purple::Account account |
| 14478 | 76 | const char * message |
