# HG changeset patch
# User Etan Reisner <pidgin@unreliablesource.net>
# Date 1137193243 0
# Node ID 43d8af815a9d0a6d901f9a7340118d6f59cc46d0
# Parent  27c4145c6daa68beef58f1002fce68acc5ab1ec7
[gaim-migrate @ 15217]
Gaim::BuddyList::NodeFlags fits with the rest of the perl naming better than
Gaim::BlistNodeFlags.
Also some of the request api *_new functions now have default values so people
can leave off the final parameter in the function call.
Gaim::Request::Field::account_new("name", "label", undef) can now be
Gaim::Request::Field::account_new("name", "label") for example.

committer: Tailor Script <tailor@pidgin.im>

diff -r 27c4145c6daa -r 43d8af815a9d plugins/perl/common/BuddyList.xs
--- a/plugins/perl/common/BuddyList.xs	Fri Jan 13 22:20:43 2006 +0000
+++ b/plugins/perl/common/BuddyList.xs	Fri Jan 13 23:00:43 2006 +0000
@@ -282,9 +282,9 @@
 void
 gaim_blist_node_set_flags(node, flags)
 	Gaim::BuddyList::Node node
-	Gaim::BlistNodeFlags flags
+	Gaim::BuddyList::NodeFlags flags
 
-Gaim::BlistNodeFlags
+Gaim::BuddyList::NodeFlags
 gaim_blist_node_get_flags(node)
 	Gaim::BuddyList::Node node
 
diff -r 27c4145c6daa -r 43d8af815a9d plugins/perl/common/Request.xs
--- a/plugins/perl/common/Request.xs	Fri Jan 13 22:20:43 2006 +0000
+++ b/plugins/perl/common/Request.xs	Fri Jan 13 23:00:43 2006 +0000
@@ -186,7 +186,7 @@
 	Gaim::Request::Field field
 
 Gaim::Request::Field
-gaim_request_field_account_new(id, text, account)
+gaim_request_field_account_new(id, text, account = NULL)
 	const char *id
 	const char *text
 	Gaim::Account account
@@ -196,7 +196,6 @@
 	Gaim::Request::Field field
 	Gaim::Account default_value
 
-
 void
 gaim_request_field_account_set_show_all(field, show_all)
 	Gaim::Request::Field field
@@ -216,7 +215,7 @@
 	Gaim::Request::Field field
 
 Gaim::Request::Field
-gaim_request_field_bool_new(id, text, default_value)
+gaim_request_field_bool_new(id, text, default_value = TRUE)
 	const char *id
 	const char *text
 	gboolean default_value
@@ -255,7 +254,7 @@
 	Gaim::Request::Field field
 
 Gaim::Request::Field
-gaim_request_field_choice_new(id, text, default_value)
+gaim_request_field_choice_new(id, text, default_value = 0)
 	const char *id
 	const char *text
 	int default_value
@@ -299,7 +298,7 @@
 	Gaim::Request::Field field
 
 Gaim::Request::Field
-gaim_request_field_int_new(id, text, default_value)
+gaim_request_field_int_new(id, text, default_value = 0)
 	const char *id
 	const char *text
 	int default_value
diff -r 27c4145c6daa -r 43d8af815a9d plugins/perl/common/module.h
--- a/plugins/perl/common/module.h	Fri Jan 13 22:20:43 2006 +0000
+++ b/plugins/perl/common/module.h	Fri Jan 13 23:00:43 2006 +0000
@@ -66,7 +66,7 @@
 /* blist.h */
 typedef GaimBlistNode *			Gaim__BuddyList__Node;
 typedef GaimBlistNodeAction *		Gaim__BuddyList__Node__Action;
-typedef GaimBlistNodeFlags		Gaim__BlistNodeFlags;
+typedef GaimBlistNodeFlags		Gaim__BuddyList__NodeFlags;
 typedef GaimBlistUiOps *		Gaim__BuddyList__UiOps;
 typedef GaimBuddyList *			Gaim__BuddyList;
 typedef GaimBuddy *			Gaim__BuddyList__Buddy;
diff -r 27c4145c6daa -r 43d8af815a9d plugins/perl/common/typemap
--- a/plugins/perl/common/typemap	Fri Jan 13 22:20:43 2006 +0000
+++ b/plugins/perl/common/typemap	Fri Jan 13 23:00:43 2006 +0000
@@ -41,7 +41,6 @@
 Gaim::Account::UiOps			T_GaimObj
 Gaim::Account::UserSplit		T_GaimObj
 
-Gaim::BlistNodeFlags			T_IV
 Gaim::Buddy::Icon			T_GaimObj
 Gaim::Buddy::Icon::Spec			T_GaimObj
 Gaim::BuddyList				T_GaimObj
@@ -50,6 +49,7 @@
 Gaim::BuddyList::Contact		T_GaimObj
 Gaim::BuddyList::Group			T_GaimObj
 Gaim::BuddyList::Node			T_GaimObj
+Gaim::BuddyList::NodeFlags		T_IV
 Gaim::BuddyList::Node::Action		T_GaimObj
 Gaim::BuddyList::UiOps			T_GaimObj