Hello community,
here is the log from the commit of package perl-Gtk2
checked in at Wed Apr 9 21:45:00 CEST 2008.
--------
--- perl-Gtk2/perl-Gtk2.changes 2008-03-17 14:07:11.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-Gtk2/perl-Gtk2.changes 2008-04-09 14:31:40.000000000 +0200
@@ -1,0 +2,16 @@
+Wed Apr 9 14:30:22 CEST 2008 - anicka@suse.cz
+
+- update to 1.182
+ * xs/GtkScaleButton.xs: NULL-terminate the icon list passed to
+ gtk_scale_button_new and gtk_scale_button_set_icons.
+ * xs/GtkBuildable.xs (gtk2perl_buildable_custom_tag_start): Don't
+ declare variables after expressions.
+ * Makefile.PL: Depend on ExtUtils::Depends 0.300 and thereby void
+ the need for the find_extra_libs stuff.
+ * Gtk2/t/PangoCairo.t: Fix test failures, mostly on MSWin32
+ and cygwin.
+ * Makefile.PL: Trap exceptions thrown by EU::PkgConfig->find.
+ When one occurs, exit with status 0 to indicate to CPAN testers
+ that their system isn't supported.
+
+-------------------------------------------------------------------
Old:
----
Gtk2-1.181.tar.bz2
perl-Gtk2-1.181-tests.diff
New:
----
Gtk2-1.182.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Gtk2.spec ++++++
--- /var/tmp/diff_new_pack.z21212/_old 2008-04-09 21:44:48.000000000 +0200
+++ /var/tmp/diff_new_pack.z21212/_new 2008-04-09 21:44:48.000000000 +0200
@@ -1,5 +1,5 @@
#
-# spec file for package perl-Gtk2 (Version 1.181)
+# spec file for package perl-Gtk2 (Version 1.182)
#
# Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
@@ -13,7 +13,7 @@
Name: perl-Gtk2
BuildRequires: gtk2-devel perl-Cairo perl-ExtUtils-Depends perl-ExtUtils-PkgConfig perl-Glib update-desktop-files xorg-x11 xorg-x11-Xvfb xorg-x11-server
-Version: 1.181
+Version: 1.182
Release: 1
Requires: perl = %{perl_version}
Requires: perl-Glib perl-Cairo
@@ -23,7 +23,6 @@
Url: http://cpan.org/modules/by-module/Gtk2/
Summary: Gtk2 Perl module
Source: Gtk2-%{version}.tar.bz2
-Patch: %{name}-%{version}-tests.diff
BuildRoot: %{_tmppath}/%{name}-%{version}-build
%description
@@ -47,7 +46,6 @@
%prep
%setup -q -n Gtk2-%{version}
-%patch
%build
export OPTIMIZE="$RPM_OPT_FLAGS"
@@ -82,6 +80,19 @@
/var/adm/perl-modules/%{name}
%changelog
+* Wed Apr 09 2008 anicka@suse.cz
+- update to 1.182
+ * xs/GtkScaleButton.xs: NULL-terminate the icon list passed to
+ gtk_scale_button_new and gtk_scale_button_set_icons.
+ * xs/GtkBuildable.xs (gtk2perl_buildable_custom_tag_start): Don't
+ declare variables after expressions.
+ * Makefile.PL: Depend on ExtUtils::Depends 0.300 and thereby void
+ the need for the find_extra_libs stuff.
+ * Gtk2/t/PangoCairo.t: Fix test failures, mostly on MSWin32
+ and cygwin.
+ * Makefile.PL: Trap exceptions thrown by EU::PkgConfig->find.
+ When one occurs, exit with status 0 to indicate to CPAN testers
+ that their system isn't supported.
* Mon Mar 17 2008 anicka@suse.cz
- update to 1.181
* t/GtkBuildableIface.t: Fix test failure on gtk+ < 2.12.
@@ -158,7 +169,7 @@
for the position parameter.
* test fixes
- remove last patch (fixed in upstream)
-* Mon Jul 02 2007 jw@suse.de
+* Tue Jul 03 2007 jw@suse.de
- added gtk-demo next to examples.
* Thu Jun 21 2007 anicka@suse.cz
- disable one wrong test in GtkIconTheme.t
++++++ Gtk2-1.181.tar.bz2 -> Gtk2-1.182.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/ChangeLog new/Gtk2-1.182/ChangeLog
--- old/Gtk2-1.181/ChangeLog 2008-03-15 01:22:11.000000000 +0100
+++ new/Gtk2-1.182/ChangeLog 2008-03-30 21:49:20.000000000 +0200
@@ -1,3 +1,40 @@
+2008-03-30 Torsten Schoenfeld
+
+ * Gtk2.pm
+ * NEWS
+ * README: Stable release 1.182.
+
+2008-03-30 Torsten Schoenfeld
+
+ * xs/GtkScaleButton.xs: NULL-terminate the icon list passed to
+ gtk_scale_button_new and gtk_scale_button_set_icons.
+
+ * xs/GtkBuildable.xs (gtk2perl_buildable_custom_tag_start): Don't
+ declare variables after expressions.
+
+ * Makefile.PL: Depend on ExtUtils::Depends 0.300 and thereby void
+ the need for the find_extra_libs stuff.
+
+ * Gtk2/t/Gdk.t
+ * Gtk2/t/GdkDisplay.t
+ * Gtk2/t/GdkInput.t
+ * Gtk2/t/GdkProperty.t
+ * Gtk2/t/GdkSelection.t
+ * Gtk2/t/GdkWindow.t
+ * Gtk2/t/GtkFontSelection.t
+ * Gtk2/t/GtkIconTheme.t
+ * Gtk2/t/GtkIconView.t
+ * Gtk2/t/GtkSocket-GtkPlug.t
+ * Gtk2/t/GtkStatusIcon.t
+ * Gtk2/t/GtkTreeView.t
+ * Gtk2/t/PangoCairo.t: Fix test failures, mostly on MSWin32 and cygwin.
+
+2008-03-22 Torsten Schoenfeld
+
+ * Makefile.PL: Trap exceptions thrown by EU::PkgConfig->find.
+ When one occurs, exit with status 0 to indicate to CPAN testers
+ that their system isn't supported.
+
2008-03-15 Torsten Schoenfeld
* Gtk2.pm
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/Gtk2.pm new/Gtk2-1.182/Gtk2.pm
--- old/Gtk2-1.181/Gtk2.pm 2008-03-15 01:23:15.000000000 +0100
+++ new/Gtk2-1.182/Gtk2.pm 2008-03-30 21:49:43.000000000 +0200
@@ -16,7 +16,7 @@
# along with this library; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place - Suite 330, Boston, MA 02111-1307 USA.
#
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Gtk2.pm,v 1.119 2008/03/15 00:23:15 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Gtk2.pm,v 1.120 2008/03/30 19:49:43 kaffeetisch Exp $
#
package Gtk2;
@@ -36,7 +36,7 @@
require DynaLoader;
-our $VERSION = '1.181';
+our $VERSION = '1.182';
our @ISA = qw(DynaLoader);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/Makefile.PL new/Gtk2-1.182/Makefile.PL
--- old/Gtk2-1.181/Makefile.PL 2008-03-14 23:11:04.000000000 +0100
+++ new/Gtk2-1.182/Makefile.PL 2008-03-30 21:27:35.000000000 +0200
@@ -15,7 +15,7 @@
# along with this library; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place - Suite 330, Boston, MA 02111-1307 USA.
#
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Makefile.PL,v 1.144 2008/03/14 22:11:04 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Makefile.PL,v 1.146 2008/03/30 19:27:35 kaffeetisch Exp $
#
BEGIN { require 5.008; }
@@ -31,10 +31,10 @@
# minimum required version of dependencies we need to build
our %build_reqs = (
- 'perl-ExtUtils-Depends' => '0.2',
- 'perl-ExtUtils-PkgConfig' => '1.03',
+ 'perl-ExtUtils-Depends' => '0.300',
+ 'perl-ExtUtils-PkgConfig' => '1.030',
'perl-Glib' => '1.180',
- 'perl-Cairo' => '1.00',
+ 'perl-Cairo' => '1.000',
'Gtk+' => '2.0.0',
);
@@ -66,12 +66,22 @@
mkdir 'build', 0777;
#
+# look for our packages. if they can't be found, warn and exit with status 0
+# to indicate to CPAN testers that their system isn't supported.
+#
+my (%pkgcfg_gtk, %pkgcfg_pango);
+unless (eval { %pkgcfg_gtk = ExtUtils::PkgConfig->find ("gtk+-2.0 >= $build_reqs{'Gtk+'}");
+ %pkgcfg_pango = ExtUtils::PkgConfig->find ('pango');
+ 1; })
+{
+ warn $@;
+ exit 0;
+}
+
+#
# retrieve gtk's and pango's version
#
-my %pkgcfg_gtk = ExtUtils::PkgConfig->find ('gtk+-2.0 >= '.$build_reqs{'Gtk+'});
my @gtk_version = split /\./, $pkgcfg_gtk{modversion};
-
-my %pkgcfg_pango = ExtUtils::PkgConfig->find ('pango');
my @pango_version = split /\./, $pkgcfg_pango{modversion};
#
@@ -221,7 +231,7 @@
# the autogenerated files. we do this kindof as a public service to client
# modules, as these will carry through via the depends mechanism.
$gtk2->set_inc ($pkgcfg_gtk{cflags} . ' -I./build ');
-$gtk2->set_libs ($pkgcfg_gtk{libs} . find_extra_libs());
+$gtk2->set_libs ($pkgcfg_gtk{libs});
$gtk2->add_pm (%pm_files);
$gtk2->add_xs (@xs_files);
my $cwd = cwd();
@@ -343,34 +353,3 @@
return $text;
}
-
-# this probably needs to go into ExtUtils::Depends.
-sub find_extra_libs {
- # right now we need this terrible hack only for windows.
- # unfortunately, this code doesn't work on cygwin. :-/
- return "" unless $^O eq "MSWin32";
-
- # win32 does not allow unresolved symbols in libraries, but
- # Gtk2 uses on symbols in the dll created for Glib.
- # so, we have to break all this nice abstraction and encapsulation
- # and find the actual Glib.dll and Glib.lib installed by perl when
- # the Glib module was built, and add it to the list of lib files.
- #
- # when we depend on Cairo, the same applies to Cairo.lib.
- #
- # say it with me: "i hate win32."
-
- my $retstring = "";
-
- use File::Find;
- find (sub {
- $retstring .= " ".$File::Find::name
- if /Glib.lib/i;
- if ($have_cairo) {
- $retstring .= " ".$File::Find::name
- if /Cairo.lib/i;
- }
- }, @INC);
-
- return $retstring;
-}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/META.yml new/Gtk2-1.182/META.yml
--- old/Gtk2-1.181/META.yml 2008-03-15 01:37:42.000000000 +0100
+++ new/Gtk2-1.182/META.yml 2008-03-30 22:00:01.000000000 +0200
@@ -1,22 +1,22 @@
--- #YAML:1.0
name: Gtk2
-version: 1.181
+version: 1.182
abstract: Perl interface to the 2.x series of the Gimp Toolkit library
license: ~
author: ~
generated_by: ExtUtils::MakeMaker version 6.44
distribution_type: module
requires:
- Cairo: 1.00
- ExtUtils::Depends: 0.2
- ExtUtils::PkgConfig: 1.03
+ Cairo: 1.000
+ ExtUtils::Depends: 0.300
+ ExtUtils::PkgConfig: 1.030
Glib: 1.180
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
version: 1.3
configure_requires:
- ExtUtils::Depends: 0.2
+ ExtUtils::Depends: 0.300
Glib: 1.180
- ExtUtils::PkgConfig: 1.03
- Cairo: 1.00
+ ExtUtils::PkgConfig: 1.030
+ Cairo: 1.000
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/NEWS new/Gtk2-1.182/NEWS
--- old/Gtk2-1.181/NEWS 2008-03-15 01:08:03.000000000 +0100
+++ new/Gtk2-1.182/NEWS 2008-03-30 21:36:58.000000000 +0200
@@ -1,3 +1,9 @@
+Overview of changes in Gtk2 1.182
+=================================
+
+* Correct memory management in Gtk2::ScaleButton::new() and set_icons().
+* Fix many build and test suite issues, especially on MSWin32 and cygwin.
+
Overview of changes in Gtk2 1.181
=================================
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/README new/Gtk2-1.182/README
--- old/Gtk2-1.181/README 2008-03-15 01:23:15.000000000 +0100
+++ new/Gtk2-1.182/README 2008-03-30 21:49:45.000000000 +0200
@@ -1,4 +1,4 @@
-Gtk2 version 1.181
+Gtk2 version 1.182
==================
Perl bindings to the 2.x series of the Gtk+ graphical user interface library.
@@ -101,4 +101,4 @@
with this library; if not, write to the Free Software Foundation, Inc., 59
Temple Place - Suite 330, Boston, MA 02111-1307 USA.
-# $Id: README,v 1.90 2008/03/15 00:23:15 kaffeetisch Exp $
+# $Id: README,v 1.91 2008/03/30 19:49:45 kaffeetisch Exp $
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GdkDisplay.t new/Gtk2-1.182/t/GdkDisplay.t
--- old/Gtk2-1.181/t/GdkDisplay.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GdkDisplay.t 2008-03-30 21:31:07.000000000 +0200
@@ -4,14 +4,19 @@
tests => 24,
at_least_version => [2, 2, 0, "GdkDisplay is new in 2.2"];
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkDisplay.t,v 1.14 2007/09/15 14:32:56 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkDisplay.t,v 1.15 2008/03/30 19:31:07 kaffeetisch Exp $
-my $display = Gtk2::Gdk::Display -> open($ENV{DISPLAY});
+my $display = Gtk2::Gdk::Display -> get_default();
isa_ok($display, "Gtk2::Gdk::Display");
ok(defined($display -> get_name()));
-$display = Gtk2::Gdk::Display -> get_default();
-isa_ok($display, "Gtk2::Gdk::Display");
+SKIP: {
+ skip '$ENV{DISPLAY} is not set', 1
+ unless exists $ENV{DISPLAY};
+
+ isa_ok(Gtk2::Gdk::Display -> open($ENV{DISPLAY}),
+ "Gtk2::Gdk::Display");
+}
like($display -> get_n_screens(), qr/^\d+$/);
@@ -57,7 +62,10 @@
like($width, qr/^\d+$/);
like($height, qr/^\d+$/);
- isa_ok($display -> get_default_group(), "Gtk2::Gdk::Window");
+ my $default_group = $display -> get_default_group();
+ skip 'no default group', 1
+ unless defined $default_group;
+ isa_ok($default_group, "Gtk2::Gdk::Window");
}
SKIP: {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GdkInput.t new/Gtk2-1.182/t/GdkInput.t
--- old/Gtk2-1.181/t/GdkInput.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GdkInput.t 2008-03-30 21:31:09.000000000 +0200
@@ -1,8 +1,8 @@
#!/usr/bin/perl -w
use strict;
-use Gtk2::TestHelper tests => 16;
+use Gtk2::TestHelper tests => 14;
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkInput.t,v 1.2 2005/07/10 12:22:20 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkInput.t,v 1.3 2008/03/30 19:31:09 kaffeetisch Exp $
use Gtk2::Gdk::Keysyms;
@@ -38,9 +38,7 @@
my ($mask, @positions) = $device -> get_state($window -> window());
isa_ok($mask, "Gtk2::Gdk::ModifierType");
-is(@positions, 2);
-like($positions[0], qr/^\d+$/);
-like($positions[1], qr/^\d+$/);
+is(scalar @positions, 2);
# FIXME: warn $device -> get_history($window -> window(), 0, time());
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GdkProperty.t new/Gtk2-1.182/t/GdkProperty.t
--- old/Gtk2-1.181/t/GdkProperty.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GdkProperty.t 2008-03-30 21:31:10.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use Gtk2::TestHelper tests => 46;
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkProperty.t,v 1.7 2008/02/11 21:10:52 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkProperty.t,v 1.8 2008/03/30 19:31:10 kaffeetisch Exp $
my $window = Gtk2::Window -> new();
$window -> realize();
@@ -31,58 +31,61 @@
$window -> window() -> property_change($strut, $cardinal, Gtk2::Gdk::USHORTS, "replace", 0, 0, 26, 0);
$window -> window() -> property_change($strut_partial, $cardinal, Gtk2::Gdk::ULONGS, "replace", 0, 0, 26, 0, 0, 0, 0, 0, 0, 1279, 0, 0);
-my ($atom, $format, @data);
-
-($atom, $format, @data) = $window -> window() -> property_get($name, $string, 0, 1024, 0);
-is($atom -> name(), "STRING");
-is($format, Gtk2::Gdk::CHARS);
-is(@data, 1);
-is($data[0], "Bla\0Bla\0Bla");
-
-($atom, $format, @data) = $window -> window() -> property_get($icon_name, $string, 0, 1024, 0);
-is($atom -> name(), "STRING");
-is($format, Gtk2::Gdk::CHARS);
-is(@data, 1);
-is($data[0], "Bla Bla Bla");
-
-($atom, $format, @data) = $window -> window() -> property_get($strut, $cardinal, 0, 1024, 0);
-is($atom -> name(), "CARDINAL");
-is($format, Gtk2::Gdk::USHORTS);
-is_deeply([@data], [0, 0, 26, 0]);
-
-($atom, $format, @data) = $window -> window() -> property_get($strut_partial, $cardinal, 0, 1024, 0);
-is($atom -> name(), "CARDINAL");
-is($format, Gtk2::Gdk::ULONGS);
-is_deeply([@data], [0, 0, 26, 0, 0, 0, 0, 0, 0, 1279, 0, 0]);
-
-$window -> window() -> property_delete($name);
-$window -> window() -> property_delete($strut);
-$window -> window() -> property_delete($strut_partial);
+SKIP: {
+ skip 'gdk_property_get is not implemented yet on win32', 34
+ if $^O eq 'MSWin32';
-is_deeply([Gtk2::Gdk -> text_property_to_text_list($string, Gtk2::Gdk::CHARS, "Bla\0Bla\0Bla")],
- [qw(Bla Bla Bla)]);
-is_deeply([Gtk2::Gdk -> text_property_to_utf8_list($string, Gtk2::Gdk::CHARS, "Bla\0Bla\0Bla")],
- [qw(Bla Bla Bla)]);
+ my ($atom, $format, @data);
-($atom, $format, @data) = Gtk2::Gdk -> string_to_compound_text("Bla");
-SKIP: {
- skip 'atom tests', 4 unless defined $atom;
- is($atom -> name(), "COMPOUND_TEXT");
+ ($atom, $format, @data) = $window -> window() -> property_get($name, $string, 0, 1024, 0);
+ is($atom -> name(), "STRING");
is($format, Gtk2::Gdk::CHARS);
is(@data, 1);
- is($data[0], "Bla");
-}
+ is($data[0], "Bla\0Bla\0Bla");
-($atom, $format, @data) = Gtk2::Gdk -> utf8_to_compound_text("Bla");
-SKIP: {
- skip 'atom tests', 4 unless defined $atom;
- is($atom -> name(), "COMPOUND_TEXT");
+ ($atom, $format, @data) = $window -> window() -> property_get($icon_name, $string, 0, 1024, 0);
+ is($atom -> name(), "STRING");
is($format, Gtk2::Gdk::CHARS);
is(@data, 1);
- is($data[0], "Bla");
-}
+ is($data[0], "Bla Bla Bla");
+
+ ($atom, $format, @data) = $window -> window() -> property_get($strut, $cardinal, 0, 1024, 0);
+ is($atom -> name(), "CARDINAL");
+ is($format, Gtk2::Gdk::USHORTS);
+ is_deeply([@data], [0, 0, 26, 0]);
+
+ ($atom, $format, @data) = $window -> window() -> property_get($strut_partial, $cardinal, 0, 1024, 0);
+ is($atom -> name(), "CARDINAL");
+ is($format, Gtk2::Gdk::ULONGS);
+ is_deeply([@data], [0, 0, 26, 0, 0, 0, 0, 0, 0, 1279, 0, 0]);
+
+ $window -> window() -> property_delete($name);
+ $window -> window() -> property_delete($strut);
+ $window -> window() -> property_delete($strut_partial);
+
+ is_deeply([Gtk2::Gdk -> text_property_to_text_list($string, Gtk2::Gdk::CHARS, "Bla\0Bla\0Bla")],
+ [qw(Bla Bla Bla)]);
+ is_deeply([Gtk2::Gdk -> text_property_to_utf8_list($string, Gtk2::Gdk::CHARS, "Bla\0Bla\0Bla")],
+ [qw(Bla Bla Bla)]);
+
+ ($atom, $format, @data) = Gtk2::Gdk -> string_to_compound_text("Bla");
+ SKIP: {
+ skip 'atom tests', 4 unless defined $atom;
+ is($atom -> name(), "COMPOUND_TEXT");
+ is($format, Gtk2::Gdk::CHARS);
+ is(@data, 1);
+ is($data[0], "Bla");
+ }
+
+ ($atom, $format, @data) = Gtk2::Gdk -> utf8_to_compound_text("Bla");
+ SKIP: {
+ skip 'atom tests', 4 unless defined $atom;
+ is($atom -> name(), "COMPOUND_TEXT");
+ is($format, Gtk2::Gdk::CHARS);
+ is(@data, 1);
+ is($data[0], "Bla");
+ }
-SKIP: {
skip("GdkDisplay is new 2.2", 10)
unless (Gtk2 -> CHECK_VERSION(2, 2, 0));
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GdkSelection.t new/Gtk2-1.182/t/GdkSelection.t
--- old/Gtk2-1.181/t/GdkSelection.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GdkSelection.t 2008-03-30 21:31:12.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use Gtk2::TestHelper tests => 20;
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkSelection.t,v 1.3 2004/02/27 05:31:48 muppetman Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkSelection.t,v 1.4 2008/03/30 19:31:12 kaffeetisch Exp $
foreach (Gtk2::Gdk -> SELECTION_PRIMARY(),
Gtk2::Gdk -> SELECTION_SECONDARY(),
@@ -44,10 +44,18 @@
is(Gtk2::Gdk::Selection -> owner_set_for_display($display, $window -> window(), $primary, 0, 0), 1);
is(Gtk2::Gdk::Selection -> owner_get_for_display($display, $primary), $window -> window());
- Gtk2::Gdk::Selection -> send_notify_for_display($display, $window -> window() -> get_xid(), $primary, $target, $property, 0);
+ if ($window -> window() -> can("get_xid")) {
+ Gtk2::Gdk::Selection -> send_notify_for_display(
+ $display, $window -> window() -> get_xid(),
+ $primary, $target, $property, 0);
+ }
}
-Gtk2::Gdk::Selection -> send_notify($window -> window() -> get_xid(), $primary, $target, $property, 0);
+if ($window -> window() -> can("get_xid")) {
+ Gtk2::Gdk::Selection -> send_notify(
+ $window -> window() -> get_xid(),
+ $primary, $target, $property, 0);
+}
# FIXME: warn Gtk2::Gdk::Selection -> property_get($window -> window());
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/Gdk.t new/Gtk2-1.182/t/Gdk.t
--- old/Gtk2-1.181/t/Gdk.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/Gdk.t 2008-03-30 21:31:01.000000000 +0200
@@ -4,7 +4,7 @@
use Test::More;
use Gtk2;
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/Gdk.t,v 1.18 2007/09/15 14:32:56 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/Gdk.t,v 1.19 2008/03/30 19:31:01 kaffeetisch Exp $
use Config;
my $have_threads = $Config{usethreads};
@@ -75,6 +75,7 @@
like(Gtk2::Gdk -> screen_height_mm(), $number);
my $window = Gtk2::Window -> new();
+$window -> show_all();
$window -> show_now();
my $result = Gtk2::Gdk -> pointer_grab($window -> window(),
@@ -105,17 +106,25 @@
$event -> data_format(Gtk2::Gdk::CHARS);
$event -> data("01234567890123456789");
-is(Gtk2::Gdk::Event -> send_client_message($event, $window -> window() -> get_xid()), 1);
-Gtk2::Gdk::Event -> send_clientmessage_toall($event);
-
SKIP: {
+ skip("X11 stuff", 2)
+ unless $window -> window() -> can("get_xid");
+
+ is(Gtk2::Gdk::Event -> send_client_message(
+ $event, $window -> window() -> get_xid()),
+ 1);
+ Gtk2::Gdk::Event -> send_clientmessage_toall($event);
+
skip("GdkDisplay is new in 2.2", 1)
unless Gtk2 -> CHECK_VERSION(2, 2, 0);
- is(Gtk2::Gdk::Event -> send_client_message_for_display(Gtk2::Gdk::Display -> get_default(), $event, $window -> window() -> get_xid()), 1);
+ is(Gtk2::Gdk::Event -> send_client_message_for_display(
+ Gtk2::Gdk::Display -> get_default(), $event,
+ $window -> window() -> get_xid()),
+ 1);
}
-Gtk2::Gdk -> beep();
+# Gtk2::Gdk -> beep();
__END__
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GdkWindow.t new/Gtk2-1.182/t/GdkWindow.t
--- old/Gtk2-1.181/t/GdkWindow.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GdkWindow.t 2008-03-30 21:31:13.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use Gtk2::TestHelper tests => 40;
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkWindow.t,v 1.25 2007/09/15 14:32:59 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkWindow.t,v 1.26 2008/03/30 19:31:13 kaffeetisch Exp $
my $attributes = {
title => "Bla",
@@ -60,9 +60,10 @@
$window -> unfullscreen();
}
-is_deeply(\@{ $window -> get_state() }, ["withdrawn"]);
+ok(defined $window -> get_state());
-is_deeply([$window -> get_position()], [10, 10]);
+my @position = $window -> get_position();
+is(scalar @position, 2);
$window -> move(20, 20);
$window -> resize(40, 40);
@@ -302,7 +303,7 @@
$window -> set_startup_id('bla');
$window -> set_composited(FALSE);
- $window -> beep();
+ # $window -> beep();
}
$window -> hide();
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GtkFontSelection.t new/Gtk2-1.182/t/GtkFontSelection.t
--- old/Gtk2-1.181/t/GtkFontSelection.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GtkFontSelection.t 2008-03-30 21:31:26.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use Gtk2::TestHelper tests => 9;
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkFontSelection.t,v 1.5 2004/05/15 19:03:30 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkFontSelection.t,v 1.6 2008/03/30 19:31:26 kaffeetisch Exp $
my $fs = Gtk2::FontSelection -> new();
isa_ok($fs, "Gtk2::FontSelection");
@@ -22,7 +22,7 @@
isa_ok($dialog -> cancel_button, "Gtk2::Button");
ok($dialog -> set_font_name("Sans 12"));
-is(lc($dialog -> get_font_name()), "sans 12");
+ok(defined($dialog -> get_font_name()));
$dialog -> set_preview_text("Quick brown gtk2-perl.");
is($dialog -> get_preview_text(), "Quick brown gtk2-perl.");
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GtkIconTheme.t new/Gtk2-1.182/t/GtkIconTheme.t
--- old/Gtk2-1.181/t/GtkIconTheme.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GtkIconTheme.t 2008-03-30 21:31:26.000000000 +0200
@@ -1,11 +1,11 @@
#!/usr/bin/perl
#
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkIconTheme.t,v 1.19 2007/10/21 15:29:47 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkIconTheme.t,v 1.20 2008/03/30 19:31:26 kaffeetisch Exp $
#
use Gtk2::TestHelper
at_least_version => [2, 4, 0, 'GtkIconTheme is new in 2.4'],
- tests => 16;
+ tests => 15;
my $icon_theme = Gtk2::IconTheme->new;
isa_ok ($icon_theme, 'Gtk2::IconTheme');
@@ -18,7 +18,8 @@
$icon_theme->set_screen (Gtk2::Gdk::Screen->get_default);
-ok ($icon_theme->list_icons (undef));
+my @icons = $icon_theme->list_icons (undef);
+# @icons can be anything, even empty
ok (!$icon_theme->has_icon ('something crazy'));
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GtkIconView.t new/Gtk2-1.182/t/GtkIconView.t
--- old/Gtk2-1.181/t/GtkIconView.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GtkIconView.t 2008-03-30 21:31:31.000000000 +0200
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkIconView.t,v 1.21 2007/12/16 18:31:15 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkIconView.t,v 1.22 2008/03/30 19:31:31 kaffeetisch Exp $
#
#########################
@@ -209,9 +209,12 @@
skip 'get_item_at_pos returned undef', 6
unless defined $path && defined $cell;
+ my $handler_called = 0;
$window->signal_connect (query_tooltip => sub {
my ($window, $x, $y, $keyboard_mode, $tip) = @_;
+ return TRUE if $handler_called++;
+
$iview->set_tooltip_item ($tip, $path);
$iview->set_tooltip_cell ($tip, $path, $cell);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GtkSocket-GtkPlug.t new/Gtk2-1.182/t/GtkSocket-GtkPlug.t
--- old/Gtk2-1.181/t/GtkSocket-GtkPlug.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GtkSocket-GtkPlug.t 2008-03-30 21:31:33.000000000 +0200
@@ -1,6 +1,6 @@
#########################
#
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkSocket-GtkPlug.t,v 1.3 2006/09/10 17:26:53 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkSocket-GtkPlug.t,v 1.4 2008/03/30 19:31:33 kaffeetisch Exp $
#
#########################
@@ -49,6 +49,9 @@
use warnings;
my $pid = fork;
+
+skip 'fork failed', 1 unless defined $pid;
+
if( $pid < 0 )
{
die "fork failed, no use trying";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GtkStatusIcon.t new/Gtk2-1.182/t/GtkStatusIcon.t
--- old/Gtk2-1.181/t/GtkStatusIcon.t 2008-03-10 21:49:38.000000000 +0100
+++ new/Gtk2-1.182/t/GtkStatusIcon.t 2008-03-30 21:31:35.000000000 +0200
@@ -7,7 +7,7 @@
tests => 26,
at_least_version => [2, 10, 0, "Gtk2::StatusIcon is new in 2.10"];
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkStatusIcon.t,v 1.9 2008/01/12 22:28:27 muppetman Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkStatusIcon.t,v 1.10 2008/03/30 19:31:35 kaffeetisch Exp $
my $icon;
@@ -24,7 +24,7 @@
$icon -> set_blinking(TRUE);
is($icon -> get_blinking(), TRUE);
-is($icon -> is_embedded(), FALSE);
+ok(defined $icon -> is_embedded());
# --------------------------------------------------------------------------- #
@@ -102,10 +102,10 @@
# Make sure the returned rectangle is valid. It's a copy of a stack
# object, so we just need to ensure that the values are in some sane
# range, rather than garbage.
- ok ($area->x >= 0);
- ok ($area->y >= 0);
- ok ($area->width < Gtk2::Gdk->screen_width ());
- ok ($area->height < Gtk2::Gdk->screen_height ());
+ ok (abs $area->x <= Gtk2::Gdk->screen_width ());
+ ok (abs $area->y <= Gtk2::Gdk->screen_height ());
+ ok ($area->width <= Gtk2::Gdk->screen_width ());
+ ok ($area->height <= Gtk2::Gdk->screen_height ());
}
# --------------------------------------------------------------------------- #
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/GtkTreeView.t new/Gtk2-1.182/t/GtkTreeView.t
--- old/Gtk2-1.181/t/GtkTreeView.t 2008-03-10 21:49:39.000000000 +0100
+++ new/Gtk2-1.182/t/GtkTreeView.t 2008-03-30 21:31:35.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use Gtk2::TestHelper tests => 115;
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkTreeView.t,v 1.36 2008/02/24 14:16:48 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkTreeView.t,v 1.37 2008/03/30 19:31:35 kaffeetisch Exp $
###############################################################################
@@ -547,7 +547,7 @@
my @res = $view->get_path_at_pos ($e->x, $e->y);
isa_ok ($res[0], 'Gtk2::TreePath', 'get_path_at_pos, path');
isa_ok ($res[1], 'Gtk2::TreeViewColumn', 'get_path_at_pos, col');
- ok ($res[2] == 0 && $res[3] == 0, 'get_path_at_pos, pos');
+ ok (defined $res[2] && defined $res[3], 'get_path_at_pos, pos');
@res = $view->tree_to_widget_coords (10, 10);
is (scalar (@res), 2, 'tree_to_widget_coords, num returns');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/t/PangoCairo.t new/Gtk2-1.182/t/PangoCairo.t
--- old/Gtk2-1.181/t/PangoCairo.t 2008-03-10 21:49:39.000000000 +0100
+++ new/Gtk2-1.182/t/PangoCairo.t 2008-03-30 21:31:44.000000000 +0200
@@ -11,7 +11,7 @@
plan skip_all => "PangoCairo stuff: need Cairo and pango >= 1.10.0";
}
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/PangoCairo.t,v 1.9 2007/09/15 14:33:00 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/PangoCairo.t,v 1.10 2008/03/30 19:31:44 kaffeetisch Exp $
my $fontmap = Gtk2::Pango::Cairo::FontMap -> new();
isa_ok($fontmap, "Gtk2::Pango::Cairo::FontMap");
@@ -22,6 +22,10 @@
unless Gtk2::Pango -> CHECK_VERSION(1, 18, 0);
$fontmap = Gtk2::Pango::Cairo::FontMap -> new_for_font_type('ft');
+
+ skip 'new_for_font_type returned undef', 3
+ unless defined $fontmap;
+
isa_ok($fontmap, "Gtk2::Pango::Cairo::FontMap");
isa_ok($fontmap, "Gtk2::Pango::FontMap");
is($fontmap -> get_font_type(), 'ft');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/xs/GtkBuildable.xs new/Gtk2-1.182/xs/GtkBuildable.xs
--- old/Gtk2-1.181/xs/GtkBuildable.xs 2008-03-10 21:54:37.000000000 +0100
+++ new/Gtk2-1.182/xs/GtkBuildable.xs 2008-03-30 21:25:16.000000000 +0200
@@ -3,7 +3,7 @@
*
* Licensed under the LGPL, see LICENSE file for more information.
*
- * $Id: GtkBuildable.xs,v 1.3 2008/03/10 20:54:37 kaffeetisch Exp $
+ * $Id: GtkBuildable.xs,v 1.4 2008/03/30 19:25:16 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -420,11 +420,11 @@
{
gboolean ret = FALSE;
+ GET_METHOD_OR_DIE (buildable, "CUSTOM_TAG_START");
+
*data = NULL;
memset (parser, 0, sizeof (*parser));
- GET_METHOD_OR_DIE (buildable, "CUSTOM_TAG_START");
-
{
SV * sv;
PREP (buildable);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.181/xs/GtkScaleButton.xs new/Gtk2-1.182/xs/GtkScaleButton.xs
--- old/Gtk2-1.181/xs/GtkScaleButton.xs 2008-03-10 21:47:03.000000000 +0100
+++ new/Gtk2-1.182/xs/GtkScaleButton.xs 2008-03-30 21:23:33.000000000 +0200
@@ -3,7 +3,7 @@
*
* Licensed under the LGPL, see LICENSE file for more information.
*
- * $Id: GtkScaleButton.xs,v 1.1 2007/06/16 12:39:25 kaffeetisch Exp $
+ * $Id: GtkScaleButton.xs,v 1.2 2008/03/30 19:23:33 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -11,7 +11,8 @@
#define ICONS_FROM_STACK(offset, icons) \
if (items > offset) { \
int i; \
- icons = g_new0 (gchar *, items - offset); \
+ /* icons is supposed to be NULL-terminated */ \
+ icons = g_new0 (gchar *, items - offset + 1); \
for (i = offset; i < items; i++) { \
icons[i - offset] = SvPV_nolen (ST (i)); \
} \
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org