#!perl
# Ensure that importing Gtk3 multiple times does not break vfunc overloading.
package MyButton;
use strict;
use warnings;
# First import.
use Gtk3;
use Glib::Object::Subclass
Gtk3::Button::,
signals => {},
properties => [],
;
package main;
use strict;
use warnings;
# Second import.
use Gtk3;
use Test::More;
if (!eval { Glib::Object::Introspection->VERSION ('0.030') }) {
plan skip_all => 'G:O:I 0.030 required';
}
if (!Gtk3::init_check ()) {
plan skip_all => 'Gtk3::init_check failed';
}
plan tests => 1;
my $window = Gtk3::Window->new;
my $my_button = MyButton->new (label => "Test");
$window->add ($my_button); # trigger PARENT_SET
pass;