r32171 - in /branches/upstream/libgtk2-perl/current: ./ t/ xs/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Wed Mar 18 00:55:20 UTC 2009
Author: ryan52-guest
Date: Wed Mar 18 00:55:16 2009
New Revision: 32171
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32171
Log:
[svn-upgrade] Integrating new upstream version, libgtk2-perl (1.220)
Modified:
branches/upstream/libgtk2-perl/current/ChangeLog
branches/upstream/libgtk2-perl/current/Gtk2.pm
branches/upstream/libgtk2-perl/current/META.yml
branches/upstream/libgtk2-perl/current/Makefile.PL
branches/upstream/libgtk2-perl/current/NEWS
branches/upstream/libgtk2-perl/current/README
branches/upstream/libgtk2-perl/current/t/GtkCellView.t
branches/upstream/libgtk2-perl/current/t/GtkEntry.t
branches/upstream/libgtk2-perl/current/t/GtkIMContext.t
branches/upstream/libgtk2-perl/current/t/GtkImageMenuItem.t
branches/upstream/libgtk2-perl/current/t/GtkOrientable.t
branches/upstream/libgtk2-perl/current/t/GtkPrintSettings.t
branches/upstream/libgtk2-perl/current/t/GtkStatusIcon.t
branches/upstream/libgtk2-perl/current/t/GtkStyle.t
branches/upstream/libgtk2-perl/current/xs/GtkCellView.xs
branches/upstream/libgtk2-perl/current/xs/GtkEntry.xs
branches/upstream/libgtk2-perl/current/xs/GtkIMMulticontext.xs
branches/upstream/libgtk2-perl/current/xs/GtkImageMenuItem.xs
branches/upstream/libgtk2-perl/current/xs/GtkPrintOperation.xs
branches/upstream/libgtk2-perl/current/xs/GtkPrintSettings.xs
branches/upstream/libgtk2-perl/current/xs/GtkSelection.xs
branches/upstream/libgtk2-perl/current/xs/GtkStatusIcon.xs
branches/upstream/libgtk2-perl/current/xs/GtkStyle.xs
Modified: branches/upstream/libgtk2-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/ChangeLog?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/ChangeLog (original)
+++ branches/upstream/libgtk2-perl/current/ChangeLog Wed Mar 18 00:55:16 2009
@@ -1,3 +1,38 @@
+2009-03-17 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * Gtk2.pm
+ * Makefile.PL
+ * NEWS
+ * README: Stable release 1.220.
+
+2009-03-17 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * t/GtkStyle.t
+ * xs/GtkStyle.xs: Adapt to the rename of gtk_style_get_property to
+ gtk_style_get_style_property. Make
+ Gtk2::Style::get_style_property an alias for Gtk2::Style::get.
+
+2009-03-17 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * t/GtkCellView.t
+ * t/GtkEntry.t
+ * t/GtkIMContext.t
+ * t/GtkImageMenuItem.t
+ * t/GtkOrientable.t
+ * t/GtkPrintSettings.t
+ * t/GtkStatusIcon.t
+ * t/GtkStyle.t
+ * xs/GtkCellView.xs
+ * xs/GtkEntry.xs
+ * xs/GtkIMMulticontext.xs
+ * xs/GtkImageMenuItem.xs
+ * xs/GtkPrintOperation.xs
+ * xs/GtkPrintSettings.xs
+ * xs/GtkSelection.xs
+ * xs/GtkStatusIcon.xs
+ * xs/GtkStyle.xs: Change all versions checks to refer to stable
+ releases only.
+
2009-03-08 Torsten Schoenfeld <kaffeetisch at gmx.de>
* Gtk2.pm
Modified: branches/upstream/libgtk2-perl/current/Gtk2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/Gtk2.pm?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/Gtk2.pm (original)
+++ branches/upstream/libgtk2-perl/current/Gtk2.pm Wed Mar 18 00:55:16 2009
@@ -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.
#
-# $Id: Gtk2.pm 2155 2009-03-08 20:00:50Z tsch $
+# $Id: Gtk2.pm 2159 2009-03-17 18:44:16Z tsch $
#
package Gtk2;
@@ -73,7 +73,7 @@
use Exporter;
require DynaLoader;
-our $VERSION = '1.212';
+our $VERSION = '1.220';
our @ISA = qw(DynaLoader Exporter);
Modified: branches/upstream/libgtk2-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/META.yml?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/META.yml (original)
+++ branches/upstream/libgtk2-perl/current/META.yml Wed Mar 18 00:55:16 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Gtk2
-version: 1.212
+version: 1.220
abstract: Perl interface to the 2.x series of the Gimp Toolkit library
author: []
license: unknown
@@ -10,14 +10,14 @@
ExtUtils::Depends: 0.300
ExtUtils::MakeMaker: 0
ExtUtils::PkgConfig: 1.030
- Glib: 1.214
- Pango: 1.210
+ Glib: 1.220
+ Pango: 1.220
requires:
Cairo: 1.000
ExtUtils::Depends: 0.300
ExtUtils::PkgConfig: 1.030
- Glib: 1.214
- Pango: 1.210
+ Glib: 1.220
+ Pango: 1.220
no_index:
directory:
- t
Modified: branches/upstream/libgtk2-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/Makefile.PL?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/Makefile.PL (original)
+++ branches/upstream/libgtk2-perl/current/Makefile.PL Wed Mar 18 00:55:16 2009
@@ -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.
#
-# $Id: Makefile.PL 2155 2009-03-08 20:00:50Z tsch $
+# $Id: Makefile.PL 2159 2009-03-17 18:44:16Z tsch $
#
BEGIN { require 5.008; }
@@ -33,8 +33,8 @@
our %build_reqs = (
'perl-ExtUtils-Depends' => '0.300',
'perl-ExtUtils-PkgConfig' => '1.030',
- 'perl-Glib' => '1.214', # FIXME: Glib 1.220
- 'perl-Pango' => '1.210', # FIXME: Pango 1.220
+ 'perl-Glib' => '1.220',
+ 'perl-Pango' => '1.220',
'perl-Cairo' => '1.000',
'Gtk+' => '2.0.0',
);
@@ -286,7 +286,7 @@
$gtk2->get_makefile_vars,
);
-#=unstable
+=unstable
print <<__EOW__;
WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
@@ -299,7 +299,7 @@
WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
__EOW__
-#=cut
+=cut
=frozen
Modified: branches/upstream/libgtk2-perl/current/NEWS
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/NEWS?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/NEWS (original)
+++ branches/upstream/libgtk2-perl/current/NEWS Wed Mar 18 00:55:16 2009
@@ -1,3 +1,22 @@
+Overview of changes in Gtk2 1.220
+=================================
+
+ Since 1.20x (the previous stable series)
+ ----------------------------------------
+ * Split out our pango bindings into the standalone Pango module and depend on
+ it.
+ * Add constants Gtk2::EVENT_STOP and EVENT_PROPAGATE for use in event
+ handlers.
+ * Wrap new API for GtkEntry, GtkCellView, GtkIMMulticontext, GtkStatusIcon,
+ GtkPrintOperation, GtkPrintSettings, GtkStyle, and GdkX11.
+ * Wrap GtkOrientable.
+ * Wrap GtkBindings.
+ * Wrap gtk_get_option_group.
+
+ Since 1.212
+ -----------
+ * Make Gtk2::Style::get_style_property an alias for Gtk2::Style::get.
+
Overview of changes in Gtk2 1.212
=================================
Modified: branches/upstream/libgtk2-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/README?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/README (original)
+++ branches/upstream/libgtk2-perl/current/README Wed Mar 18 00:55:16 2009
@@ -1,4 +1,4 @@
-Gtk2 version 1.212
+Gtk2 version 1.220
==================
Perl bindings to the 2.x series of the Gtk+ graphical user interface library.
@@ -61,8 +61,8 @@
This module requires these other modules and libraries:
perl >= 5.8.0
- Glib >= 1.200 (Perl module)
- Pango >= 1.210 (Perl module)
+ Glib >= 1.220 (Perl module)
+ Pango >= 1.220 (Perl module)
GTK+ > 2.x (C library)
If GTK+ is as new or newer as 2.8, the Cairo module is also required:
@@ -102,4 +102,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 2155 2009-03-08 20:00:50Z tsch $
+# $Id: README 2159 2009-03-17 18:44:16Z tsch $
Modified: branches/upstream/libgtk2-perl/current/t/GtkCellView.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/t/GtkCellView.t?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/t/GtkCellView.t (original)
+++ branches/upstream/libgtk2-perl/current/t/GtkCellView.t Wed Mar 18 00:55:16 2009
@@ -1,6 +1,6 @@
#!/usr/bin/perl
#
-# $Id: GtkCellView.t 2108 2009-01-13 20:30:33Z tsch $
+# $Id: GtkCellView.t 2157 2009-03-17 18:21:36Z tsch $
#
#########################
@@ -48,7 +48,7 @@
SKIP: {
skip 'new 2.16 stuff', 2
- unless Gtk2->CHECK_VERSION(2, 15, 0); # FIXME: 2.16
+ unless Gtk2->CHECK_VERSION(2, 16, 0);
$cview->set_model (undef);
is($cview->get_model(), undef, '$cview->get_model with undef');
Modified: branches/upstream/libgtk2-perl/current/t/GtkEntry.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/t/GtkEntry.t?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/t/GtkEntry.t (original)
+++ branches/upstream/libgtk2-perl/current/t/GtkEntry.t Wed Mar 18 00:55:16 2009
@@ -2,7 +2,7 @@
use strict;
use Gtk2::TestHelper tests => 61;
-# $Id: GtkEntry.t 2133 2009-02-06 14:32:24Z tsch $
+# $Id: GtkEntry.t 2157 2009-03-17 18:21:36Z tsch $
my $entry = Gtk2::Entry -> new();
isa_ok($entry, "Gtk2::Entry");
@@ -101,7 +101,7 @@
SKIP: {
skip '2.16 stuff', 38
- unless Gtk2->CHECK_VERSION(2, 15, 0); # FIXME: 2.16
+ unless Gtk2->CHECK_VERSION(2, 16, 0);
## progress methods
Modified: branches/upstream/libgtk2-perl/current/t/GtkIMContext.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/t/GtkIMContext.t?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/t/GtkIMContext.t (original)
+++ branches/upstream/libgtk2-perl/current/t/GtkIMContext.t Wed Mar 18 00:55:16 2009
@@ -62,7 +62,7 @@
SKIP: {
skip '2.16 additions', 2
- unless Gtk2->CHECK_VERSION (2, 15, 0); # FIXME: 2.16
+ unless Gtk2->CHECK_VERSION (2, 16, 0);
is ($context->get_context_id, undef, 'No default context ID');
Modified: branches/upstream/libgtk2-perl/current/t/GtkImageMenuItem.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/t/GtkImageMenuItem.t?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/t/GtkImageMenuItem.t (original)
+++ branches/upstream/libgtk2-perl/current/t/GtkImageMenuItem.t Wed Mar 18 00:55:16 2009
@@ -2,7 +2,7 @@
use strict;
use Gtk2::TestHelper tests => 11;
-# $Id: GtkImageMenuItem.t 2109 2009-01-13 20:45:00Z tsch $
+# $Id: GtkImageMenuItem.t 2157 2009-03-17 18:21:36Z tsch $
my $item = Gtk2::ImageMenuItem -> new();
isa_ok($item, "Gtk2::ImageMenuItem");
@@ -29,7 +29,7 @@
SKIP: {
skip 'use_stock methods', 4
- unless Gtk2->CHECK_VERSION(2, 15, 0); # FIXME: 2.16
+ unless Gtk2->CHECK_VERSION(2, 16, 0);
# Get an item from a stock and test the getter/setter
my $from_stock = Gtk2::ImageMenuItem -> new_from_stock("gtk-yes");
Modified: branches/upstream/libgtk2-perl/current/t/GtkOrientable.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/t/GtkOrientable.t?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/t/GtkOrientable.t (original)
+++ branches/upstream/libgtk2-perl/current/t/GtkOrientable.t Wed Mar 18 00:55:16 2009
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use Gtk2::TestHelper
tests => 6,
- at_least_version => [2, 15, 0, 'GtkOrientable: it appeared in 2.16']; # FIXME: 2.16
+ at_least_version => [2, 16, 0, 'GtkOrientable: it appeared in 2.16'];
my $vbox = Gtk2::VBox -> new();
Modified: branches/upstream/libgtk2-perl/current/t/GtkPrintSettings.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/t/GtkPrintSettings.t?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/t/GtkPrintSettings.t (original)
+++ branches/upstream/libgtk2-perl/current/t/GtkPrintSettings.t Wed Mar 18 00:55:16 2009
@@ -4,7 +4,7 @@
tests => 26,
at_least_version => [2, 10, 0, 'GtkPrintSettings: it is new in 2.10'];
-# $Id: GtkPrintSettings.t 2114 2009-01-18 16:41:33Z tsch $
+# $Id: GtkPrintSettings.t 2157 2009-03-17 18:21:36Z tsch $
my $settings = Gtk2::PrintSettings -> new();
isa_ok($settings, 'Gtk2::PrintSettings');
@@ -114,7 +114,7 @@
SKIP: {
skip 'new 2.16 stuff', 6
- unless Gtk2->CHECK_VERSION(2, 15, 0); # FIXME: 2.16
+ unless Gtk2->CHECK_VERSION(2, 16, 0);
my $settings = Gtk2::PrintSettings -> new();
Modified: branches/upstream/libgtk2-perl/current/t/GtkStatusIcon.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/t/GtkStatusIcon.t?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/t/GtkStatusIcon.t (original)
+++ branches/upstream/libgtk2-perl/current/t/GtkStatusIcon.t Wed Mar 18 00:55:16 2009
@@ -7,7 +7,7 @@
tests => 36,
at_least_version => [2, 10, 0, "Gtk2::StatusIcon is new in 2.10"];
-# $Id: GtkStatusIcon.t 2111 2009-01-13 21:03:48Z tsch $
+# $Id: GtkStatusIcon.t 2157 2009-03-17 18:21:36Z tsch $
my $icon;
@@ -138,7 +138,7 @@
SKIP: {
skip 'new 2.16 stuff', 6
- unless Gtk2->CHECK_VERSION(2, 15, 0); # FIXME: 2.16
+ unless Gtk2->CHECK_VERSION(2, 16, 0);
$icon->set_has_tooltip(TRUE);
is ($icon->get_has_tooltip(), TRUE);
Modified: branches/upstream/libgtk2-perl/current/t/GtkStyle.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/t/GtkStyle.t?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/t/GtkStyle.t (original)
+++ branches/upstream/libgtk2-perl/current/t/GtkStyle.t Wed Mar 18 00:55:16 2009
@@ -1,10 +1,10 @@
#!/usr/bin/perl -w
# vim: set ft=perl expandtab shiftwidth=2 softtabstop=2 :
use strict;
-use Gtk2::TestHelper tests => 124;
+use Gtk2::TestHelper tests => 125;
use Carp;
-# $Id: GtkStyle.t 2152 2009-03-08 17:01:28Z tsch $
+# $Id: GtkStyle.t 2158 2009-03-17 18:42:54Z tsch $
my $window = Gtk2::Window -> new();
$window -> realize();
@@ -135,8 +135,8 @@
}
SKIP: {
- skip("get is new in 2.16", 12)
- unless (Gtk2->CHECK_VERSION(2, 15, 0)); # FIXME 2.16
+ skip("get is new in 2.16", 13)
+ unless (Gtk2->CHECK_VERSION(2, 16, 0));
# Test different properties (gint, gboolean, gchar* and GObject)
my $treeview = Gtk2::TreeView -> new();
@@ -181,6 +181,15 @@
$treeview -> style_get_property('grid_line-pattern'),
],
'get multiple properties',
+ );
+
+
+
+ # Test the get_style_property alias
+ is (
+ $style -> get_style_property('Gtk2::TreeView', 'even-row-color'),
+ $style -> get('Gtk2::TreeView', 'even-row-color'),
+ "get_style_property alias"
);
Modified: branches/upstream/libgtk2-perl/current/xs/GtkCellView.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/xs/GtkCellView.xs?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/xs/GtkCellView.xs (original)
+++ branches/upstream/libgtk2-perl/current/xs/GtkCellView.xs Wed Mar 18 00:55:16 2009
@@ -3,7 +3,7 @@
*
* Licensed under the LGPL, see LICENSE file for more information.
*
- * $Id: GtkCellView.xs 2108 2009-01-13 20:30:33Z tsch $
+ * $Id: GtkCellView.xs 2157 2009-03-17 18:21:36Z tsch $
*/
#include "gtk2perl.h"
@@ -67,7 +67,7 @@
else
XSRETURN_EMPTY;
-#if GTK_CHECK_VERSION (2, 15, 0) /* FIXME: 2.16 */
+#if GTK_CHECK_VERSION (2, 16, 0)
GtkTreeModel_ornull * gtk_cell_view_get_model (GtkCellView * cellview);
Modified: branches/upstream/libgtk2-perl/current/xs/GtkEntry.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/xs/GtkEntry.xs?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/xs/GtkEntry.xs (original)
+++ branches/upstream/libgtk2-perl/current/xs/GtkEntry.xs Wed Mar 18 00:55:16 2009
@@ -16,7 +16,7 @@
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307 USA.
*
- * $Id: GtkEntry.xs 2132 2009-02-06 14:30:10Z tsch $
+ * $Id: GtkEntry.xs 2157 2009-03-17 18:21:36Z tsch $
*/
#include "gtk2perl.h"
@@ -228,7 +228,7 @@
#endif /* 2.14 */
-#if GTK_CHECK_VERSION(2, 15, 0) /* FIXME: 2.16 */
+#if GTK_CHECK_VERSION (2, 16, 0)
#
# FIXME: Missing typemap, actually I don't think that gio is available through Perl
Modified: branches/upstream/libgtk2-perl/current/xs/GtkIMMulticontext.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/xs/GtkIMMulticontext.xs?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/xs/GtkIMMulticontext.xs (original)
+++ branches/upstream/libgtk2-perl/current/xs/GtkIMMulticontext.xs Wed Mar 18 00:55:16 2009
@@ -16,7 +16,7 @@
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307 USA.
*
- * $Id: GtkIMMulticontext.xs 2110 2009-01-13 20:47:12Z tsch $
+ * $Id: GtkIMMulticontext.xs 2157 2009-03-17 18:21:36Z tsch $
*/
#include "gtk2perl.h"
@@ -30,7 +30,7 @@
void gtk_im_multicontext_append_menuitems (GtkIMMulticontext *context, GtkMenuShell *menushell);
-#if GTK_CHECK_VERSION(2, 15, 0) /* FIXME: 2.16 */
+#if GTK_CHECK_VERSION (2, 16, 0)
const char* gtk_im_multicontext_get_context_id (GtkIMMulticontext *context);
Modified: branches/upstream/libgtk2-perl/current/xs/GtkImageMenuItem.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/xs/GtkImageMenuItem.xs?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/xs/GtkImageMenuItem.xs (original)
+++ branches/upstream/libgtk2-perl/current/xs/GtkImageMenuItem.xs Wed Mar 18 00:55:16 2009
@@ -16,7 +16,7 @@
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307 USA.
*
- * $Id: GtkImageMenuItem.xs 2109 2009-01-13 20:45:00Z tsch $
+ * $Id: GtkImageMenuItem.xs 2157 2009-03-17 18:21:36Z tsch $
*/
#include "gtk2perl.h"
@@ -63,7 +63,7 @@
GtkImageMenuItem * image_menu_item
-#if GTK_CHECK_VERSION(2, 15, 0) /* FIXME: 2.16 */
+#if GTK_CHECK_VERSION (2, 16, 0)
## gboolean gtk_image_menu_item_get_use_stock (GtkImageMenuItem *image_menu_item);
gboolean
Modified: branches/upstream/libgtk2-perl/current/xs/GtkPrintOperation.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/xs/GtkPrintOperation.xs?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/xs/GtkPrintOperation.xs (original)
+++ branches/upstream/libgtk2-perl/current/xs/GtkPrintOperation.xs Wed Mar 18 00:55:16 2009
@@ -3,7 +3,7 @@
*
* Licensed under the LGPL, see LICENSE file for more information.
*
- * $Id: GtkPrintOperation.xs 2113 2009-01-18 16:33:12Z tsch $
+ * $Id: GtkPrintOperation.xs 2157 2009-03-17 18:21:36Z tsch $
*/
#include "gtk2perl.h"
@@ -94,7 +94,7 @@
void gtk_print_operation_cancel (GtkPrintOperation *op);
-#if GTK_CHECK_VERSION (2, 15, 0) /* FIXME: 2.16 */
+#if GTK_CHECK_VERSION (2, 16, 0)
=for apidoc
Modified: branches/upstream/libgtk2-perl/current/xs/GtkPrintSettings.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/xs/GtkPrintSettings.xs?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/xs/GtkPrintSettings.xs (original)
+++ branches/upstream/libgtk2-perl/current/xs/GtkPrintSettings.xs Wed Mar 18 00:55:16 2009
@@ -3,7 +3,7 @@
*
* Licensed under the LGPL, see LICENSE file for more information.
*
- * $Id: GtkPrintSettings.xs 2114 2009-01-18 16:41:33Z tsch $
+ * $Id: GtkPrintSettings.xs 2157 2009-03-17 18:21:36Z tsch $
*/
#include "gtk2perl.h"
@@ -121,7 +121,7 @@
#endif /* 2.14 */
-#if GTK_CHECK_VERSION (2, 15, 0) /* FIXME: 2.16 */
+#if GTK_CHECK_VERSION (2, 16, 0)
gdouble gtk_print_settings_get_printer_lpi (GtkPrintSettings *settings);
Modified: branches/upstream/libgtk2-perl/current/xs/GtkSelection.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/xs/GtkSelection.xs?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/xs/GtkSelection.xs (original)
+++ branches/upstream/libgtk2-perl/current/xs/GtkSelection.xs Wed Mar 18 00:55:16 2009
@@ -16,13 +16,13 @@
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307 USA.
*
- * $Id: GtkSelection.xs 2116 2009-01-18 23:02:29Z tsch $
+ * $Id: GtkSelection.xs 2157 2009-03-17 18:21:36Z tsch $
*/
#include "gtk2perl.h"
-#if !GTK_CHECK_VERSION (2, 15, 0) /* FIXME 2.16 */
+#if !GTK_CHECK_VERSION (2, 16, 0)
# define gtk_selection_data_get_selection(d) ((d)->selection)
#endif /* 2.16 */
Modified: branches/upstream/libgtk2-perl/current/xs/GtkStatusIcon.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/xs/GtkStatusIcon.xs?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/xs/GtkStatusIcon.xs (original)
+++ branches/upstream/libgtk2-perl/current/xs/GtkStatusIcon.xs Wed Mar 18 00:55:16 2009
@@ -3,7 +3,7 @@
*
* Licensed under the LGPL, see LICENSE file for more information.
*
- * $Id: GtkStatusIcon.xs 2111 2009-01-13 21:03:48Z tsch $
+ * $Id: GtkStatusIcon.xs 2157 2009-03-17 18:21:36Z tsch $
*/
#include "gtk2perl.h"
@@ -134,7 +134,7 @@
#endif /* 2.14 */
-#if GTK_CHECK_VERSION (2, 15, 0) /* FIXME: 2.16 */
+#if GTK_CHECK_VERSION (2, 16, 0)
void gtk_status_icon_set_has_tooltip (GtkStatusIcon *status_icon, gboolean has_tooltip);
Modified: branches/upstream/libgtk2-perl/current/xs/GtkStyle.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgtk2-perl/current/xs/GtkStyle.xs?rev=32171&op=diff
==============================================================================
--- branches/upstream/libgtk2-perl/current/xs/GtkStyle.xs (original)
+++ branches/upstream/libgtk2-perl/current/xs/GtkStyle.xs Wed Mar 18 00:55:16 2009
@@ -16,7 +16,7 @@
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307 USA.
*
- * $Id: GtkStyle.xs 2152 2009-03-08 17:01:28Z tsch $
+ * $Id: GtkStyle.xs 2158 2009-03-17 18:42:54Z tsch $
*/
#include "gtk2perl.h"
@@ -573,21 +573,23 @@
#endif
-#if GTK_CHECK_VERSION (2, 15, 0) /* FIXME 2.16 */
+#if GTK_CHECK_VERSION (2, 16, 0)
=for apidoc
=for signature list = $style->get (widget_package, ...)
+=for signature list = $style->get_style_property (widget_package, ...)
=for arg widget_package (string) widget package name (ex: 'Gtk2::TreeView')
=for arg ... (list) list of property names
Fetch and return the values for the style properties named in I<...> for a
-widget of type I<widget_package>.
-
-B<Note>: This method shadows I<Glib::Object::get>. This shouldn't be a problem
-since I<Gtk2::Style> defines no properties (as of gtk+ 2.16). If you have a
-class that's derived from Gtk2::Style and adds a property or if a new version
-of gtk+ adds a property to I<Gtk2::Style>, the property can be accessed with
-I<get_property> which still resolves to I<Glib::Object::get_property>:
+widget of type I<widget_package>. I<get_style_property> is an alias for
+I<get>.
+
+B<Note>: The I<get> method shadows I<Glib::Object::get>. This shouldn't be a
+problem since I<Gtk2::Style> defines no properties (as of gtk+ 2.16). If you
+have a class that's derived from Gtk2::Style and adds a property or if a new
+version of gtk+ adds a property to I<Gtk2::Style>, the property can be accessed
+with I<get_property> which still resolves to I<Glib::Object::get_property>:
my $value = $style->get_property('property');
@@ -596,14 +598,18 @@
gtk_style_get (style, widget_package, ...)
GtkStyle *style
const char *widget_package
+ ALIAS:
+ get_style_property = 1
PREINIT:
int i;
GType widget_type;
gpointer class;
CODE:
/* Use CODE: instead of PPCODE: so we can handle the stack ourselves in
- * order to avoid that xsubs called by gtk_style_get_property overwrite
- * what we put on the stack. */
+ * order to avoid that xsubs called by gtk_style_get_style_property
+ * overwrite what we put on the stack. */
+
+ PERL_UNUSED_VAR (ix);
widget_type = gperl_type_from_package (widget_package);
if (widget_type == 0)
@@ -625,7 +631,7 @@
if (pspec) {
g_value_init (&value, G_PARAM_SPEC_VALUE_TYPE (pspec));
- gtk_style_get_property (style, widget_type, name, &value);
+ gtk_style_get_style_property (style, widget_type, name, &value);
ST (i - 2) = sv_2mortal (gperl_sv_from_value (&value));
g_value_unset (&value);
}
More information about the Pkg-perl-cvs-commits
mailing list