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
|
#!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;
|
