Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Gtk3 for openSUSE:Factory checked in at 2021-01-21 21:57:39 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Gtk3 (Old) and /work/SRC/openSUSE:Factory/.perl-Gtk3.new.28504 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Gtk3" Thu Jan 21 21:57:39 2021 rev:5 rq:865447 version:0.038 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Gtk3/perl-Gtk3.changes 2020-08-28 21:22:25.384355127 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Gtk3.new.28504/perl-Gtk3.changes 2021-01-21 21:57:39.753863845 +0100 @@ -1,0 +2,6 @@ +Thu Jan 21 03:08:27 UTC 2021 - Tina M??ller <[email protected]> + +- updated to 0.038 + see /usr/share/doc/packages/perl-Gtk3/ + +------------------------------------------------------------------- Old: ---- Gtk3-0.037.tar.gz New: ---- Gtk3-0.038.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Gtk3.spec ++++++ --- /var/tmp/diff_new_pack.HHgeIT/_old 2021-01-21 21:57:40.249864045 +0100 +++ /var/tmp/diff_new_pack.HHgeIT/_new 2021-01-21 21:57:40.253864046 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Gtk3 # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,30 +16,31 @@ # +%define cpan_name Gtk3 Name: perl-Gtk3 -Version: 0.037 +Version: 0.038 Release: 0 -%define cpan_name Gtk3 Summary: Perl interface to the 3.x series of the gtk+ toolkit License: LGPL-2.1-or-later -Group: Development/Libraries/Perl URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/X/XA/XAOC/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml +BuildArch: noarch BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Cairo::GObject) >= 1.000 BuildRequires: perl(Glib::Object::Introspection) >= 0.043 BuildRequires: perl(Test::Simple) >= 0.96 -BuildRequires: typelib(Gtk) = 3.0 -%if 0%{?sle_version} >= 150200 && 0%{?is_opensuse} || 0%{?sle_version} >= 150200 || 0%{?suse_version} > 1500 -BuildRequires: typelib(GdkPixdata) = 2.0 -%endif Requires: perl(Cairo::GObject) >= 1.000 Requires: perl(Glib::Object::Introspection) >= 0.043 Requires: perl(Test::Simple) >= 0.96 -BuildArch: noarch %{perl_requires} +# MANUAL BEGIN +BuildRequires: typelib(Gtk) = 3.0 +%if 0%{?sle_version} >= 150200 && 0%{?is_opensuse} || 0%{?sle_version} >= 150200 || 0%{?suse_version} > 1500 +BuildRequires: typelib(GdkPixdata) = 2.0 +%endif +# MANUAL END %description The 'Gtk3' module allows a Perl developer to use the gtk+ graphical user @@ -57,11 +58,11 @@ organized in accordance with these principles. %prep -%setup -q -n %{cpan_name}-%{version} +%autosetup -n %{cpan_name}-%{version} %build perl Makefile.PL INSTALLDIRS=vendor -make %{?_smp_mflags} +%make_build %check make test ++++++ Gtk3-0.037.tar.gz -> Gtk3-0.038.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk3-0.037/META.json new/Gtk3-0.038/META.json --- old/Gtk3-0.037/META.json 2020-03-17 05:06:22.000000000 +0100 +++ new/Gtk3-0.038/META.json 2021-01-20 07:48:19.000000000 +0100 @@ -44,7 +44,7 @@ "x_IRC" : "irc://irc.gimp.org/#gtk-perl", "x_twitter" : "https://twitter.com/GTKPerl"; }, - "version" : "0.037", + "version" : "0.038", "x_generated_by_perl" : "v5.28.1", "x_serialization_backend" : "Cpanel::JSON::XS version 4.08" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk3-0.037/META.yml new/Gtk3-0.038/META.yml --- old/Gtk3-0.037/META.yml 2020-03-17 05:06:22.000000000 +0100 +++ new/Gtk3-0.038/META.yml 2021-01-20 07:48:19.000000000 +0100 @@ -24,6 +24,6 @@ bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Gtk3 homepage: http://gtk2-perl.sourceforge.net repository: git://git.gnome.org/perl-Gtk3 -version: '0.037' +version: '0.038' x_generated_by_perl: v5.28.1 x_serialization_backend: 'YAML::Tiny version 1.73' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk3-0.037/Makefile.PL new/Gtk3-0.038/Makefile.PL --- old/Gtk3-0.037/Makefile.PL 2020-03-17 05:06:22.000000000 +0100 +++ new/Gtk3-0.038/Makefile.PL 2021-01-20 07:48:19.000000000 +0100 @@ -22,7 +22,7 @@ "Glib::Object::Introspection" => "0.043", "Test::Simple" => "0.96" }, - "VERSION" => "0.037", + "VERSION" => "0.038", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk3-0.037/NEWS new/Gtk3-0.038/NEWS --- old/Gtk3-0.037/NEWS 2020-03-17 05:06:22.000000000 +0100 +++ new/Gtk3-0.038/NEWS 2021-01-20 07:48:19.000000000 +0100 @@ -1,3 +1,10 @@ +Overview of changes in Gtk3 0.038 [2021-01-19] +============================================== + +* Correctly handle flags argument in Gtk3::Dialog::new and + Gtk3::MessageDialog::new +* Reimplement varargs Gtk3::MessageDialog methods + Overview of changes in Gtk3 0.037 [2020-03-16] ============================================== diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk3-0.037/dist.ini new/Gtk3-0.038/dist.ini --- old/Gtk3-0.037/dist.ini 2020-03-17 05:06:22.000000000 +0100 +++ new/Gtk3-0.038/dist.ini 2021-01-20 07:48:19.000000000 +0100 @@ -1,5 +1,5 @@ name = Gtk3 -version = 0.037 +version = 0.038 author = Torsten Schoenfeld <[email protected]> license = LGPL_2_1 copyright_holder = Torsten Schoenfeld diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk3-0.037/lib/Gtk3.pm new/Gtk3-0.038/lib/Gtk3.pm --- old/Gtk3-0.037/lib/Gtk3.pm 2020-03-17 05:06:22.000000000 +0100 +++ new/Gtk3-0.038/lib/Gtk3.pm 2021-01-20 07:48:19.000000000 +0100 @@ -1,5 +1,5 @@ package Gtk3; -$Gtk3::VERSION = '0.037'; +$Gtk3::VERSION = '0.038'; =encoding utf8 =head1 NAME @@ -1132,6 +1132,9 @@ my $dialog = Gtk3::Dialog->new; defined $title and $dialog->set_title ($title); defined $parent and $dialog->set_transient_for ($parent); + if (! eval { $flags->isa ('Gtk3::DialogFlags'); }) { + $flags = Gtk3::DialogFlags->new ($flags); + } $flags & 'modal' and $dialog->set_modal (Glib::TRUE); $flags & 'destroy-with-parent' and $dialog->set_destroy_with_parent (Glib::TRUE); $dialog->add_buttons (@rest); @@ -1421,6 +1424,9 @@ if (defined $parent) { $dialog->set_transient_for ($parent); } + if (! eval { $flags->isa ('Gtk3::DialogFlags'); }) { + $flags = Gtk3::DialogFlags->new ($flags); + } if ($flags & 'modal') { $dialog->set_modal (Glib::TRUE); } @@ -1430,6 +1436,39 @@ return $dialog; } +=item * A Perl reimplementation of C<Gtk3::MessageDialog::new_with_markup> is provided. + +=cut + +sub Gtk3::MessageDialog::new_with_markup { + my ($class, $parent, $flags, $type, $buttons, $format, @args) = @_; + my $dialog = Gtk3::MessageDialog::new ($class, $parent, $flags, $type, $buttons, undef); + if (defined $format) { + my $markup = sprintf $format, @args; + $dialog->set_markup ($markup); + } + return $dialog; +} + +=item * A Perl reimplementation of C<Gtk3::MessageDialog::format_secondary_text> and +C<Gtk3::MessageDialog::format_secondary_markup> is provided + +=cut + +sub Gtk3::MessageDialog::format_secondary_text { + my ($dialog, $format, @args) = @_; + + my $text = sprintf $format, @args; + $dialog->set ('secondary-text' => $text, 'secondary-use-markup' => 0); +} + +sub Gtk3::MessageDialog::format_secondary_markup { + my ($dialog, $format, @args) = @_; + + my $text = sprintf $format, @args; + $dialog->set ('secondary-text' => $text, 'secondary-use-markup' => 1); +} + =item * The group handling in the constructors and accessors of Gtk3::RadioAction, Gtk3::RadioButton, Gtk3::RadioMenuItem and Gtk3::RadioToolButton is amended to work correctly when given array refs of @@ -2404,7 +2443,7 @@ } package Gtk3::Gdk::EventMask; -$Gtk3::Gdk::EventMask::VERSION = '0.037'; +$Gtk3::Gdk::EventMask::VERSION = '0.038'; use overload '==' => \&eq, '>=' => \≥ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk3-0.037/t/zz-GtkDialog.t new/Gtk3-0.038/t/zz-GtkDialog.t --- old/Gtk3-0.037/t/zz-GtkDialog.t 2020-03-17 05:06:22.000000000 +0100 +++ new/Gtk3-0.038/t/zz-GtkDialog.t 2021-01-20 07:48:19.000000000 +0100 @@ -7,7 +7,7 @@ use strict; use warnings; -plan tests => 17; +plan tests => 49; my $win = Gtk3::Window->new ('toplevel'); @@ -102,3 +102,26 @@ ok (defined Gtk3::alternative_dialog_button_order (undef)); ok (defined Gtk3::alternative_dialog_button_order); } + +{ + my @expectations = ( + [[], Glib::FALSE, Glib::FALSE], + [['modal'], Glib::TRUE, Glib::FALSE], + [['destroy-with-parent'], Glib::FALSE, Glib::TRUE], + [['modal', 'destroy-with-parent'], Glib::TRUE, Glib::TRUE], + [Gtk3::DialogFlags->new ([]), Glib::FALSE, Glib::FALSE], + [Gtk3::DialogFlags->new (['modal']), Glib::TRUE, Glib::FALSE], + [Gtk3::DialogFlags->new (['destroy-with-parent']), Glib::FALSE, Glib::TRUE], + [Gtk3::DialogFlags->new (['modal', 'destroy-with-parent']), Glib::TRUE, Glib::TRUE], + ); + foreach my $e (@expectations) { + my $d = Gtk3::Dialog->new ('Test Dialog', $win, $e->[0], 'gtk-ok', 1); + is ($d->get_modal, $e->[1]); + is ($d->get_destroy_with_parent, $e->[2]); + } + foreach my $e (@expectations) { + my $d = Gtk3::MessageDialog->new ($win, $e->[0], 'info', 'ok'); + is ($d->get_modal, $e->[1]); + is ($d->get_destroy_with_parent, $e->[2]); + } +}
