Mercurial > pidgin
view libpurple/plugins/perl/scripts/gtk_frame_test.pl @ 17259:5b38f5ecc49e
Bump to 2.0.2devel. TODO: Decide if this should be 2.1.0
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Fri, 25 May 2007 17:53:58 +0000 |
parents | 9b954de67cf3 |
children |
line wrap: on
line source
$MODULE_NAME = "GTK Frame Test"; use Purple; %PLUGIN_INFO = ( perl_api_version => 2, name => " Perl: $MODULE_NAME", version => "0.1", summary => "Test plugin for the Perl interpreter.", description => "Implements a set of test proccedures to ensure all functions that work in the C API still work in the Perl plugin interface. As XSUBs are added, this *should* be updated to test the changes. Furthermore, this will function as the tutorial perl plugin.", author => "John H. Kelm <johnhkelm\@gmail.com>", url => "http://pidgin.im", GTK_UI => TRUE, gtk_prefs_info => "foo", load => "plugin_load", unload => "plugin_unload", ); sub plugin_init { return %PLUGIN_INFO; } sub button_cb { my $widget = shift; my $data = shift; print "Clicked button with message: " . $data . "\n"; } sub foo { eval ' use Glib; use Gtk2 \'-init\'; $frame = Gtk2::Frame->new(\'Gtk Test Frame\'); $button = Gtk2::Button->new(\'Print Message\'); $frame->set_border_width(10); $button->set_border_width(150); $button->signal_connect("clicked" => \&button_cb, "Message Text"); $frame->add($button); $button->show(); $frame->show(); '; return $frame; } sub plugin_load { my $plugin = shift; print "#" x 80 . "\n"; ######### TEST CODE HERE ########## print "$MODULE_NAME: Loading...\n"; Purple::debug_info("plugin_load()", "Testing $MODULE_NAME Completed."); print "#" x 80 . "\n\n"; } sub plugin_unload { }