[perl-Glib] Rename the accessor Glib::Param::GType->is_a_type to get_is_a_type



commit 78696b6f882a3aba52fc483ecc8f6da8c55364ff
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sat Mar 6 15:50:12 2010 +0100

    Rename the accessor Glib::Param::GType->is_a_type to get_is_a_type
    
    This brings it in line with the accessors for the other param types.
    Glib::Param::GType->is_a_type has not appeared in any stable release
    yet.

 GParamSpec.xs |    2 +-
 t/e.t         |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/GParamSpec.xs b/GParamSpec.xs
index 1c6a90e..98e4642 100644
--- a/GParamSpec.xs
+++ b/GParamSpec.xs
@@ -1242,7 +1242,7 @@ with Glib; normal Perl packages will not work.
 If C<undef>, then any class is allowed.
 =cut
 const gchar_ornull *
-is_a_type (GParamSpec * pspec_gtype)
+get_is_a_type (GParamSpec * pspec_gtype)
     CODE:
 	GParamSpecGType * p = G_PARAM_SPEC_GTYPE (pspec_gtype);
 	RETVAL = p->is_a_type == G_TYPE_NONE
diff --git a/t/e.t b/t/e.t
index 3e024e1..1f344ce 100644
--- a/t/e.t
+++ b/t/e.t
@@ -224,14 +224,14 @@ SKIP: {
 					 G_PARAM_READWRITE);
 	isa_ok ($pspec, 'Glib::Param::GType');
 	isa_ok ($pspec, 'Glib::ParamSpec');
-	is ($pspec->is_a_type, 'Glib::Object');
+	is ($pspec->get_is_a_type, 'Glib::Object');
 	push @params, $pspec;
 
 	$pspec = Glib::ParamSpec->gtype ('type', 'Any type', "Any type",
 					 undef, G_PARAM_READWRITE);
 	isa_ok ($pspec, 'Glib::Param::GType');
 	isa_ok ($pspec, 'Glib::ParamSpec');
-	is ($pspec->is_a_type, undef);
+	is ($pspec->get_is_a_type, undef);
 	push @params, $pspec;
 
 	Glib::Type->register ('Glib::Object' => 'Baz', properties => \ params);



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]