Mercurial > pidgin

diff libpurple/plugins/perl/scripts/plugin_pref.pl @ 15833:2f8274ce570a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
author Daniel Atallah <daniel.atallah@gmail.com>
date Mon, 19 Mar 2007 17:02:24 +0000
parents 5fe8042783c1
children fb86dbeb2b15
line wrap: on
line diff
--- a/libpurple/plugins/perl/scripts/plugin_pref.pl	Mon Mar 19 17:01:28 2007 +0000
+++ b/libpurple/plugins/perl/scripts/plugin_pref.pl	Mon Mar 19 17:02:24 2007 +0000
@@ -1,6 +1,6 @@
 $MODULE_NAME = "Prefs Functions Test";
-use Gaim;
-# All the information Gaim gets about our nifty plugin
+use Purple;
+# All the information Purple gets about our nifty plugin
 %PLUGIN_INFO = ( 
 	perl_api_version => 2, 
 	name => "Perl: $MODULE_NAME",
@@ -31,24 +31,24 @@
 	my $PROTOCOL_ID 	= "prpl-oscar";
 
 sub foo {
-	$frame = Gaim::PluginPref::Frame->new();
+	$frame = Purple::PluginPref::Frame->new();
 
-	$ppref = Gaim::PluginPref->new_with_label("boolean");
+	$ppref = Purple::PluginPref->new_with_label("boolean");
 	$frame->add($ppref);
 	
-	$ppref = Gaim::PluginPref->new_with_name_and_label(
+	$ppref = Purple::PluginPref->new_with_name_and_label(
 	    "/plugins/core/perl_test/bool", "Boolean Preference");
 	$frame->add($ppref);
 
 		
-	$ppref = Gaim::PluginPref->new_with_name_and_label(
+	$ppref = Purple::PluginPref->new_with_name_and_label(
 	    "/plugins/core/perl_test/choice", "Choice Preference");
 	$ppref->set_type(1);
 	$ppref->add_choice("ch0", $frame);
 	$ppref->add_choice("ch1", $frame);
 	$frame->add($ppref);
 	
-	$ppref = Gaim::PluginPref->new_with_name_and_label(
+	$ppref = Purple::PluginPref->new_with_name_and_label(
 	    "/plugins/core/perl_test/text", "Text Box Preference");
 	$ppref->set_max_length(16);
 	$frame->add($ppref);
@@ -71,10 +71,10 @@
 
 	#########  TEST CODE HERE  ##########
 
-	Gaim::Prefs::add_none("/plugins/core/perl_test");
-	Gaim::Prefs::add_bool("/plugins/core/perl_test/bool", 1);	
-	Gaim::Prefs::add_string("/plugins/core/perl_test/choice", "ch1");	
-	Gaim::Prefs::add_string("/plugins/core/perl_test/text", "Foobar");	
+	Purple::Prefs::add_none("/plugins/core/perl_test");
+	Purple::Prefs::add_bool("/plugins/core/perl_test/bool", 1);	
+	Purple::Prefs::add_string("/plugins/core/perl_test/choice", "ch1");	
+	Purple::Prefs::add_string("/plugins/core/perl_test/text", "Foobar");	
 	
 
 	print "\n\n" . "#" x 80 . "\n\n";