Mercurial > pidgin

comparison doc/PERL-HOWTO.dox @ 27285:cbd67b8bf3ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge of '1bbd08b1b4f931fa4318c1042033c441a36397ee' and '60b8637e2af27d99451c148fe737ebf48ac8c901'
author Paul Aurich <paul@darkrain42.org>
date Sat, 04 Jul 2009 05:17:11 +0000
parents 77dfed554b2b
children 36379bf98ed6
comparison
equal deleted inserted replaced
27282:c3b1711991fc 27285:cbd67b8bf3ca
321 321
322 @code 322 @code
323 sub plugin_load { 323 sub plugin_load {
324 my $plugin = shift; 324 my $plugin = shift;
325 325
326 # This is necessary to create each level in the preferences tree.
327 Purple::Prefs::add_none("/plugins/core/perl_test");
326 # Here we are adding a set of preferences 328 # Here we are adding a set of preferences
327 # The second argument is the default value for the preference. 329 # The second argument is the default value for the preference.
328 Purple::Prefs::add_none("/plugins/core/perl_test");
329 Purple::Prefs::add_bool("/plugins/core/perl_test/bool", 1); 330 Purple::Prefs::add_bool("/plugins/core/perl_test/bool", 1);
330 Purple::Prefs::add_string("/plugins/core/perl_test/choice_str", "ch1"); 331 Purple::Prefs::add_string("/plugins/core/perl_test/choice_str", "ch1");
331 Purple::Prefs::add_int("/plugins/core/perl_test/choice_int", 1); 332 Purple::Prefs::add_int("/plugins/core/perl_test/choice_int", 1);
332 Purple::Prefs::add_string("/plugins/core/perl_test/text", "Foobar"); 333 Purple::Prefs::add_string("/plugins/core/perl_test/text", "Foobar");
333 } 334 }