Hello community, here is the log from the commit of package perl-Gtk2 checked in at Thu Dec 21 16:30:10 CET 2006. -------- --- perl-Gtk2/perl-Gtk2.changes 2006-09-16 10:35:02.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-Gtk2/perl-Gtk2.changes 2006-12-21 15:43:51.000000000 +0100 @@ -1,0 +2,9 @@ +Thu Dec 21 15:40:57 CET 2006 - anicka@suse.cz + +- update to 1.141 + * t/PangoCairo.t, xs/PangoCairo.xs: Also allow using method + calling semantics for pango_cairo_context_*. + * fixes in documentation and tests +- enable tests fixed in upstream + +------------------------------------------------------------------- Old: ---- Gtk2-1.140.tar.bz2 New: ---- Gtk2-1.141.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Gtk2.spec ++++++ --- /var/tmp/diff_new_pack.Dvn5wd/_old 2006-12-21 16:29:38.000000000 +0100 +++ /var/tmp/diff_new_pack.Dvn5wd/_new 2006-12-21 16:29:38.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-Gtk2 (Version 1.140) +# spec file for package perl-Gtk2 (Version 1.141) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -12,13 +12,13 @@ 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.140 -Release: 3 +Version: 1.141 +Release: 1 Requires: perl = %{perl_version} Requires: perl-Glib perl-Cairo Autoreqprov: on Group: Development/Libraries/Perl -License: LGPL +License: GNU Library General Public License v. 2.0 and 2.1 (LGPL) URL: http://cpan.org/modules/by-module/Gtk2/ Summary: Gtk2 Perl module Source: Gtk2-%{version}.tar.bz2 @@ -55,10 +55,9 @@ sleep 5 #disable tests that randomly fail mv t/GdkGC.t t/GdkGC.tt -mv t/GtkCellView.t t/GtkCellView.tt mv t/GtkStyle.t t/GtkStyle.tt mv t/GtkTreeView.t t/GtkTreeView.tt -mv t/GtkWidget.t t/GtkWidget.tt +mv t/GdkDnd.t t/GdkDnd.tt #disable test that hangs build host (#206001) mv t/GtkIconView.t t/GtkIconView.tt DISPLAY=:95 make test @@ -76,11 +75,16 @@ %doc %{_mandir}/man?/* %{perl_vendorarch}/Gtk2.pm %{perl_vendorarch}/Gtk2 -%{perl_vendorarch}/Gtk2.pod %{perl_vendorarch}/auto/Gtk2 /var/adm/perl-modules/%{name} %changelog -n perl-Gtk2 +* Thu Dec 21 2006 - anicka@suse.cz +- update to 1.141 + * t/PangoCairo.t, xs/PangoCairo.xs: Also allow using method + calling semantics for pango_cairo_context_*. + * fixes in documentation and tests +- enable tests fixed in upstream * Sat Sep 16 2006 - anicka@suse.de - disable GtkIconView.t because it hangs on ppc64 machines (#206001) ++++++ Gtk2-1.140.tar.bz2 -> Gtk2-1.141.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/ChangeLog new/Gtk2-1.141/ChangeLog --- old/Gtk2-1.140/ChangeLog 2006-09-04 20:36:53.000000000 +0200 +++ new/Gtk2-1.141/ChangeLog 2006-11-19 21:30:13.000000000 +0100 @@ -1,3 +1,53 @@ +2006-11-19 kaffeetisch + + * Gtk2.pm, NEWS, README: Stable release 1.141. + +2006-11-19 kaffeetisch + + Merge from HEAD: + + * doctypes: List GdkPixbufFormat as "hash reference". + + * t/PangoCairo.t, xs/PangoCairo.xs: Also allow using method + calling semantics for pango_cairo_context_*. + + * t/GdkVisual.t, t/GtkIconView.t, t/GtkRecentChooser.t, + t/GtkRecentManager.t: Fix test failures. + +2006-11-08 kaffeetisch + + Merge from HEAD: + + * t/GtkEntry.t, xs/GtkEntry.xs: Allow passing undef to + set_completion. + +2006-10-03 kaffeetisch + + * pm/SimpleList.pm: Don't use =cut ... =cut comment blocks. + They're invalid POD. + + * xs/GtkSelection.xs, xs/PangoTypes.xs: Don't clobber the Gtk2 and + Gtk2::Pango man pages with POD. + +2006-09-13 kaffeetisch + + * Makefile.PL (find_extra_libs): Also look for Cairo.lib to make + linking work on win32. + +2006-09-10 kaffeetisch + + * t/02.GtkContainer.t, t/GtkBin.t: Remove the noinit flag, since + these tests apparently need an initialized gtk+ now. + + * t/GdkDnd.t: Turn the get_selection() TODO block into a SKIP + block that gets skipped on Darwin. + + * t/GtkFileChooser.t: Update; mainly remove a few TODO blocks that + aren't needed anymore. Still skip by default though. + + * t/GtkSocket-GtkPlug.t: Skip the whole test if there's no blib + directory. + 2006-09-04 kaffeetisch * Gtk2.pm, Makefile.PL, NEWS, README: Stable release 1.140. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/Gtk2.pm new/Gtk2-1.141/Gtk2.pm --- old/Gtk2-1.140/Gtk2.pm 2006-09-04 20:37:04.000000000 +0200 +++ new/Gtk2-1.141/Gtk2.pm 2006-11-19 21:30:25.000000000 +0100 @@ -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.100 2006/09/04 18:37:04 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Gtk2.pm,v 1.100.2.1 2006/11/19 20:30:25 kaffeetisch Exp $ # package Gtk2; @@ -35,7 +35,7 @@ require DynaLoader; -our $VERSION = '1.140'; +our $VERSION = '1.141'; our @ISA = qw(DynaLoader); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/META.yml new/Gtk2-1.141/META.yml --- old/Gtk2-1.140/META.yml 2006-09-04 20:37:43.000000000 +0200 +++ new/Gtk2-1.141/META.yml 2006-11-19 21:30:58.000000000 +0100 @@ -1,14 +1,15 @@ -# http://module-build.sourceforge.net/META-spec.html -#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# -name: Gtk2 -version: 1.140 -version_from: Gtk2.pm -installdirs: site -requires: +--- #YAML:1.0 +name: Gtk2 +version: 1.141 +abstract: Perl interface to the 2.x series of the Gimp Toolkit library +license: ~ +generated_by: ExtUtils::MakeMaker version 6.31 +distribution_type: module +requires: Cairo: 1.00 ExtUtils::Depends: 0.2 ExtUtils::PkgConfig: 1.03 Glib: 1.140 - -distribution_type: module -generated_by: ExtUtils::MakeMaker version 6.30 +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.2.html + version: 1.2 diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/Makefile.PL new/Gtk2-1.141/Makefile.PL --- old/Gtk2-1.140/Makefile.PL 2006-09-04 20:37:04.000000000 +0200 +++ new/Gtk2-1.141/Makefile.PL 2006-10-17 21:56: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.124 2006/09/04 18:37:04 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Makefile.PL,v 1.125 2006/09/13 14:57:40 kaffeetisch Exp $ # use 5.008; @@ -341,6 +341,8 @@ # 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 = ""; @@ -349,6 +351,10 @@ 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.140/NEWS new/Gtk2-1.141/NEWS --- old/Gtk2-1.140/NEWS 2006-09-04 20:15:33.000000000 +0200 +++ new/Gtk2-1.141/NEWS 2006-11-19 21:04:26.000000000 +0100 @@ -1,3 +1,13 @@ +Overview of changes in Gtk2 1.141 +================================= + +* Allow passing undef to Gtk2::Entry::set_completion. [Torsten] +* Allow using method calling semantics for Gtk2::Pango::Cairo::Context::*. + [Torsten] +* On Win32, also try to locate Cairo.lib if necessary. [Torsten] +* Fix some POD errors. [Torsten] +* Fix a few test suite issues. [Torsten] + Overview of changes in Gtk2 1.140 ================================= diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/README new/Gtk2-1.141/README --- old/Gtk2-1.140/README 2006-09-04 20:37:04.000000000 +0200 +++ new/Gtk2-1.141/README 2006-11-19 21:30:25.000000000 +0100 @@ -1,4 +1,4 @@ -Gtk2 version 1.140 +Gtk2 version 1.141 ================== 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.77 2006/09/04 18:37:04 kaffeetisch Exp $ +# $Id: README,v 1.77.2.1 2006/11/19 20:30:25 kaffeetisch Exp $ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/doctypes new/Gtk2-1.141/doctypes --- old/Gtk2-1.140/doctypes 2005-09-05 21:00:29.000000000 +0200 +++ new/Gtk2-1.141/doctypes 2006-11-19 20:35:44.000000000 +0100 @@ -15,5 +15,6 @@ GdkGeometry Gtk2::Gdk::Geometry GdkKeymap_orclass Gtk2::Gdk::Keymap GdkPixbuf_noinc Gtk2::Gdk::Pixbuf +GdkPixbufFormat hash reference PangoRectangle array reference PangoGlyph integer diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/pm/SimpleList.pm new/Gtk2-1.141/pm/SimpleList.pm --- old/Gtk2-1.140/pm/SimpleList.pm 2005-10-14 05:51:26.000000000 +0200 +++ new/Gtk2-1.141/pm/SimpleList.pm 2006-10-17 21:56:36.000000000 +0200 @@ -1,5 +1,5 @@ # -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/pm/SimpleList.pm,v 1.28 2005/10/14 03:51:26 muppetman Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/pm/SimpleList.pm,v 1.29 2006/10/03 15:49:15 kaffeetisch Exp $ # ######################### @@ -227,12 +227,8 @@ use Gtk2; use Carp; -=cut - -TiedRow is the lowest-level tie, allowing you to treat a row as an array -of column data. - -=cut +# TiedRow is the lowest-level tie, allowing you to treat a row as an array +# of column data. sub TIEARRAY { my $class = shift; @@ -291,11 +287,7 @@ use Gtk2; use Carp; -=cut - -TiedList is an array in which each element is a row in the liststore. - -=cut +# TiedList is an array in which each element is a row in the liststore. sub TIEARRAY { my $class = shift; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/02.GtkContainer.t new/Gtk2-1.141/t/02.GtkContainer.t --- old/Gtk2-1.140/t/02.GtkContainer.t 2004-02-03 23:27:20.000000000 +0100 +++ new/Gtk2-1.141/t/02.GtkContainer.t 2006-10-17 21:56:36.000000000 +0200 @@ -1,8 +1,8 @@ #!/usr/bin/perl -w -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/02.GtkContainer.t,v 1.5 2004/02/03 22:27:20 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/02.GtkContainer.t,v 1.6 2006/09/10 17:26:53 kaffeetisch Exp $ -use Gtk2::TestHelper tests => 23, noinit => 1; +use Gtk2::TestHelper tests => 23; # we'll create some containers (windows and boxes are containers) and # mess around with some of the methods to make sure they do things. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/GdkDnd.t new/Gtk2-1.141/t/GdkDnd.t --- old/Gtk2-1.140/t/GdkDnd.t 2006-08-07 20:36:02.000000000 +0200 +++ new/Gtk2-1.141/t/GdkDnd.t 2006-10-17 21:58:44.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use Gtk2::TestHelper tests => 20; -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkDnd.t,v 1.9 2006/08/07 18:36:02 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkDnd.t,v 1.10 2006/09/10 17:26:53 kaffeetisch Exp $ my $window = Gtk2::Window -> new(); $window -> realize(); @@ -75,8 +75,10 @@ } is($context -> dest_window(), $destination); - TODO: { local $TODO = "This seems to fail harmlessly with Apple's X11"; - isa_ok($context -> get_selection(), "Gtk2::Gdk::Atom"); + SKIP: { + skip "selection test; it seems to fail with Apple's X11", 1 + if $^O eq 'darwin'; + isa_ok($context -> get_selection(), "Gtk2::Gdk::Atom"); } $context -> status(qw(move), 0); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/GdkVisual.t new/Gtk2-1.141/t/GdkVisual.t --- old/Gtk2-1.140/t/GdkVisual.t 2004-05-31 23:14:55.000000000 +0200 +++ new/Gtk2-1.141/t/GdkVisual.t 2006-11-19 21:28:59.000000000 +0100 @@ -2,7 +2,7 @@ use strict; use Gtk2::TestHelper tests => 24; -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkVisual.t,v 1.2 2004/05/31 21:14:55 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkVisual.t,v 1.2.12.1 2006/11/19 20:28:59 kaffeetisch Exp $ my @depths = Gtk2::Gdk -> query_depths(); like($depths[0], qr/^\d+$/); @@ -19,7 +19,10 @@ isa_ok(my $visual = Gtk2::Gdk::Visual -> get_system(), "Gtk2::Gdk::Visual"); isa_ok(Gtk2::Gdk::Visual -> get_best(), "Gtk2::Gdk::Visual"); isa_ok(Gtk2::Gdk::Visual -> get_best_with_type($types[0]), "Gtk2::Gdk::Visual"); -isa_ok(Gtk2::Gdk::Visual -> get_best_with_both($depths[0], $types[0]), "Gtk2::Gdk::Visual"); +TODO: { + local $TODO = 'get_best_with_both stopped working'; + isa_ok(Gtk2::Gdk::Visual -> get_best_with_both($depths[0], $types[0]), "Gtk2::Gdk::Visual"); +} SKIP: { skip("get_best_with_depth seems to be broken in 2.2", 1) diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/GtkBin.t new/Gtk2-1.141/t/GtkBin.t --- old/Gtk2-1.140/t/GtkBin.t 2006-01-16 22:50:28.000000000 +0100 +++ new/Gtk2-1.141/t/GtkBin.t 2006-10-17 21:56:36.000000000 +0200 @@ -1,8 +1,8 @@ #!/usr/bin/perl -w use strict; -use Gtk2::TestHelper tests => 2, noinit => 1; +use Gtk2::TestHelper tests => 2; -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkBin.t,v 1.6 2006/01/16 21:50:28 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkBin.t,v 1.7 2006/09/10 17:30:24 kaffeetisch Exp $ my $container = Gtk2::Container -> new(Gtk2::Window::); my $label = Gtk2::Label -> new("Bla"); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/GtkEntry.t new/Gtk2-1.141/t/GtkEntry.t --- old/Gtk2-1.140/t/GtkEntry.t 2006-08-07 20:36:04.000000000 +0200 +++ new/Gtk2-1.141/t/GtkEntry.t 2006-11-08 19:42:39.000000000 +0100 @@ -1,8 +1,8 @@ #!/usr/bin/perl -w use strict; -use Gtk2::TestHelper tests => 18; +use Gtk2::TestHelper tests => 19; -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkEntry.t,v 1.14 2006/08/07 18:36:04 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkEntry.t,v 1.14.2.1 2006/11/08 18:42:39 kaffeetisch Exp $ my $entry = Gtk2::Entry -> new(); isa_ok($entry, "Gtk2::Entry"); @@ -36,13 +36,16 @@ like($y, qr/^-?\d+$/); SKIP: { - skip("[sg]et_completion are new in 2.4", 1) + skip("[sg]et_completion are new in 2.4", 2) unless Gtk2->CHECK_VERSION (2, 4, 0); my $completion = Gtk2::EntryCompletion -> new(); $entry -> set_completion($completion); is($entry -> get_completion(), $completion); + + $entry -> set_completion(undef); + is($entry -> get_completion(), undef); } SKIP: { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/GtkFileChooser.t new/Gtk2-1.141/t/GtkFileChooser.t --- old/Gtk2-1.140/t/GtkFileChooser.t 2006-01-16 22:50:28.000000000 +0100 +++ new/Gtk2-1.141/t/GtkFileChooser.t 2006-10-17 21:56:36.000000000 +0200 @@ -1,11 +1,11 @@ # -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkFileChooser.t,v 1.28 2006/01/16 21:50:28 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkFileChooser.t,v 1.29 2006/09/10 17:26:53 kaffeetisch Exp $ # use Gtk2::TestHelper at_least_version => [2, 4, 0, 'GtkFileChooser is new in 2.4'], - tests => 43, - skip_all => 'Skipping unreliable GtkFileChooser test'; + tests => 42, + skip_all => 'unreliable GtkFileChooser test'; use File::Spec; use Cwd; @@ -25,13 +25,9 @@ my $cwd = cwd (); $file_chooser->set_current_name ($filename); -TODO: { - local $TODO = 'GtkFileChooser trouble'; - - update; is_idle (sub {$file_chooser->get_filename}, - undef, - 'set current name'); -} +update; is_idle (sub {$file_chooser->get_filename}, + undef, + 'set current name'); $filename = File::Spec->catfile ($cwd, 'gtk2perl.h'); ok ($file_chooser->set_filename ($filename), @@ -54,16 +50,12 @@ ok (scalar (@list)); $file_chooser->unselect_all; -$filename = File::Spec->catfile ($cwd, 'nonexistent'); -ok (!$file_chooser->set_current_folder ($filename), - 'set_current_folder fails when the folder does not exist'); - -$filename = File::Spec->catfile ($cwd, 't'); -ok ($file_chooser->set_current_folder ($filename)); -is ($file_chooser->get_current_folder, $filename); +my $folder = File::Spec->catfile ($cwd, 't'); +ok ($file_chooser->set_current_folder ($folder)); +update; is_idle (sub{$file_chooser->get_current_folder}, $folder); ok ($file_chooser->set_current_folder ($cwd)); -is ($file_chooser->get_current_folder, $cwd); +update; is_idle (sub{$file_chooser->get_current_folder}, $cwd); # URI manipulation # @@ -105,10 +97,11 @@ TODO: { local $TODO = 'GtkFileChooser trouble'; - update; run_main sub { - is ($file_chooser->get_preview_filename, $filename, 'get_preview_filename'); - is ($file_chooser->get_preview_uri, 'file://'.$filename, 'get_preview_uri'); -}; + update; + is_idle (sub {$file_chooser->get_preview_filename}, + $filename, 'get_preview_filename'); + is_idle (sub {$file_chooser->get_preview_uri}, + 'file://'.$filename, 'get_preview_uri'); } # Extra widget @@ -142,14 +135,10 @@ $file_chooser->add_shortcut_folder ($cwd); $file_chooser->add_shortcut_folder_uri ("file://$cwd/t"); - TODO: { - local $TODO = 'GtkFileChooser trouble'; - - update; run_main sub { - is_deeply ([$file_chooser->list_shortcut_folders], [$cwd, "$cwd/t"]); - is_deeply ([$file_chooser->list_shortcut_folder_uris], ["file://$cwd", "file://$cwd/t"]); - }; - } + update; run_main sub { + is_deeply ([$file_chooser->list_shortcut_folders], [$cwd, "$cwd/t"]); + is_deeply ([$file_chooser->list_shortcut_folder_uris], ["file://$cwd", "file://$cwd/t"]); + }; $file_chooser->remove_shortcut_folder ($cwd); $file_chooser->remove_shortcut_folder_uri ("file://$cwd/t"); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/GtkIconView.t new/Gtk2-1.141/t/GtkIconView.t --- old/Gtk2-1.140/t/GtkIconView.t 2006-01-18 20:04:10.000000000 +0100 +++ new/Gtk2-1.141/t/GtkIconView.t 2006-11-19 21:28:59.000000000 +0100 @@ -1,5 +1,5 @@ # -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkIconView.t,v 1.13 2006/01/18 19:04:10 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkIconView.t,v 1.13.4.1 2006/11/19 20:28:59 kaffeetisch Exp $ # ######################### @@ -88,8 +88,12 @@ #$win->show_all; run_main sub { - # this stuff is liable to be flaky, it may require TODO's - my $path = $iview->get_path_at_pos (50, 50); + my $path = $iview->get_path_at_pos (50, 50); + + SKIP: { + skip 'get_path_at_pos (50, 50) returned undef', 29 + unless defined $path; + isa_ok ($path, 'Gtk2::TreePath', '$iview->get_path_at_pos (50, 50)'); is ($iview->path_is_selected ($path), '', @@ -181,6 +185,7 @@ isa_ok ($iview->create_drag_icon ($path), "Gtk2::Gdk::Pixmap"); } + } }; sub create_store diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/GtkRecentChooser.t new/Gtk2-1.141/t/GtkRecentChooser.t --- old/Gtk2-1.140/t/GtkRecentChooser.t 2006-07-13 21:04:11.000000000 +0200 +++ new/Gtk2-1.141/t/GtkRecentChooser.t 2006-11-19 21:28:59.000000000 +0100 @@ -4,7 +4,7 @@ tests => 15, at_least_version => [2, 10, 0, "GtkRecentChooser"]; -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkRecentChooser.t,v 1.2 2006/07/13 19:04:11 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkRecentChooser.t,v 1.2.2.1 2006/11/19 20:28:59 kaffeetisch Exp $ unlink "./test.xbel"; # in case of an aborted run my $manager = Glib::Object::new("Gtk2::RecentManager", filename => "./test.xbel"); @@ -45,6 +45,7 @@ my $uri_one = "file://" . cwd() . "/" . $0; my $uri_two = "file://" . $^X; +$manager -> purge_items(); $manager -> add_item($uri_one); $manager -> add_item($uri_two); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/GtkRecentManager.t new/Gtk2-1.141/t/GtkRecentManager.t --- old/Gtk2-1.140/t/GtkRecentManager.t 2006-07-12 17:14:46.000000000 +0200 +++ new/Gtk2-1.141/t/GtkRecentManager.t 2006-11-19 21:29:00.000000000 +0100 @@ -1,5 +1,5 @@ # -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkRecentManager.t,v 1.4 2006/07/12 09:36:49 ebassi Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkRecentManager.t,v 1.4.2.1 2006/11/19 20:29:00 kaffeetisch Exp $ # ######################### @@ -35,6 +35,9 @@ $manager = Glib::Object::new('Gtk2::RecentManager', filename => './test.xbel'); isa_ok($manager, 'Gtk2::RecentManager'); +# purge existing items. +$manager->purge_items; + # use this silly trick to get a file my $icon_theme = Gtk2::IconTheme->get_default; my $icon_info = $icon_theme->lookup_icon('stock_edit', 24, 'use-builtin'); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/GtkSocket-GtkPlug.t new/Gtk2-1.141/t/GtkSocket-GtkPlug.t --- old/Gtk2-1.140/t/GtkSocket-GtkPlug.t 2004-01-10 05:43:38.000000000 +0100 +++ new/Gtk2-1.141/t/GtkSocket-GtkPlug.t 2006-10-17 21:56:36.000000000 +0200 @@ -1,6 +1,6 @@ ######################### # -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkSocket-GtkPlug.t,v 1.2 2004/01/10 04:43:38 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkSocket-GtkPlug.t,v 1.3 2006/09/10 17:26:53 kaffeetisch Exp $ # ######################### @@ -8,6 +8,11 @@ # ...despite patches that have been around for a long time, no win32 use Gtk2::TestHelper tests => 4, nowin32 => 1; +SKIP: { + +skip "blib can't be found", 4 + unless -d "blib"; + ok( my $win = Gtk2::Window->new ); ok( my $socket = Gtk2::Socket->new ); @@ -64,6 +69,8 @@ ok( waitpid($pid, 0) ); } +} + __END__ Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/t/PangoCairo.t new/Gtk2-1.141/t/PangoCairo.t --- old/Gtk2-1.140/t/PangoCairo.t 2006-08-07 20:36:07.000000000 +0200 +++ new/Gtk2-1.141/t/PangoCairo.t 2006-11-19 21:29:00.000000000 +0100 @@ -6,12 +6,12 @@ if (UNIVERSAL::can("Gtk2::Pango::Cairo::FontMap", "new") && Gtk2::Pango -> CHECK_VERSION(1, 10, 0)) { - plan tests => 10; + plan tests => 13; } else { plan skip_all => "Need Cairo"; } -# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/PangoCairo.t,v 1.4 2006/08/07 18:36:07 kaffeetisch Exp $ +# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/PangoCairo.t,v 1.4.2.2 2006/11/19 20:29:00 kaffeetisch Exp $ my $fontmap = Gtk2::Pango::Cairo::FontMap -> new(); isa_ok($fontmap, "Gtk2::Pango::Cairo::FontMap"); @@ -37,12 +37,26 @@ my $options = Cairo::FontOptions -> create(); -Gtk2::Pango::Cairo::Context::set_font_options($context, $options); -isa_ok(Gtk2::Pango::Cairo::Context::get_font_options($context), - "Cairo::FontOptions"); +# Function interface +{ + Gtk2::Pango::Cairo::Context::set_font_options($context, $options); + isa_ok(Gtk2::Pango::Cairo::Context::get_font_options($context), + "Cairo::FontOptions"); -Gtk2::Pango::Cairo::Context::set_resolution($context, 72); -is(Gtk2::Pango::Cairo::Context::get_resolution($context), 72); + Gtk2::Pango::Cairo::Context::set_resolution($context, 72); + is(Gtk2::Pango::Cairo::Context::get_resolution($context), 72); +} + +# Method interface +{ + isa_ok($context, "Gtk2::Pango::Cairo::Context"); + + $context -> set_font_options($options); + isa_ok($context -> get_font_options(), "Cairo::FontOptions"); + + $context -> set_resolution(72); + is($context -> get_resolution(), 72); +} my $layout = Gtk2::Pango::Cairo::create_layout($cr); isa_ok($layout, "Gtk2::Pango::Layout"); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/xs/GtkEntry.xs new/Gtk2-1.141/xs/GtkEntry.xs --- old/Gtk2-1.140/xs/GtkEntry.xs 2006-08-07 20:36:09.000000000 +0200 +++ new/Gtk2-1.141/xs/GtkEntry.xs 2006-11-08 19:42:39.000000000 +0100 @@ -16,7 +16,7 @@ * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307 USA. * - * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkEntry.xs,v 1.16 2006/08/07 18:36:09 kaffeetisch Exp $ + * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkEntry.xs,v 1.16.2.1 2006/11/08 18:42:39 kaffeetisch Exp $ */ #include "gtk2perl.h" @@ -183,9 +183,9 @@ #if GTK_CHECK_VERSION(2,4,0) -void gtk_entry_set_completion (GtkEntry *entry, GtkEntryCompletion *completion); +void gtk_entry_set_completion (GtkEntry *entry, GtkEntryCompletion_ornull *completion); -GtkEntryCompletion *gtk_entry_get_completion (GtkEntry *entry); +GtkEntryCompletion_ornull *gtk_entry_get_completion (GtkEntry *entry); #endif diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/xs/GtkSelection.xs new/Gtk2-1.141/xs/GtkSelection.xs --- old/Gtk2-1.140/xs/GtkSelection.xs 2006-08-07 20:36:10.000000000 +0200 +++ new/Gtk2-1.141/xs/GtkSelection.xs 2006-10-17 21:56:37.000000000 +0200 @@ -16,7 +16,7 @@ * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307 USA. * - * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkSelection.xs,v 1.28 2006/08/07 18:36:10 kaffeetisch Exp $ + * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkSelection.xs,v 1.29 2006/10/03 15:49:15 kaffeetisch Exp $ */ #include "gtk2perl.h" @@ -337,6 +337,9 @@ MODULE = Gtk2::Selection PACKAGE = Gtk2 PREFIX = gtk_ +=for object Gtk2::Selection +=cut + gboolean gtk_targets_include_text (class, first_target_atom, ...) ALIAS: targets_include_uri = 1 diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/xs/PangoCairo.xs new/Gtk2-1.141/xs/PangoCairo.xs --- old/Gtk2-1.140/xs/PangoCairo.xs 2006-08-07 20:36:11.000000000 +0200 +++ new/Gtk2-1.141/xs/PangoCairo.xs 2006-11-19 21:00:47.000000000 +0100 @@ -3,7 +3,7 @@ * * Licensed under the LGPL, see LICENSE file for more information. * - * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/PangoCairo.xs,v 1.4 2006/08/07 18:36:11 kaffeetisch Exp $ + * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/PangoCairo.xs,v 1.4.2.1 2006/11/19 20:00:47 kaffeetisch Exp $ */ #include "gtk2perl.h" @@ -48,42 +48,85 @@ double pango_cairo_font_map_get_resolution (PangoCairoFontMap *fontmap); -PangoContext *pango_cairo_font_map_create_context (PangoCairoFontMap *fontmap); +# PangoContext *pango_cairo_font_map_create_context (PangoCairoFontMap *fontmap); +SV * +pango_cairo_font_map_create_context (PangoCairoFontMap *fontmap) + PREINIT: + PangoContext *context; + HV *stash; + CODE: + context = pango_cairo_font_map_create_context (fontmap); + if (!context) + XSRETURN_UNDEF; + RETVAL = newSVPangoContext (context); + stash = gv_stashpv ("Gtk2::Pango::Cairo::Context", TRUE); + sv_bless (RETVAL, stash); + OUTPUT: + RETVAL # --------------------------------------------------------------------------- # MODULE = Gtk2::Pango::Cairo PACKAGE = Gtk2::Pango::Cairo PREFIX = pango_cairo_ +=for position DESCRIPTION +I<Gtk2::Pango::Cairo> contains a few functions that help integrate pango and +cairo. Since they aren't methods of a particular object, they are bound as +plain functions. +=cut + +=for apidoc __function__ +=cut void pango_cairo_update_context (cairo_t *cr, PangoContext *context); +=for apidoc __function__ +=cut PangoLayout *pango_cairo_create_layout (cairo_t *cr); +=for apidoc __function__ +=cut void pango_cairo_update_layout (cairo_t *cr, PangoLayout *layout); +=for apidoc __function__ +=cut void pango_cairo_show_glyph_string (cairo_t *cr, PangoFont *font, PangoGlyphString *glyphs); # FIXME: Need PangoLayoutLine support. # void pango_cairo_show_layout_line (cairo_t *cr, PangoLayoutLine *line); +=for apidoc __function__ +=cut void pango_cairo_show_layout (cairo_t *cr, PangoLayout *layout); +=for apidoc __function__ +=cut void pango_cairo_glyph_string_path (cairo_t *cr, PangoFont *font, PangoGlyphString *glyphs); # FIXME: Need PangoLayoutLine support. # void pango_cairo_layout_line_path (cairo_t *cr, PangoLayoutLine *line); +=for apidoc __function__ +=cut void pango_cairo_layout_path (cairo_t *cr, PangoLayout *layout); #if PANGO_CHECK_VERSION (1, 14, 0) +=for apidoc __function__ +=cut void pango_cairo_show_error_underline (cairo_t *cr, double x, double y, double width, double height); +=for apidoc __function__ +=cut void pango_cairo_error_underline_path (cairo_t *cr, double x, double y, double width, double height); #endif +# --------------------------------------------------------------------------- # + MODULE = Gtk2::Pango::Cairo PACKAGE = Gtk2::Pango::Cairo::Context PREFIX = pango_cairo_context_ +BOOT: + gperl_set_isa ("Gtk2::Pango::Cairo::Context", "Gtk2::Pango::Context"); + void pango_cairo_context_set_font_options (PangoContext *context, const cairo_font_options_t *options); # const cairo_font_options_t *pango_cairo_context_get_font_options (PangoContext *context); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.140/xs/PangoTypes.xs new/Gtk2-1.141/xs/PangoTypes.xs --- old/Gtk2-1.140/xs/PangoTypes.xs 2004-10-30 19:13:23.000000000 +0200 +++ new/Gtk2-1.141/xs/PangoTypes.xs 2006-10-17 21:58:46.000000000 +0200 @@ -16,7 +16,7 @@ * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307 USA. * - * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/PangoTypes.xs,v 1.5 2004/10/30 17:13:23 kaffeetisch Exp $ + * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/PangoTypes.xs,v 1.6 2006/10/03 15:49:15 kaffeetisch Exp $ */ #include "gtk2perl.h" @@ -25,6 +25,9 @@ #if PANGO_CHECK_VERSION (1, 4, 0) +=for object Gtk2::Pango::Language +=cut + ## PangoDirection pango_find_base_dir (const gchar *text, gint length) PangoDirection pango_find_base_dir (class, text) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org
participants (1)
-
root＠suse.de