C:\Documents and Settings\Administrator\Desktop\testgtk\test>testgtk.exe
GLib-GObject-CRITICAL **: g_boxed_type_register_static: assertion `g_type_from_n
ame (name) == 0' failed at C:/strawberry/perl/lib/DynaLoader.pm line 223.
cannot register alias Gtk2::Pango::Attribute for the unregistered type (null) at
 C:/strawberry/perl/lib/DynaLoader.pm line 223.
Compilation failed in require at script/testgtk.pl line 1.
BEGIN failed--compilation aborted at script/testgtk.pl line 1.

##</code><code>##

pp -l "C:\strawberry\perl\site\lib\auto\Cairo\Cairo.dll" -l "C:\strawberry\perl\site\lib\auto\Pango\Pango.dll" -l "C:\strawberry\perl\site\lib\auto\Glib\Glib.dll" -l "C:\strawberry\perl\site\lib\auto\Gtk2\Gtk2.dll" -o testgtk.exe testgtk.pl

##</code><code>##

use Gtk2 '-init';
 
$window = Gtk2::Window->new('toplevel');
$window->set_title("Hello World!");
 
$button = Gtk2::Button->new("Press me");
$button->signal_connect(clicked => sub { print "Hello again - the button was pressed\n"; });
 
$window->add($button);
$window->show_all;
 
Gtk2->main;
 
0;