commit perl-Gtk2 for openSUSE:Factory
Hello community,
here is the log from the commit of package perl-Gtk2 for openSUSE:Factory
checked in at Mon Jul 19 15:03:38 CEST 2010.
--------
--- perl-Gtk2/perl-Gtk2.changes 2010-01-10 16:02:11.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-Gtk2/perl-Gtk2.changes 2010-07-16 17:39:20.000000000 +0200
@@ -1,0 +2,8 @@
+Fri Jul 16 15:07:49 CEST 2010 - anicka@suse.cz
+
+- update to 1.222
+ * Make Gtk2::ListStore->remove()'s return value consistent on
+ gtk+ 2.0
+ * Fix some build and test failures.
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
Gtk2-1.221.tar.bz2
New:
----
Gtk2-1.222.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Gtk2.spec ++++++
--- /var/tmp/diff_new_pack.SbeOkx/_old 2010-07-19 14:45:10.000000000 +0200
+++ /var/tmp/diff_new_pack.SbeOkx/_new 2010-07-19 14:45:10.000000000 +0200
@@ -1,5 +1,5 @@
#
-# spec file for package perl-Gtk2 (Version 1.221)
+# spec file for package perl-Gtk2 (Version 1.222)
#
# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
@@ -20,8 +20,8 @@
Name: perl-Gtk2
BuildRequires: gtk2-devel perl-Cairo perl-ExtUtils-Depends perl-ExtUtils-PkgConfig perl-Glib perl-Pango update-desktop-files xorg-x11 xorg-x11-Xvfb xorg-x11-server
-Version: 1.221
-Release: 3
+Version: 1.222
+Release: 1
Requires: perl = %{perl_version}
Requires: perl-Glib perl-Cairo perl-Pango
AutoReqProv: on
++++++ Gtk2-1.221.tar.bz2 -> Gtk2-1.222.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/Gtk2.pm new/Gtk2-1.222/Gtk2.pm
--- old/Gtk2-1.221/Gtk2.pm 2009-07-04 19:53:39.000000000 +0200
+++ new/Gtk2-1.222/Gtk2.pm 2010-05-30 22:43:16.000000000 +0200
@@ -73,7 +73,7 @@
use Exporter;
require DynaLoader;
-our $VERSION = '1.221';
+our $VERSION = '1.222';
our @ISA = qw(DynaLoader Exporter);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/META.yml new/Gtk2-1.222/META.yml
--- old/Gtk2-1.221/META.yml 2009-07-04 20:35:21.000000000 +0200
+++ new/Gtk2-1.222/META.yml 2010-05-30 23:12:54.000000000 +0200
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Gtk2
-version: 1.221
+version: 1.222
abstract: Perl interface to the 2.x series of the Gimp Toolkit library
author: []
license: unknown
@@ -26,7 +26,7 @@
- inc
- tools
- xs
-generated_by: ExtUtils::MakeMaker version 6.52
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/NEWS new/Gtk2-1.222/NEWS
--- old/Gtk2-1.221/NEWS 2009-07-04 20:31:51.000000000 +0200
+++ new/Gtk2-1.222/NEWS 2010-05-30 22:46:46.000000000 +0200
@@ -1,3 +1,9 @@
+Overview of changes in Gtk2 1.222
+=================================
+
+* Make Gtk2::ListStore->remove()'s return value consistent on gtk+ 2.0
+* Fix some build and test failures.
+
Overview of changes in Gtk2 1.221
=================================
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/README new/Gtk2-1.222/README
--- old/Gtk2-1.221/README 2009-07-04 19:53:28.000000000 +0200
+++ new/Gtk2-1.222/README 2010-05-30 22:43:26.000000000 +0200
@@ -1,4 +1,4 @@
-Gtk2 version 1.221
+Gtk2 version 1.222
==================
Perl bindings to the 2.x series of the Gtk+ graphical user interface library.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkAction.t new/Gtk2-1.222/t/GtkAction.t
--- old/Gtk2-1.221/t/GtkAction.t 2009-05-17 13:59:40.000000000 +0200
+++ new/Gtk2-1.222/t/GtkAction.t 2010-05-30 23:08:28.000000000 +0200
@@ -5,7 +5,7 @@
use Gtk2::TestHelper
at_least_version => [2, 4, 0, "Action-based menus are new in 2.4"],
- tests => 19, noinit => 0;
+ tests => 17, noinit => 0;
my $action = Gtk2::Action->new (name => 'Open',
label => '_Open',
@@ -37,17 +37,11 @@
$widget = $action->create_tool_item;
isa_ok ($widget, 'Gtk2::ToolItem');
-my @proxies = $action->get_proxies;
-is (@proxies, 1);
-
my $proxy = Gtk2::Button->new;
$action->connect_proxy ($proxy);
-@proxies = $action->get_proxies;
-is (@proxies, 2);
-
+my @proxies = $action->get_proxies;
+ok (grep {$_ == $proxy} @proxies);
$action->disconnect_proxy ($proxy);
-@proxies = $action->get_proxies;
-is (@proxies, 1);
$action->connect_accelerator;
$action->disconnect_accelerator;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkAssistant.t new/Gtk2-1.222/t/GtkAssistant.t
--- old/Gtk2-1.221/t/GtkAssistant.t 2009-05-17 13:59:40.000000000 +0200
+++ new/Gtk2-1.222/t/GtkAssistant.t 2010-05-16 12:35:48.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use Gtk2::TestHelper
- tests => 27,
+ tests => 26,
at_least_version => [2, 10, 0, "GtkAssistant is new in 2.10"];
#typedef gint (*GtkAssistantPageFunc) (gint current_page, gpointer data);
@@ -39,7 +39,6 @@
$assistant->set_current_page (3);
is ($assistant->get_current_page (), 3);
-ok (! $assistant->get_nth_page (-1));
my $page = $assistant->get_nth_page (2);
isa_ok ($page, 'Gtk2::Widget');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkBindings.t new/Gtk2-1.222/t/GtkBindings.t
--- old/Gtk2-1.221/t/GtkBindings.t 2009-06-07 21:10:57.000000000 +0200
+++ new/Gtk2-1.222/t/GtkBindings.t 2010-01-07 21:29:46.000000000 +0100
@@ -161,8 +161,8 @@
# Gtk2::Widget, not a Gtk2::Object, hence using My::Widget to exercise
# add_path() instead of My::Object.
SKIP: {
- skip 'Need a keymap', 5
- unless $have_valid_keymap;
+ skip 'Need a keymap and gtk+ >= 2.4', 5
+ unless $have_valid_keymap && Gtk2->CHECK_VERSION(2, 4, 0);
my $my_widget_bindings = Gtk2::BindingSet->find('my_widget_bindings');
ok ($my_widget_bindings, 'find() of RC parsed bindings');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkBuildableIface.t new/Gtk2-1.222/t/GtkBuildableIface.t
--- old/Gtk2-1.221/t/GtkBuildableIface.t 2009-05-17 13:59:40.000000000 +0200
+++ new/Gtk2-1.222/t/GtkBuildableIface.t 2010-05-16 12:35:48.000000000 +0200
@@ -68,7 +68,11 @@
my $view1 = $builder->get_object ('view1');
isa_ok ($view1, 'TestThingView');
-is ($view1->get_name (), 'view1');
+# TestThingView doesn't directly implement Gtk2::Buildable, thus it's not first
+# in the @ISA chain. So get_name() alone actually resolves to
+# Gtk2::Widget::get_name(), which breaks things as of gtk+ commit
+# 46f5ee1d0c0f4601853ed57e99b1b513f1baa445. So fully qualify the method.
+is ($view1->Gtk2::Buildable::get_name (), 'view1');
ok (! $view1->get ('visible'));
is ($view1->get ('thing'), $thing1);
is ($view1->get ('color-string'), 'purple');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkIMContext.t new/Gtk2-1.222/t/GtkIMContext.t
--- old/Gtk2-1.221/t/GtkIMContext.t 2009-05-17 13:59:40.000000000 +0200
+++ new/Gtk2-1.222/t/GtkIMContext.t 2010-05-30 22:42:49.000000000 +0200
@@ -68,5 +68,5 @@
# Get a default context
$context->focus_in ();
- is ($context->get_context_id, 'gtk-im-context-simple', 'Simple context');
+ ok (defined $context->get_context_id, 'Context ID');
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkIconTheme.t new/Gtk2-1.222/t/GtkIconTheme.t
--- old/Gtk2-1.221/t/GtkIconTheme.t 2009-05-17 13:59:40.000000000 +0200
+++ new/Gtk2-1.222/t/GtkIconTheme.t 2010-05-30 22:42:49.000000000 +0200
@@ -59,7 +59,8 @@
skip 'get_icon_sizes returned empty, can not test them', 1
unless (@sizes);
- like ($sizes[0], qr/^\d+$/);
+ # -1 means scalable
+ like ($sizes[0], qr/^(?:-1|\d+)$/);
}
SKIP: {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkListStore.t new/Gtk2-1.222/t/GtkListStore.t
--- old/Gtk2-1.221/t/GtkListStore.t 2009-05-17 13:59:40.000000000 +0200
+++ new/Gtk2-1.222/t/GtkListStore.t 2010-05-30 22:42:49.000000000 +0200
@@ -32,8 +32,7 @@
my $iter_model;
# remove returns boolean in >= 2.2.0, but false (actually, void) in 2.0.x.
-is($model -> remove($model -> get_iter($path_model)),
- (Gtk2->CHECK_VERSION (2, 2, 0) ? 1 : ''));
+ok($model -> remove($model -> get_iter($path_model)));
is($model -> get($model -> get_iter($path_model), 0), "blee");
$model -> clear();
@@ -137,23 +136,9 @@
ok ($iter = $store->insert_before ($iter), '$store->insert_before');
ok ($iter = $store->insert_after ($iter), '$store->insert_after');
ok ($iter = $store->get_iter_first, '$store->get_iter_first, treemodel');
-if (!Gtk2->CHECK_VERSION (2, 2, 0)) {
- # remove had void return in 2.0.x, and the binding for this method
- # always returns false. remove this special case if that method is
- # ever fixed.
- ok (!$store->remove ($iter), '$store->remove 1');
-} else {
- ok ($store->remove ($iter), '$store->remove 1');
-}
+ok ($store->remove ($iter), '$store->remove 1');
ok ($iter = $store->prepend, '$store->prepend');
-if (!Gtk2->CHECK_VERSION (2, 2, 0)) {
- # remove had void return in 2.0.x, and the binding for this method
- # always returns false. remove this special case if that method is
- # ever fixed.
- ok (!$store->remove ($iter), '$store->remove 2');
-} else {
- ok ($store->remove ($iter), '$store->remove 2');
-}
+ok ($store->remove ($iter), '$store->remove 2');
SKIP: {
# on RH8 with 2.0.6, i get a crash from pango xft, complaining that
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkPrintSettings.t new/Gtk2-1.222/t/GtkPrintSettings.t
--- old/Gtk2-1.221/t/GtkPrintSettings.t 2009-05-17 13:59:40.000000000 +0200
+++ new/Gtk2-1.222/t/GtkPrintSettings.t 2010-04-24 23:17:17.000000000 +0200
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
use strict;
use Gtk2::TestHelper
- tests => 26,
+ tests => 23,
at_least_version => [2, 10, 0, 'GtkPrintSettings: it is new in 2.10'];
# $Id$
@@ -113,17 +113,14 @@
}
SKIP: {
- skip 'new 2.16 stuff', 6
+ skip 'new 2.16 stuff', 3
unless Gtk2->CHECK_VERSION(2, 16, 0);
my $settings = Gtk2::PrintSettings -> new();
- is($settings -> get_printer_lpi(), 0);
$settings -> set_printer_lpi(3.1416);
delta_ok($settings -> get_printer_lpi(), 3.1416);
- is($settings -> get_resolution_x(), 0);
- is($settings -> get_resolution_y(), 0);
$settings -> set_resolution_xy(10, 20);
is($settings -> get_resolution_x(), 10);
is($settings -> get_resolution_y(), 20);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkRecentChooser.t new/Gtk2-1.222/t/GtkRecentChooser.t
--- old/Gtk2-1.221/t/GtkRecentChooser.t 2009-05-17 13:59:40.000000000 +0200
+++ new/Gtk2-1.222/t/GtkRecentChooser.t 2010-05-30 14:28:35.000000000 +0200
@@ -42,8 +42,8 @@
# --------------------------------------------------------------------------- #
use Cwd qw(cwd);
-my $uri_one = "file://" . cwd() . "/" . $0;
-my $uri_two = "file://" . $^X;
+my $uri_one = Glib::filename_to_uri(cwd() . "/" . $0, undef);
+my $uri_two = Glib::filename_to_uri($^X, undef);
$manager -> purge_items();
$manager -> add_item($uri_one);
@@ -71,8 +71,9 @@
$chooser -> select_all();
$chooser -> unselect_all();
-is_deeply([$chooser -> get_uris()], [$uri_two, $uri_one]);
-is_deeply([map { $_ -> get_uri() } $chooser -> get_items()], [$uri_two, $uri_one]);
+my @expected_uris = sort ($uri_two, $uri_one);
+is_deeply([sort $chooser -> get_uris()], \@expected_uris);
+is_deeply([sort map { $_ -> get_uri() } $chooser -> get_items()], \@expected_uris);
my $filter_one = Gtk2::RecentFilter -> new();
my $filter_two = Gtk2::RecentFilter -> new();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.221/t/GtkSocket-GtkPlug.t new/Gtk2-1.222/t/GtkSocket-GtkPlug.t
--- old/Gtk2-1.221/t/GtkSocket-GtkPlug.t 2009-05-17 13:59:40.000000000 +0200
+++ new/Gtk2-1.222/t/GtkSocket-GtkPlug.t 2010-05-30 14:27:30.000000000 +0200
@@ -30,12 +30,8 @@
my $pid = fork;
-skip 'fork failed', 1 unless defined $pid;
+skip 'fork failed', 2 unless defined $pid && $pid >= 0;
-if( $pid < 0 )
-{
- die "fork failed, no use trying";
-}
if( $pid == 0 )
{
exec("$^X -Mblib -e 'my \$id = $id;\n\n" . <
participants (1)
-
root@hilbert.suse.de