#!/usr/bin/perl
package testgtk3;

use strict;
use diagnostics;
use warnings;

use Gtk3 '-init';
#use Gnome2::Canvas;
use Gnome2::Wnck;

my $window = Gtk3::Window->new('toplevel');
$window->signal_connect('delete_event' => sub { Gtk3->main_quit; });
$window->set_border_width(5);
$window->set_title('Gtk3 test');

my $button = Gtk3::Button->new("Hello world!");
$button->signal_connect(clicked => sub {
    my ($button) = @_;
    print "Hello world!";
    $window->destroy();
});

$window->add($button);
$button->show();
$window->show();

Gtk3->main();

1;

##</code><code>##

Subroutine Pango::Color::parse redefined at
	/usr/lib/x86_64-linux-gnu/perl/5.26/DynaLoader.pm line 204 (#1)
    (W redefine) You redefined a subroutine.  To suppress this warning, say
    
        {
            no warnings 'redefine';
            eval "sub name { ... }";
        }
    
Subroutine Pango::Color::to_string redefined at
	/usr/lib/x86_64-linux-gnu/perl/5.26/DynaLoader.pm line 204 (#1)
Subroutine Pango::Attribute::end_index redefined at
	/usr/lib/x86_64-linux-gnu/perl/5.26/DynaLoader.pm line 204 (#1)
Subroutine Pango::Attribute::start_index redefined at
	/usr/lib/x86_64-linux-gnu/perl/5.26/DynaLoader.pm line 204 (#1)