1234567891011121314151617 #!/usr/bin/perl -wuse strict;use warnings;use Test::More tests => 3;use Gtk2 '-init';use_ok 'Gapp::Dialog';my $w = Gapp::Dialog->new( title => 'Gapp', buttons => [ qw(gtk-yes yes gtk-no no) ],);isa_ok $w, 'Gapp::Dialog';isa_ok $w->gobject, 'Gtk2::Dialog';
#!/usr/bin/perl -w
use
strict;
warnings;
Test::More
tests
=> 3;
Gtk2
'-init'
;
use_ok
'Gapp::Dialog'
my
$w
= Gapp::Dialog->new(
title
=>
'Gapp'
,
buttons
=> [
qw(gtk-yes yes gtk-no no)
],
);
isa_ok
->gobject,
'Gtk2::Dialog'