1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
$MODULE_NAME = "GTK Frame Test";
use Gaim;
%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://gaim.sourceforge.net/",
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";
Gaim::debug_info("plugin_load()", "Testing $MODULE_NAME Completed.");
print "#" x 80 . "\n\n";
}
sub plugin_unload {
}
|
