Mercurial > pidgin
diff plugins/perl/perl-common.c @ 6897:69e0a3e29aa1
[gaim-migrate @ 7444]
Added new stashes for value subtypes in perl.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Sat, 20 Sep 2003 21:38:12 +0000 |
parents | f6c2a7b5afa7 |
children | 806f6e950e76 |
line wrap: on
line diff
--- a/plugins/perl/perl-common.c Sat Sep 20 05:20:37 2003 +0000 +++ b/plugins/perl/perl-common.c Sat Sep 20 21:38:12 2003 +0000 @@ -363,9 +363,15 @@ switch (gaim_value_get_subtype(value)) { - case GAIM_SUBTYPE_ACCOUNT: - stash = "Gaim::Account"; - break; + case GAIM_SUBTYPE_ACCOUNT: stash = "Gaim::Account"; break; + case GAIM_SUBTYPE_BLIST: stash = "Gaim::BuddyList"; break; + case GAIM_SUBTYPE_BLIST_BUDDY: stash = "Gaim::BuddyList::Buddy"; break; + case GAIM_SUBTYPE_BLIST_GROUP: stash = "Gaim::BuddyList::Group"; break; + case GAIM_SUBTYPE_BLIST_CHAT: stash = "Gaim::BuddyList::Chat"; break; + case GAIM_SUBTYPE_CONNECTION: stash = "Gaim::Connection"; break; + case GAIM_SUBTYPE_CONVERSATION: stash = "Gaim::Conversation"; break; + case GAIM_SUBTYPE_CONV_WINDOW: stash = "Gaim::ConvWindow"; break; + case GAIM_SUBTYPE_PLUGIN: stash = "Gaim::Plugin"; break; default: stash = "Gaim"; /* ? */