Hello community,
here is the log from the commit of package perl-Gtk2
checked in at Fri Jan 18 00:10:04 CET 2008.
--------
--- perl-Gtk2/perl-Gtk2.changes 2007-11-21 11:14:14.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-Gtk2/perl-Gtk2.changes 2008-01-15 15:36:23.000000000 +0100
@@ -1,0 +2,15 @@
+Tue Jan 15 15:34:11 CET 2008 - anicka@suse.cz
+
+- update to 1.164
+ * xs/PangoLayout.xs: Work around what appears to be a bug in
+ ExtUtils::ParseXS' xsubpp (used by default in perl 5.10.0) for
+ the pango_layout_line_x_to_index xsub: manually handle output
+ arguments, i.e. dont't rely on OUTLIST. This should fix the
+ "Modification of a read-only value attempted" issue.
+ * xs/GdkPixbuf.xs: Fix the signature docs for get_file_info(),
+ suggested by Kevin Ryde. Also add a brief description of the
+ function.
+ * t/GtkIconTheme.t (list_contexts test): Fix test failure.
+ * bugfixes, test fixes
+
+-------------------------------------------------------------------
Old:
----
Gtk2-1.162.tar.bz2
perl-Gtk2-1.162-tests.diff
New:
----
Gtk2-1.164.tar.bz2
perl-Gtk2-1.164-tests.diff
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Gtk2.spec ++++++
--- /var/tmp/diff_new_pack.D10591/_old 2008-01-18 00:08:29.000000000 +0100
+++ /var/tmp/diff_new_pack.D10591/_new 2008-01-18 00:08:29.000000000 +0100
@@ -1,7 +1,7 @@
#
-# spec file for package perl-Gtk2 (Version 1.162)
+# spec file for package perl-Gtk2 (Version 1.164)
#
-# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
# package are under the same license as the package itself.
#
@@ -12,7 +12,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.162
+Version: 1.164
Release: 1
Requires: perl = %{perl_version}
Requires: perl-Glib perl-Cairo
@@ -22,7 +22,7 @@
Url: http://cpan.org/modules/by-module/Gtk2/
Summary: Gtk2 Perl module
Source: Gtk2-%{version}.tar.bz2
-Patch: perl-Gtk2-%{version}-tests.diff
+Patch: %{name}-%{version}-tests.diff
BuildRoot: %{_tmppath}/%{name}-%{version}-build
%description
@@ -81,15 +81,27 @@
/var/adm/perl-modules/%{name}
%changelog
-* Wed Nov 21 2007 - anicka@suse.cz
+* Tue Jan 15 2008 anicka@suse.cz
+- update to 1.164
+ * xs/PangoLayout.xs: Work around what appears to be a bug in
+ ExtUtils::ParseXS' xsubpp (used by default in perl 5.10.0) for
+ the pango_layout_line_x_to_index xsub: manually handle output
+ arguments, i.e. dont't rely on OUTLIST. This should fix the
+ "Modification of a read-only value attempted" issue.
+ * xs/GdkPixbuf.xs: Fix the signature docs for get_file_info(),
+ suggested by Kevin Ryde. Also add a brief description of the
+ function.
+ * t/GtkIconTheme.t (list_contexts test): Fix test failure.
+ * bugfixes, test fixes
+* Wed Nov 21 2007 anicka@suse.cz
- update to 1.162
* Gtk2.pm (Gtk2::Builder::_do_connect): Don't use the qw//
operator to qoute a flag value as it seems to cause parse
failures on some perls.
-* Fri Nov 09 2007 - anicka@suse.cz
+* Fri Nov 09 2007 anicka@suse.cz
- update to 1.161
* bugfixes, test fixes
-* Thu Oct 25 2007 - anicka@suse.cz
+* Thu Oct 25 2007 anicka@suse.cz
- update to 1.160
* xs/GtkStatusIcon.xs: Make the x, y arguments to
Gtk2::StatusIcon::position_menu optional.
@@ -108,12 +120,12 @@
render_pixmap_and_mask_for_colormap().
* bugfixes, test fixes
- temporarily disable GdkKeys.t to avoid failing builds
-* Tue Aug 21 2007 - ro@suse.de
+* Tue Aug 21 2007 ro@suse.de
- update to 1.146 to fix test failures
-* Thu Jul 12 2007 - anicka@suse.cz
+* Thu Jul 12 2007 anicka@suse.cz
- temporarily disable some tests failing with gtk2 2.11.5
(they seem to be wrong anyway)
-* Mon Jul 09 2007 - anicka@suse.cz
+* Mon Jul 09 2007 anicka@suse.cz
- update to 1.145
* xs/GtkAboutDialog.xs: Hide the AboutDialog on any reponse.
* xs/GdkPixbuf.xs: Plug reference leaks on the pixmap and bitmap
@@ -126,15 +138,15 @@
for the position parameter.
* test fixes
- remove last patch (fixed in upstream)
-* Mon Jul 02 2007 - jw@suse.de
+* Mon Jul 02 2007 jw@suse.de
- added gtk-demo next to examples.
-* Thu Jun 21 2007 - anicka@suse.cz
+* Thu Jun 21 2007 anicka@suse.cz
- disable one wrong test in GtkIconTheme.t
-* Wed Mar 14 2007 - anicka@suse.cz
+* Wed Mar 14 2007 anicka@suse.cz
- update to 1.144
* t/GtkEditable.t, xs/GtkEditbale.xs: fix string encoding problems
in the insert-text signal marshaller.
-* Mon Feb 26 2007 - anicka@suse.cz
+* Mon Feb 26 2007 anicka@suse.cz
- update to 1.143
* Gtk2.pm, t/GtkTreeModelSort.t, xs/GtkTreeModelSort.xs: Make
sure calling get() on a Gtk2::TreeModelSort resolves to
@@ -144,7 +156,7 @@
paste error that made
gtk_tree_model_sort_convert_child_iter_to_iter() unusable.
- enable one test fixed in upstream
-* Thu Jan 25 2007 - anicka@suse.cz
+* Thu Jan 25 2007 anicka@suse.cz
- update to 1.142
* t/GtkIconView.t, xs/GtkIconView.xs: Fix the path handling in
Gtk2::IconView::get_selected_items. Previously, the returned
@@ -157,40 +169,40 @@
* GtkTreeSortable.xs: Don't segfault in the GET_SORT_COLUMN_ID
marshaller if any of the output parameter pointers is NULL.
- enable test fixed in upstream
-* Thu Dec 21 2006 - anicka@suse.cz
+* 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
+* Sat Sep 16 2006 anicka@suse.de
- disable GtkIconView.t because it hangs on ppc64 machines
(#206001)
-* Wed Sep 13 2006 - anicka@suse.cz
+* Wed Sep 13 2006 anicka@suse.cz
- add xorg-x11-Xvfb, xorg-x11, xorg-x11-server to BuildRequires
- disable some tests that randomly fail
-* Tue Sep 12 2006 - anicka@suse.cz
+* Tue Sep 12 2006 anicka@suse.cz
- update to 1.140
* Don't call Gtk2::Gdk::Threads::init on a non-threading perl.
* added support for more GTK objects
* require Cairo.pm
* bugfixes, new testsuites
-* Fri Aug 18 2006 - aj@suse.de
+* Fri Aug 18 2006 aj@suse.de
- Reduce BuildRequires.
-* Fri Jul 21 2006 - anicka@suse.cz
+* Fri Jul 21 2006 anicka@suse.cz
- update to 1.122
* bugfixes and fixes to tests added
-* Wed Jan 25 2006 - mls@suse.de
+* Wed Jan 25 2006 mls@suse.de
- converted neededforbuild to BuildRequires
-* Wed Jan 04 2006 - anicka@suse.cz
+* Wed Jan 04 2006 anicka@suse.cz
- update to 1.102
-* Fri Nov 11 2005 - anicka@suse.cz
+* Fri Nov 11 2005 anicka@suse.cz
- update to 1.101
-* Mon Aug 01 2005 - mjancar@suse.cz
+* Mon Aug 01 2005 mjancar@suse.cz
- update to 1.083
-* Thu Jul 21 2005 - anicka@suse.cz
+* Thu Jul 21 2005 anicka@suse.cz
- add perl-Glib to Requires (#95905)
-* Fri Jan 21 2005 - ro@suse.de
+* Fri Jan 21 2005 ro@suse.de
- update to 1.072
-* Tue Nov 02 2004 - mcihar@suse.cz
+* Tue Nov 02 2004 mcihar@suse.cz
- initial packaging
++++++ Gtk2-1.162.tar.bz2 -> Gtk2-1.164.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/AUTHORS new/Gtk2-1.164/AUTHORS
--- old/Gtk2-1.162/AUTHORS 2007-10-14 21:36:38.000000000 +0200
+++ new/Gtk2-1.164/AUTHORS 2007-12-08 17:00:13.000000000 +0100
@@ -31,6 +31,7 @@
Daniel Kasak dkasak at nusconsulting dot com dot au
Grant McLean grant at mclean dot net dot nz
Philipp Rumpf prumpf at gmail dot com
+Kevin Ryde user42 zip com au
several important bits of gtk2-perl were heavily inspired by pygtk, gtk-perl,
and a good read-through of the gtk+ source code, so credit goes to those guys
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/ChangeLog new/Gtk2-1.164/ChangeLog
--- old/Gtk2-1.162/ChangeLog 2007-11-10 14:21:37.000000000 +0100
+++ new/Gtk2-1.164/ChangeLog 2008-01-09 22:08:33.000000000 +0100
@@ -1,3 +1,121 @@
+2008-01-09 Torsten Schoenfeld
+
+ * Gtk2.pm
+ * NEWS
+ * README: Stable release 1.164.
+
+2008-01-09 Torsten Schoenfeld
+
+ Merge from HEAD:
+
+ * t/GdkVisual.t
+ * t/GdkX11.t
+ * t/GtkPaned.t: Fix some reported test failures by either being
+ less conservative in what we expect or by simply testing less of
+ gtk+ itself.
+
+ * t/GdkCairo.t: Improve skip message on GdkCairo.t; don't claim
+ Cairo is missing when the problem is actually an empty DISPLAY.
+
+2008-01-08 Torsten Schoenfeld
+
+ Merge from HEAD:
+
+ * xs/PangoLayout.xs: Work around what appears to be a bug in
+ ExtUtils::ParseXS' xsubpp (used by default in perl 5.10.0) for the
+ pango_layout_line_x_to_index xsub: manually handle output
+ arguments, i.e. dont't rely on OUTLIST. This should fix the
+ "Modification of a read-only value attempted" issue.
+
+ * Gtk2.pm
+ * Makefile.PL: Require Cairo if gtk+ >= 2.8 or pango >= 1.10.
+ Previously, we just checked for gtk+ >= 2.8. A new pango usually
+ implies a new gtk+, but that's not necessarily the case. So check
+ both independently and require Cairo if either is new enough.
+
+ * Makefile.PL
+ * README: Require Glib 1.163.
+
+2008-01-07 Torsten Schoenfeld
+
+ * Gtk2.pm
+ * NEWS
+ * README: Stable release 1.163.
+
+2008-01-07 Torsten Schoenfeld
+
+ Merge from HEAD:
+
+ * xs/GtkWidget.xs: Doc fixes; the docs on
+ gtk_widget_get_size_request() actually belonged on
+ gtk_widget_size_request(). Swap that and add docs for
+ get_size_request() and get_child_requisition(), copied
+ from gtk+. Also fix the signature for get_size_request(),
+ as suggested by Kevin Ryde.
+
+ * xs/GdkPixbuf.xs: Fix the signature docs for get_file_info(),
+ suggested by Kevin Ryde. Also add a brief description of the
+ function.
+
+2007-12-30 Torsten Schoenfeld
+
+ Merge from HEAD:
+
+ * xs/PangoCairo.xs (gtk2perl_pango_cairo_shape_renderer_func): Put
+ dGPERL_CALLBACK_MARSHAL_SP at the end of the list of declarations
+ to avoid a compilation failure on Win32.
+
+2007-12-16 Torsten Schoenfeld
+
+ Merge from HEAD:
+
+ * t/GtkIconTheme.t (list_contexts test): Fix test failure.
+
+ * tools/genkeysyms.pl: Fix the SYNOPSIS example (from Debian
+ bug #422223).
+
+ * tools/genkeysyms.pl: Mention Gtk2::Gdk->keyval_from_name in the
+ DESCRIPTION section of Gtk2::Gdk::Keysyms, as suggested by Kevin
+ Ryde.
+
+ * xs/Gtk2.xs: gtk_check_version's return value recently acquired a
+ const, so add some casting to hush compiler warnings.
+
+ * xs/GtkMessageDialog.xs (SYNOPSIS): Add a show_all() call to the
+ non-modal dialog example. (Spotted by Dave Howorth)
+
+ * xs/GtkTreeModel.xs (POD section DESCRIPTION): Include additional
+ information provided by Dave Howorth about the lifetime of
+ iterators.
+
+ * xs/GdkDisplay.xs
+ * xs/GdkWindow.xs
+ * xs/GtkBox.xs
+ * xs/GtkIconView.xs
+ * xs/GtkImage.xs
+ * xs/GtkNotebook.xs
+ * xs/GtkScrolledWindow.xs
+ * xs/PangoTabs.xs: Fix memory leaks that were due to the use of
+ OUTLIST for types which have typemaps that create a new SV rather
+ than overwrite an existing one -- i.e. nearly all non-standard
+ types and even some standard types like bool. The following
+ functions' xsubs were affected: gdk_display_get_pointer,
+ gdk_window_get_decorations, gdk_window_get_internal_paint_info,
+ gtk_box_query_child_packing, gtk_icon_view_get_drag_dest_item,
+ gtk_image_get_pixmap, gtk_image_get_image, gtk_image_get_icon_set,
+ gtk_image_get_icon_name, gtk_notebook_query_tab_label_packing,
+ gtk_scrolled_window_get_policy, pango_tab_array_get_tab. (Fixes
+ bug #498334, reported by Quentin Sculo)
+
+2007-12-08 Torsten Schoenfeld
+
+ Merge from HEAD:
+
+ * xs/GtkDialog.xs: Correct the response id mentioned in the docs
+ on delete-event. (Patch by Kevin Ryde)
+
+ * AUTHORS: Add Kevin.
+
2007-11-10 Torsten Schoenfeld
* Gtk2.pm
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/Gtk2.pm new/Gtk2-1.164/Gtk2.pm
--- old/Gtk2-1.162/Gtk2.pm 2007-11-10 14:21:56.000000000 +0100
+++ new/Gtk2-1.164/Gtk2.pm 2008-01-09 22:08:55.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.110.2.3 2007/11/10 13:21:56 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Gtk2.pm,v 1.110.2.6 2008/01/09 21:08:55 kaffeetisch Exp $
#
package Gtk2;
@@ -29,13 +29,14 @@
use Glib;
-# if the gtk+ we've been compiled against is at least as new as 2.8.0, we need
-# to import the Cairo module for the cairo glue in gtk+ and pango.
+# if the gtk+ we've been compiled against is at 2.8.0 or newer or if pango is
+# at 1.10.0 or newer, we need to import the Cairo module for the cairo glue in
+# gtk+ and pango.
eval "use Cairo;";
require DynaLoader;
-our $VERSION = '1.162';
+our $VERSION = '1.164';
our @ISA = qw(DynaLoader);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/Makefile.PL new/Gtk2-1.164/Makefile.PL
--- old/Gtk2-1.162/Makefile.PL 2007-10-14 21:46:20.000000000 +0200
+++ new/Gtk2-1.164/Makefile.PL 2008-01-09 22:06:25.000000000 +0100
@@ -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.133.2.1 2007/10/14 19:46:20 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Makefile.PL,v 1.133.2.2 2008/01/08 20:03:21 kaffeetisch Exp $
#
BEGIN { require 5.008; }
@@ -33,7 +33,7 @@
our %build_reqs = (
'perl-ExtUtils-Depends' => '0.2',
'perl-ExtUtils-PkgConfig' => '1.03',
- 'perl-Glib' => '1.160',
+ 'perl-Glib' => '1.163',
'perl-Cairo' => '1.00',
'Gtk+' => '2.0.0',
);
@@ -92,9 +92,10 @@
push @xs_files, 'xs/GdkX11.xs';
}
-# if gtk+ >= 2.8, we depend on Cairo
+# if gtk+ >= 2.8 or pango >= 1.10, we depend on Cairo
my $have_cairo = 0;
-if ($gtk_version[0] > 2 || ($gtk_version[0] == 2 && $gtk_version[1] >= 8)) {
+if (($gtk_version[0] > 2 || ($gtk_version[0] == 2 && $gtk_version[1] >= 8)) ||
+ ($pango_version[0] > 1 || ($pango_version[0] == 1 && $pango_version[1] >= 10))) {
$PREREQ_PM{Cairo} = $build_reqs{'perl-Cairo'};
unless (eval "use Cairo '$build_reqs{'perl-Cairo'}'; 1;") {
warn "$@\n";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/META.yml new/Gtk2-1.164/META.yml
--- old/Gtk2-1.162/META.yml 2007-11-10 14:31:26.000000000 +0100
+++ new/Gtk2-1.164/META.yml 2008-01-09 22:19:29.000000000 +0100
@@ -1,15 +1,16 @@
--- #YAML:1.0
name: Gtk2
-version: 1.162
+version: 1.164
abstract: Perl interface to the 2.x series of the Gimp Toolkit library
license: ~
-generated_by: ExtUtils::MakeMaker version 6.36
+author: ~
+generated_by: ExtUtils::MakeMaker version 6.42
distribution_type: module
requires:
Cairo: 1.00
ExtUtils::Depends: 0.2
ExtUtils::PkgConfig: 1.03
- Glib: 1.160
+ Glib: 1.163
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/NEWS new/Gtk2-1.164/NEWS
--- old/Gtk2-1.162/NEWS 2007-11-10 14:08:47.000000000 +0100
+++ new/Gtk2-1.164/NEWS 2008-01-09 22:08:04.000000000 +0100
@@ -1,3 +1,15 @@
+Overview of changes in Gtk2 1.164
+=================================
+
+* Fix build and test suite issues.
+
+Overview of changes in Gtk2 1.163
+=================================
+
+* Improve the documentation in many places.
+* Fix many small memory leaks.
+* Fix a few build and test suite issues.
+
Overview of changes in Gtk2 1.162
=================================
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/README new/Gtk2-1.164/README
--- old/Gtk2-1.162/README 2007-11-10 14:21:56.000000000 +0100
+++ new/Gtk2-1.164/README 2008-01-09 22:08:55.000000000 +0100
@@ -1,4 +1,4 @@
-Gtk2 version 1.162
+Gtk2 version 1.164
==================
Perl bindings to the 2.x series of the Gtk+ graphical user interface library.
@@ -61,7 +61,7 @@
This module requires these other modules and libraries:
perl >= 5.8.0
- Glib >= 1.160 (Perl module)
+ Glib >= 1.163 (Perl module)
GTK+ > 2.x (C library)
If GTK+ is as new or newer as 2.8, the Cairo module is also required:
@@ -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.84.2.2 2007/11/10 13:21:56 kaffeetisch Exp $
+# $Id: README,v 1.84.2.5 2008/01/09 21:08:55 kaffeetisch Exp $
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/t/GdkCairo.t new/Gtk2-1.164/t/GdkCairo.t
--- old/Gtk2-1.162/t/GdkCairo.t 2006-10-17 21:58:44.000000000 +0200
+++ new/Gtk2-1.164/t/GdkCairo.t 2008-01-09 21:36:29.000000000 +0100
@@ -5,15 +5,16 @@
use Gtk2;
use Test::More;
-if (UNIVERSAL::can("Gtk2::Gdk::Cairo::Context", "create") &&
- Gtk2 -> CHECK_VERSION(2, 8, 0) &&
- Gtk2->init_check ) {
- plan tests => 2;
-} else {
+if (! (UNIVERSAL::can("Gtk2::Gdk::Cairo::Context", "create") &&
+ Gtk2 -> CHECK_VERSION(2, 8, 0))) {
plan skip_all => "Need Cairo";
+} elsif (! Gtk2->init_check) {
+ plan skip_all => "Gtk2->init_check failed, probably unable to open DISPLAY";
+} else {
+ plan tests => 2;
}
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkCairo.t,v 1.4 2006/08/07 18:36:02 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkCairo.t,v 1.4.4.1 2008/01/09 20:36:29 kaffeetisch Exp $
my $window = Gtk2::Window -> new();
$window -> realize();
@@ -48,5 +49,5 @@
__END__
-Copyright (C) 2005-2006 by the gtk2-perl team (see the file AUTHORS for the
+Copyright (C) 2005-2008 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/t/GdkVisual.t new/Gtk2-1.164/t/GdkVisual.t
--- old/Gtk2-1.162/t/GdkVisual.t 2007-10-14 21:36:39.000000000 +0200
+++ new/Gtk2-1.164/t/GdkVisual.t 2008-01-09 21:29:48.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.3 2006/11/19 20:27:54 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkVisual.t,v 1.3.2.1 2008/01/09 20:29:48 kaffeetisch Exp $
my @depths = Gtk2::Gdk -> query_depths();
like($depths[0], qr/^\d+$/);
@@ -19,9 +19,14 @@
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");
-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: {
+ my $best = Gtk2::Gdk::Visual -> get_best_with_both($depths[0], $types[1]);
+ if (defined $best) {
+ isa_ok($best, "Gtk2::Gdk::Visual");
+ }
+ else {
+ ok(TRUE);
+ }
}
SKIP: {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/t/GdkX11.t new/Gtk2-1.164/t/GdkX11.t
--- old/Gtk2-1.162/t/GdkX11.t 2007-10-14 21:36:39.000000000 +0200
+++ new/Gtk2-1.164/t/GdkX11.t 2008-01-09 21:29:48.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
use Gtk2::TestHelper tests => 11;
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkX11.t,v 1.9 2007/09/15 14:32:59 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkX11.t,v 1.9.2.1 2008/01/09 20:29:48 kaffeetisch Exp $
my $window = Gtk2::Window -> new();
$window -> realize();
@@ -66,8 +66,8 @@
unless Gtk2->CHECK_VERSION(2, 12, 0);
my $display = Gtk2::Gdk::Display -> get_default();
-
- is($display -> get_startup_notification_id(), $ENV{DESKTOP_STARTUP_ID});
+ my $startup_id = $display -> get_startup_notification_id();
+ ok(TRUE); # $startup_id might be undef, so we can't really test
}
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/t/GtkIconTheme.t new/Gtk2-1.164/t/GtkIconTheme.t
--- old/Gtk2-1.162/t/GtkIconTheme.t 2007-10-14 21:36:39.000000000 +0200
+++ new/Gtk2-1.164/t/GtkIconTheme.t 2007-12-16 19:57:30.000000000 +0100
@@ -1,10 +1,11 @@
+#!/usr/bin/perl
#
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkIconTheme.t,v 1.18 2007/09/15 14:32:59 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkIconTheme.t,v 1.18.2.1 2007/12/16 18:57:30 kaffeetisch Exp $
#
use Gtk2::TestHelper
at_least_version => [2, 4, 0, 'GtkIconTheme is new in 2.4'],
- tests => 17;
+ tests => 16;
my $icon_theme = Gtk2::IconTheme->new;
isa_ok ($icon_theme, 'Gtk2::IconTheme');
@@ -61,10 +62,11 @@
}
SKIP: {
- skip 'new 2.12 stuff', 2
+ skip 'new 2.12 stuff', 1
unless Gtk2->CHECK_VERSION (2, 12, 0);
- ok (defined $icon_theme->list_contexts);
+ my @contexts = $icon_theme->list_contexts;
+ # @contexts might be undef and can contain anything
my $info = $icon_theme->choose_icon (['gtk-bla', 'gtk-cancel'], 24, 'use-builtin');
isa_ok ($info, 'Gtk2::IconInfo');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/t/GtkPaned.t new/Gtk2-1.164/t/GtkPaned.t
--- old/Gtk2-1.162/t/GtkPaned.t 2007-10-14 21:46:22.000000000 +0200
+++ new/Gtk2-1.164/t/GtkPaned.t 2008-01-09 21:29:48.000000000 +0100
@@ -1,7 +1,7 @@
+#!/usr/bin/perl
+use Gtk2::TestHelper tests => 9;
-use Gtk2::TestHelper tests => 59;
-
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkPaned.t,v 1.8.8.1 2007/10/14 19:46:22 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkPaned.t,v 1.8.8.2 2008/01/09 20:29:48 kaffeetisch Exp $
my $window = Gtk2::Window->new;
my $hpaned = Gtk2::HPaned->new;
@@ -15,7 +15,6 @@
$vframe1->modify_bg ('normal', Gtk2::Gdk::Color->parse ('green'));
$vframe2->modify_bg ('normal', Gtk2::Gdk::Color->parse ('blue'));
-
$window->add ($hpaned);
$hpaned->add ($hframe);
@@ -38,6 +37,22 @@
$vpaned->set_position (23);
is ($vpaned->get_position, 23);
+ok (defined $hpaned->child1_resize);
+ok (defined $hpaned->child2_resize);
+ok (defined $vpaned->child1_shrink);
+ok (defined $vpaned->child2_shrink);
+
+$hpaned->child1_resize (23);
+$hpaned->child2_resize (42);
+$vpaned->child1_shrink (23);
+$vpaned->child2_shrink (42);
+
+$hpaned->compute_position (23, 10, 10);
+
+__END__
+
+# The following 50 tests are disabled because they proved unreliable.
+
print "hpaned 1 -> ".$hpaned->child1_resize."\n";
print "hpaned 2 -> ".$hpaned->child2_resize."\n";
print "vpaned 1 -> ".$vpaned->child1_resize."\n";
@@ -97,10 +112,6 @@
$this = shift @framesizes;
if ($i++) {
- SKIP: {
- skip 'unreliable paned verifications', 6
- if Gtk2->CHECK_VERSION (2, 2, 0);
-
# don't validate the first wave -- the window probably
# hasn't had time to get properly sized.
($w, $h) = sizeof ($hframe);
@@ -119,7 +130,6 @@
push @foo, $w, $h;
print join(" ", "[", @foo, "]\n");
}
- }
$this = shift @windowprops;
if ($this) {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/tools/genkeysyms.pl new/Gtk2-1.164/tools/genkeysyms.pl
--- old/Gtk2-1.162/tools/genkeysyms.pl 2007-10-14 21:40:27.000000000 +0200
+++ new/Gtk2-1.164/tools/genkeysyms.pl 2007-12-16 19:50:21.000000000 +0100
@@ -44,15 +44,17 @@
if ($event->keyval == $Gtk2::Gdk::Keysyms{Escape}) {
abort_whatever ();
return 1;
+ }
elsif ($event->keyval == $Gtk2::Gdk::Keysyms{F1}) {
do_help_thing ();
return 1;
+ }
elsif ($event->keyval == $Gtk2::Gdk::Keysyms{KP_Enter}) {
execute_selected_text_as_command ();
return 1;
}
# we didn't handle it, pass it on...
- return 0;
+ return 0;
}
=head1 DESCRIPTION
@@ -66,7 +68,9 @@
trying to write an easter egg, or whatever.
As the list of keycodes is quite large and rather rarely used in application
-code, we've put it in a separately-loaded module to save space.
+code, we've put it in a separately-loaded module to save space. As an
+alternative, you might want to investigate LGtk2::Gdk-keyval_from_name> which
+offers basically the same functionality as the hash.
To get a list of all available keys, either dump C<%Gtk2::Gdk::Keysyms>, or
look at the source of this module with C.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GdkDisplay.xs new/Gtk2-1.164/xs/GdkDisplay.xs
--- old/Gtk2-1.162/xs/GdkDisplay.xs 2007-10-14 21:36:40.000000000 +0200
+++ new/Gtk2-1.164/xs/GdkDisplay.xs 2007-12-16 19:57:31.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/GdkDisplay.xs,v 1.17 2007/09/15 14:33:01 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GdkDisplay.xs,v 1.17.2.1 2007/12/16 18:57:31 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -107,7 +107,19 @@
GdkDisplay *display
## void gdk_display_get_pointer (GdkDisplay *display, GdkScreen **screen, gint *x, gint *y, GdkModifierType *mask)
-void gdk_display_get_pointer (GdkDisplay *display, OUTLIST GdkScreen *screen, OUTLIST gint x, OUTLIST gint y, OUTLIST GdkModifierType mask)
+void gdk_display_get_pointer (GdkDisplay *display)
+ PREINIT:
+ GdkScreen *screen = NULL;
+ gint x;
+ gint y;
+ GdkModifierType mask;
+ PPCODE:
+ gdk_display_get_pointer (display, &screen, &x, &y, &mask);
+ EXTEND (SP, 4);
+ PUSHs (sv_2mortal (newSVGdkScreen (screen)));
+ PUSHs (sv_2mortal (newSViv (x)));
+ PUSHs (sv_2mortal (newSViv (y)));
+ PUSHs (sv_2mortal (newSVGdkModifierType (mask)));
## GdkWindow * gdk_display_get_window_at_pointer (GdkDisplay *display, gint *win_x, gint *win_y)
###GdkWindow * gdk_display_get_window_at_pointer (GdkDisplay *display, OUTLIST gint win_x, OUTLIST gint win_y)
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GdkPixbuf.xs new/Gtk2-1.164/xs/GdkPixbuf.xs
--- old/Gtk2-1.162/xs/GdkPixbuf.xs 2007-10-14 21:36:40.000000000 +0200
+++ new/Gtk2-1.164/xs/GdkPixbuf.xs 2008-01-07 21:49:29.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/GdkPixbuf.xs,v 1.42 2007/08/13 19:10:55 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GdkPixbuf.xs,v 1.42.2.1 2008/01/07 20:49:29 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -954,6 +954,13 @@
#if GTK_CHECK_VERSION(2,4,0)
### GdkPixbufFormat *gdk_pixbuf_get_file_info (const gchar *filename, gint *width, gint *height)
+=for apidoc
+=for signature (format, width, height) = $pixbuf->get_file_info ($filename)
+
+Parses enough of I<$filename> to determine and return the format and size.
+If the format is unknown or the file can't be opened, returns an empty list.
+
+=cut
void gdk_pixbuf_get_file_info (class, filename)
GPerlFilename filename
PREINIT:
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GdkWindow.xs new/Gtk2-1.164/xs/GdkWindow.xs
--- old/Gtk2-1.162/xs/GdkWindow.xs 2007-10-14 21:36:40.000000000 +0200
+++ new/Gtk2-1.164/xs/GdkWindow.xs 2007-12-16 19:57:31.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/GdkWindow.xs,v 1.48 2007/09/15 14:33:01 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GdkWindow.xs,v 1.48.2.1 2007/12/16 18:57:31 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -532,7 +532,7 @@
Returns window_at_pointer, a Gtk2::Gdk::Window or undef, x and y, integers, and
mask, a Gtk2::Gdk::ModifierType.
=cut
-##GdkWindow_ornull* gdk_window_get_pointer (GdkWindow *window, OUTLIST gint x, OUTLIST gint y, OUTLIST GdkModifierType mask)
+ ## GdkWindow * gdk_window_get_pointer (GdkWindow *window, gint *x, gint *y, GdkModifierType *mask)
void
gdk_window_get_pointer (GdkWindow *window)
PREINIT:
@@ -649,7 +649,17 @@
GdkWindow *window
GdkWMDecoration decorations
-gboolean gdk_window_get_decorations (GdkWindow *window, OUTLIST GdkWMDecoration decorations)
+ ## gboolean gdk_window_get_decorations (GdkWindow *window, GdkWMDecoration *decorations)
+void
+gdk_window_get_decorations (GdkWindow *window)
+ PREINIT:
+ gboolean result;
+ GdkWMDecoration decorations;
+ PPCODE:
+ result = gdk_window_get_decorations (window, &decorations);
+ EXTEND (SP, 2);
+ PUSHs (sv_2mortal (boolSV (result)));
+ PUSHs (sv_2mortal (newSVGdkWMDecoration (decorations)));
## void gdk_window_set_functions (GdkWindow *window, GdkWMFunction functions)
void
@@ -807,7 +817,18 @@
gdk_window_process_updates (GdkWindow * window, gboolean update_children)
## void gdk_window_get_internal_paint_info (GdkWindow *window, GdkDrawable **real_drawable, gint *x_offset, gint *y_offset)
-void gdk_window_get_internal_paint_info (GdkWindow *window, OUTLIST GdkDrawable *real_drawable, OUTLIST gint x_offset, OUTLIST gint y_offset)
+void
+gdk_window_get_internal_paint_info (GdkWindow *window)
+ PREINIT:
+ GdkDrawable *real_drawable = NULL;
+ gint x_offset;
+ gint y_offset;
+ PPCODE:
+ gdk_window_get_internal_paint_info (window, &real_drawable, &x_offset, &y_offset);
+ EXTEND (SP, 3);
+ PUSHs (sv_2mortal (newSVGdkDrawable (real_drawable)));
+ PUSHs (sv_2mortal (newSViv (x_offset)));
+ PUSHs (sv_2mortal (newSViv (y_offset)));
#if GTK_CHECK_VERSION (2, 6, 0)
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/Gtk2.xs new/Gtk2-1.164/xs/Gtk2.xs
--- old/Gtk2-1.162/xs/Gtk2.xs 2006-10-17 21:56:37.000000000 +0200
+++ new/Gtk2-1.164/xs/Gtk2.xs 2007-12-16 19:57:31.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/Gtk2.xs,v 1.44 2004/08/01 16:15:54 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/Gtk2.xs,v 1.44.14.1 2007/12/16 18:57:31 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -210,8 +210,10 @@
guint required_major
guint required_minor
guint required_micro
- C_ARGS:
- required_major, required_minor, required_micro
+ CODE:
+ RETVAL = (gchar *) gtk_check_version (required_major, required_minor, required_micro);
+ OUTPUT:
+ RETVAL
=for apidoc Gtk2::MAJOR_VERSION __function__
The major version of the gtk+ library against which Gtk2 was compiled.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GtkBox.xs new/Gtk2-1.164/xs/GtkBox.xs
--- old/Gtk2-1.162/xs/GtkBox.xs 2006-10-17 21:56:37.000000000 +0200
+++ new/Gtk2-1.164/xs/GtkBox.xs 2007-12-16 19:57:31.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/GtkBox.xs,v 1.4 2003/09/22 00:04:25 rwmcfa1 Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkBox.xs,v 1.4.22.1 2007/12/16 18:57:31 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -73,8 +73,21 @@
GtkWidget *child
gint position
+# void gtk_box_query_child_packing (GtkBox * box, GtkWidget * child, gboolean &expand, gboolean &fill, guint &padding, GtkPackType &pack_type)
void
-gtk_box_query_child_packing (GtkBox * box, GtkWidget * child, OUTLIST gboolean expand, OUTLIST gboolean fill, OUTLIST guint padding, OUTLIST GtkPackType pack_type)
+gtk_box_query_child_packing (GtkBox * box, GtkWidget * child)
+ PREINIT:
+ gboolean expand;
+ gboolean fill;
+ guint padding;
+ GtkPackType pack_type;
+ PPCODE:
+ gtk_box_query_child_packing (box, child, &expand, &fill, &padding, &pack_type);
+ EXTEND (SP, 4);
+ PUSHs (sv_2mortal (boolSV (expand)));
+ PUSHs (sv_2mortal (boolSV (fill)));
+ PUSHs (sv_2mortal (newSVuv (padding)));
+ PUSHs (sv_2mortal (newSVGtkPackType (pack_type)));
void
gtk_box_set_child_packing (box, child, expand, fill, padding, pack_type)
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GtkDialog.xs new/Gtk2-1.164/xs/GtkDialog.xs
--- old/Gtk2-1.162/xs/GtkDialog.xs 2006-10-17 21:56:37.000000000 +0200
+++ new/Gtk2-1.164/xs/GtkDialog.xs 2007-12-08 17:07:33.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/GtkDialog.xs,v 1.28 2005/09/18 15:07:22 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkDialog.xs,v 1.28.8.1 2007/12/08 16:07:33 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -159,8 +159,7 @@
GTK+ will never assign a meaning to positive response IDs; these are entirely
user-defined. But for convenience, you can use the response IDs in the
Gtk2::ResponseType enumeration. If a dialog receives a delete event, the
-"response" signal will be emitted with a response ID of 'GTK_RESPONSE_NONE'
-(except within C<run> -- see below).
+"response" signal will be emitted with a response ID of 'delete-event'.
If you want to block waiting for a dialog to return before returning control
flow to your code, you can call C<< $dialog->run >>. This function enters a
@@ -330,7 +329,7 @@
During C<run>, the default behavior of "delete_event" is disabled; if the
dialog receives "delete_event", it will not be destroyed as windows usually
-are, and C<run> will return 'GTK_RESPONSE_DELETE_EVENT' ('delete-event').
+are, and C<run> will return 'delete-event'.
Also, during C<run> the dialog will be modal. You can force C<run> to return
at any time by calling C<< $dialog->response >> to emit the "response" signal.
Destroying the dialog during C<run> is a very bad idea, because your post-run
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GtkIconView.xs new/Gtk2-1.164/xs/GtkIconView.xs
--- old/Gtk2-1.162/xs/GtkIconView.xs 2007-10-14 21:36:41.000000000 +0200
+++ new/Gtk2-1.164/xs/GtkIconView.xs 2007-12-16 19:57:31.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/GtkIconView.xs,v 1.11 2007/07/22 21:47:21 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkIconView.xs,v 1.11.2.1 2007/12/16 18:57:31 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -238,7 +238,16 @@
void gtk_icon_view_set_drag_dest_item (GtkIconView *icon_view, GtkTreePath *path, GtkIconViewDropPosition pos);
## void gtk_icon_view_get_drag_dest_item (GtkIconView *icon_view, GtkTreePath **path, GtkIconViewDropPosition *pos);
-void gtk_icon_view_get_drag_dest_item (GtkIconView *icon_view, OUTLIST GtkTreePath *path, OUTLIST GtkIconViewDropPosition pos);
+void
+gtk_icon_view_get_drag_dest_item (GtkIconView *icon_view)
+ PREINIT:
+ GtkTreePath *path = NULL;
+ GtkIconViewDropPosition pos;
+ PPCODE:
+ gtk_icon_view_get_drag_dest_item (icon_view, &path, &pos);
+ EXTEND (SP, 2);
+ PUSHs (sv_2mortal (newSVGtkTreePath_own (path)));
+ PUSHs (sv_2mortal (newSVGtkIconViewDropPosition (pos)));
## gboolean gtk_icon_view_get_dest_item_at_pos (GtkIconView *icon_view, gint drag_x, gint drag_y, GtkTreePath **path, GtkIconViewDropPosition *pos);
void
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GtkImage.xs new/Gtk2-1.164/xs/GtkImage.xs
--- old/Gtk2-1.162/xs/GtkImage.xs 2006-10-17 21:56:37.000000000 +0200
+++ new/Gtk2-1.164/xs/GtkImage.xs 2007-12-16 19:57:31.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/GtkImage.xs,v 1.20 2005/09/18 15:07:22 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkImage.xs,v 1.20.8.1 2007/12/16 18:57:31 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -121,10 +121,28 @@
GtkImage *image
## void gtk_image_get_pixmap (GtkImage *image, GdkPixmap **pixmap, GdkBitmap **mask)
-void gtk_image_get_pixmap (GtkImage *image, OUTLIST GdkPixmap * pixmap, OUTLIST GdkBitmap * mask)
+void
+gtk_image_get_pixmap (GtkImage *image)
+ PREINIT:
+ GdkPixmap * pixmap = NULL;
+ GdkBitmap * mask = NULL;
+ PPCODE:
+ gtk_image_get_pixmap (image, &pixmap, &mask);
+ EXTEND (SP, 2);
+ PUSHs (sv_2mortal (newSVGdkPixmap (pixmap)));
+ PUSHs (sv_2mortal (newSVGdkBitmap (mask)));
## void gtk_image_get_image (GtkImage *image, GdkImage **gdk_image, GdkBitmap **mask)
-void gtk_image_get_image (GtkImage *image, OUTLIST GdkImage *gdk_image, OUTLIST GdkBitmap *mask)
+void
+gtk_image_get_image (GtkImage *image)
+ PREINIT:
+ GdkImage * gdk_image = NULL;
+ GdkBitmap * mask = NULL;
+ PPCODE:
+ gtk_image_get_image (image, &gdk_image, &mask);
+ EXTEND (SP, 2);
+ PUSHs (sv_2mortal (newSVGdkImage (gdk_image)));
+ PUSHs (sv_2mortal (newSVGdkBitmap (mask)));
GdkPixbuf*
gtk_image_get_pixbuf (image)
@@ -147,7 +165,16 @@
PUSHs (sv_2mortal (newSVGtkIconSize (size)));
## void gtk_image_get_icon_set (GtkImage *image, GtkIconSet **icon_set, GtkIconSize *size)
-void gtk_image_get_icon_set (GtkImage *image, OUTLIST GtkIconSet *icon_set, OUTLIST GtkIconSize size)
+void
+gtk_image_get_icon_set (GtkImage *image)
+ PREINIT:
+ GtkIconSet *icon_set = NULL;
+ GtkIconSize size;
+ PPCODE:
+ gtk_image_get_icon_set (image, &icon_set, &size);
+ EXTEND (SP, 2);
+ PUSHs (sv_2mortal (newSVGtkIconSet (icon_set)));
+ PUSHs (sv_2mortal (newSVGtkIconSize (size)));
GdkPixbufAnimation* gtk_image_get_animation (GtkImage *image)
@@ -167,7 +194,17 @@
void gtk_image_set_from_icon_name (GtkImage *image, const gchar *icon_name, GtkIconSize size)
-void gtk_image_get_icon_name (GtkImage *image, OUTLIST const gchar *icon_name, OUTLIST GtkIconSize size)
+# void gtk_image_get_icon_name (GtkImage *image, const gchar **icon_name, GtkIconSize *size)
+void
+gtk_image_get_icon_name (GtkImage *image)
+ PREINIT:
+ const gchar *icon_name = NULL;
+ GtkIconSize size;
+ PPCODE:
+ gtk_image_get_icon_name (image, &icon_name, &size);
+ EXTEND (SP, 2);
+ PUSHs (sv_2mortal (newSVGChar (icon_name)));
+ PUSHs (sv_2mortal (newSVGtkIconSize (size)));
void gtk_image_set_pixel_size (GtkImage *image, gint pixel_size)
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GtkMessageDialog.xs new/Gtk2-1.164/xs/GtkMessageDialog.xs
--- old/Gtk2-1.162/xs/GtkMessageDialog.xs 2006-10-17 21:56:37.000000000 +0200
+++ new/Gtk2-1.164/xs/GtkMessageDialog.xs 2007-12-16 19:57:31.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/GtkMessageDialog.xs,v 1.19 2006/08/07 18:36:10 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkMessageDialog.xs,v 1.19.4.1 2007/12/16 18:57:31 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -73,11 +73,11 @@
}
$self->destroy;
});
-
-
+ $dialog->show_all;
=cut
+
=for position DESCRIPTION
=head1 DESCRIPTION
@@ -93,7 +93,6 @@
automatically makes your dialog modal and waits for the user to respond to it.
You can also pass in the GTK_DIALOG_MODAL flag when creating the MessageDialog.
-
=cut
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GtkNotebook.xs new/Gtk2-1.164/xs/GtkNotebook.xs
--- old/Gtk2-1.162/xs/GtkNotebook.xs 2006-10-17 21:56:37.000000000 +0200
+++ new/Gtk2-1.164/xs/GtkNotebook.xs 2007-12-16 19:57:31.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/GtkNotebook.xs,v 1.19 2006/08/07 18:36:10 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkNotebook.xs,v 1.19.4.1 2007/12/16 18:57:31 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -353,7 +353,17 @@
## void gtk_notebook_query_tab_label_packing (GtkNotebook *notebook, GtkWidget *child, gboolean *expand, gboolean *fill, GtkPackType *pack_type)
void
-gtk_notebook_query_tab_label_packing (GtkNotebook * notebook, GtkWidget * child, OUTLIST gboolean expand, OUTLIST gboolean fill, OUTLIST GtkPackType pack_type)
+gtk_notebook_query_tab_label_packing (GtkNotebook * notebook, GtkWidget * child)
+ PREINIT:
+ gboolean expand;
+ gboolean fill;
+ GtkPackType pack_type;
+ PPCODE:
+ gtk_notebook_query_tab_label_packing (notebook, child, &expand, &fill, &pack_type);
+ EXTEND (SP, 3);
+ PUSHs (sv_2mortal (boolSV (expand)));
+ PUSHs (sv_2mortal (boolSV (fill)));
+ PUSHs (sv_2mortal (newSVGtkPackType (pack_type)));
## void gtk_notebook_set_tab_label_packing (GtkNotebook *notebook, GtkWidget *child, gboolean expand, gboolean fill, GtkPackType pack_type)
void
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GtkScrolledWindow.xs new/Gtk2-1.164/xs/GtkScrolledWindow.xs
--- old/Gtk2-1.162/xs/GtkScrolledWindow.xs 2006-10-17 21:56:37.000000000 +0200
+++ new/Gtk2-1.164/xs/GtkScrolledWindow.xs 2007-12-16 19:57:32.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/GtkScrolledWindow.xs,v 1.11 2006/08/07 18:36:10 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkScrolledWindow.xs,v 1.11.4.1 2007/12/16 18:57:32 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -62,7 +62,15 @@
## void gtk_scrolled_window_get_policy (GtkScrolledWindow *scrolled_window, GtkPolicyType *hscrollbar_policy, GtkPolicyType *vscrollbar_policy)
void
-gtk_scrolled_window_get_policy (GtkScrolledWindow * scrolled_window, OUTLIST GtkPolicyType hscrollbar_policy, OUTLIST GtkPolicyType vscrollbar_policy)
+gtk_scrolled_window_get_policy (GtkScrolledWindow * scrolled_window)
+ PREINIT:
+ GtkPolicyType hscrollbar_policy;
+ GtkPolicyType vscrollbar_policy;
+ PPCODE:
+ gtk_scrolled_window_get_policy (scrolled_window, &hscrollbar_policy, &vscrollbar_policy);
+ EXTEND (SP, 2);
+ PUSHs (sv_2mortal (newSVGtkPolicyType (hscrollbar_policy)));
+ PUSHs (sv_2mortal (newSVGtkPolicyType (vscrollbar_policy)));
## void gtk_scrolled_window_set_placement (GtkScrolledWindow *scrolled_window, GtkCornerType window_placement)
void
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GtkTreeModel.xs new/Gtk2-1.164/xs/GtkTreeModel.xs
--- old/Gtk2-1.162/xs/GtkTreeModel.xs 2007-10-14 21:36:41.000000000 +0200
+++ new/Gtk2-1.164/xs/GtkTreeModel.xs 2007-12-16 19:57:32.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/GtkTreeModel.xs,v 1.48 2007/08/13 19:10:55 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkTreeModel.xs,v 1.48.2.1 2007/12/16 18:57:32 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -501,10 +501,17 @@
By contrast, a Gtk2::TreeIter is a reference to a specific node on a specific
model. To the user of a model, the iter is merely an opaque object.
One can convert a path to an iterator by calling CGtk2::TreeModel::get_iter.
-These iterators are the primary way of accessing a model and are similar to
-the iterators used by Gtk2::TextBuffer. They are generally used only for a
-short time, and are valid only as long as the model is unchanged. The model
-interface defines a set of operations using them for navigating the model.
+These iterators are the primary way of accessing a model and are
+similar to the iterators used by Gtk2::TextBuffer. The model interface
+defines a set of operations using them for navigating the model.
+
+The iterators are generally used only for a short time, and their
+behaviour is different to that suggested by the Gtk+ documentation. They
+are not valid when the model is changed, even though get_flags returns
+'iters-persist'. Iterators obtained within a GtkTreeModelForeachFunc are
+also invalid after the foreach terminates. There may be other such
+cases. In the foreach case, and perhaps others, a persistent iterator
+may be obtained by copying it (see Glib::Boxed->copy).
(The preceding description and most of the method descriptions have been
adapted directly from the Gtk+ C API reference.)
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/GtkWidget.xs new/Gtk2-1.164/xs/GtkWidget.xs
--- old/Gtk2-1.162/xs/GtkWidget.xs 2007-10-14 21:36:41.000000000 +0200
+++ new/Gtk2-1.164/xs/GtkWidget.xs 2008-01-07 21:49:29.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/GtkWidget.xs,v 1.71 2007/09/15 14:33:02 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkWidget.xs,v 1.71.2.1 2008/01/07 20:49:29 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -517,6 +517,23 @@
gint width
gint height
+
+=for apidoc
+This function is typically used when implementing a GtkContainer subclass.
+Obtains the preferred size of a widget. The container uses this information to
+arrange its child widgets and decide what size allocations to give them with
+size_allocate ().
+
+You can also call this function from an application, with some caveats. Most
+notably, getting a size request requires the widget to be associated with a
+screen, because font information may be needed. Multihead-aware applications
+should keep this in mind.
+
+Also remember that the size request is not necessarily the size a widget will
+actually be allocated.
+
+See also L
+=cut
GtkRequisition_copy *
gtk_widget_size_request (widget)
GtkWidget * widget
@@ -537,6 +554,26 @@
## function is only useful for widget implementations
##void gtk_widget_get_child_requisition (GtkWidget *widget, GtkRequisition *requisition);
+=for apidoc
+This function is only for use in widget implementations. Obtains
+C<< $widget->requisition >>, unless someone has forced a particular geometry
+on the widget (e.g., with C, in which case it returns that
+geometry instead of the widget's requisition.
+
+This function differs from
+L
+in that it retrieves the last size request value from
+C<< $widget->requisition >>,
+while C actually calls the C virtual method
+(that is, emits the "size-request" signal) on the I<$widget> to compute
+the size request and fill in C<< $widget->requisition >>, and only then
+returns C<< $widget->requisition >>.
+
+Because this function does not call the C method, it can only
+be used when you know that C<< $widget->requisition >> is up-to-date. In
+general, only container implementations have this information; applications
+should use C.
+=cut
GtkRequisition_copy*
gtk_widget_get_child_requisition (GtkWidget * widget)
PREINIT:
@@ -686,20 +723,16 @@
gint height
=for apidoc
-This function is typically used when implementing a GtkContainer subclass.
-Obtains the preferred size of a widget. The container uses this information to
-arrange its child widgets and decide what size allocations to give them with
-size_allocate ().
-
-You can also call this function from an application, with some caveats. Most
-notably, getting a size request requires the widget to be associated with a
-screen, because font information may be needed. Multihead-aware applications
-should keep this in mind.
-
-Also remember that the size request is not necessarily the size a widget will
-actually be allocated.
+=for signature (width, height) = $widget->get_size_request
-See also L
+Gets the size request that was explicitly set for the widget using
+C. A value of -1 for I<width> or I<height> indicates
+that the dimension has not been explicitly set and the natural requisition
+of the widget will be used instead.
+See L.
+To get the size a widget will actually use, call
+L instead of
+this function.
=cut
void
gtk_widget_get_size_request (widget)
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/PangoCairo.xs new/Gtk2-1.164/xs/PangoCairo.xs
--- old/Gtk2-1.162/xs/PangoCairo.xs 2007-10-14 21:36:41.000000000 +0200
+++ new/Gtk2-1.164/xs/PangoCairo.xs 2007-12-30 16:06:24.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.10 2007/09/15 14:33:03 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/PangoCairo.xs,v 1.10.2.1 2007/12/30 15:06:24 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -20,8 +20,8 @@
gboolean do_path,
gpointer data)
{
- dGPERL_CALLBACK_MARSHAL_SP;
GPerlCallback *callback = (GPerlCallback *) data;
+ dGPERL_CALLBACK_MARSHAL_SP;
GPERL_CALLBACK_MARSHAL_INIT (callback);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/PangoLayout.xs new/Gtk2-1.164/xs/PangoLayout.xs
--- old/Gtk2-1.162/xs/PangoLayout.xs 2007-10-14 21:46:23.000000000 +0200
+++ new/Gtk2-1.164/xs/PangoLayout.xs 2008-01-08 21:03:25.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/PangoLayout.xs,v 1.31.2.1 2007/10/14 19:46:23 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/PangoLayout.xs,v 1.31.2.2 2008/01/08 20:03:25 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -513,7 +513,18 @@
MODULE = Gtk2::Pango::Layout PACKAGE = Gtk2::Pango::LayoutLine PREFIX = pango_layout_line_
## gboolean pango_layout_line_x_to_index (PangoLayoutLine *line, int x_pos, int *index_, int *trailing)
-gboolean pango_layout_line_x_to_index (PangoLayoutLine *line, int x_pos, OUTLIST int index_, OUTLIST int trailing);
+void
+pango_layout_line_x_to_index (PangoLayoutLine *line, int x_pos)
+ PREINIT:
+ gboolean retval;
+ int index_;
+ int trailing;
+ PPCODE:
+ retval = pango_layout_line_x_to_index (line, x_pos, &index_, &trailing);
+ EXTEND (SP, 3);
+ PUSHs (sv_2mortal (boolSV (retval)));
+ PUSHs (sv_2mortal (newSViv (index_)));
+ PUSHs (sv_2mortal (newSViv (trailing)));
## void pango_layout_line_index_to_x (PangoLayoutLine *line, int index_, gboolean trailing, int *x_pos)
void pango_layout_line_index_to_x (PangoLayoutLine *line, int index_, gboolean trailing, OUTLIST int x_pos);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Gtk2-1.162/xs/PangoTabs.xs new/Gtk2-1.164/xs/PangoTabs.xs
--- old/Gtk2-1.162/xs/PangoTabs.xs 2006-10-17 21:58:46.000000000 +0200
+++ new/Gtk2-1.164/xs/PangoTabs.xs 2007-12-16 19:57:32.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/PangoTabs.xs,v 1.10 2004/02/18 20:17:31 rwmcfa1 Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/PangoTabs.xs,v 1.10.16.1 2007/12/16 18:57:32 kaffeetisch Exp $
*/
#include "gtk2perl.h"
@@ -66,7 +66,16 @@
gint location
## void pango_tab_array_get_tab (PangoTabArray *tab_array, gint tab_index, PangoTabAlign *alignment, gint *location)
-void pango_tab_array_get_tab (PangoTabArray *tab_array, gint tab_index, OUTLIST PangoTabAlign alignment, OUTLIST gint location)
+void
+pango_tab_array_get_tab (PangoTabArray *tab_array, gint tab_index)
+ PREINIT:
+ PangoTabAlign alignment;
+ gint location;
+ PPCODE:
+ pango_tab_array_get_tab (tab_array, tab_index, &alignment, &location);
+ EXTEND (SP, 2);
+ PUSHs (sv_2mortal (newSVPangoTabAlign (alignment)));
+ PUSHs (sv_2mortal (newSViv (location)));
## void pango_tab_array_get_tabs (PangoTabArray *tab_array, PangoTabAlign **alignments, gint **locations)
=for apidoc
++++++ perl-Gtk2-1.162-tests.diff -> perl-Gtk2-1.164-tests.diff ++++++
--- perl-Gtk2/perl-Gtk2-1.162-tests.diff 2007-10-08 10:49:28.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-Gtk2/perl-Gtk2-1.164-tests.diff 2008-01-16 16:12:08.000000000 +0100
@@ -1,15 +1,15 @@
--- t/GtkIconTheme.t
+++ t/GtkIconTheme.t
-@@ -4,7 +4,7 @@
+@@ -5,7 +5,7 @@
use Gtk2::TestHelper
at_least_version => [2, 4, 0, 'GtkIconTheme is new in 2.4'],
-- tests => 17;
-+ tests => 16;
+- tests => 16;
++ tests => 15;
my $icon_theme = Gtk2::IconTheme->new;
isa_ok ($icon_theme, 'Gtk2::IconTheme');
-@@ -17,7 +17,7 @@
+@@ -18,7 +18,7 @@
$icon_theme->set_screen (Gtk2::Gdk::Screen->get_default);
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org