From c55ce2a4f9967518bc736102a29afa8181815f6c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 30 Aug 2013 16:34:06 +0200
Subject: ->child() => ->get_child()

---
 perl-install/interactive/gtk.pm | 8 ++++----
 perl-install/mygtk3.pm          | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 1886cfd45..ffe3d96e4 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -49,7 +49,7 @@ sub create_boxradio {
     mapn {
 	my ($txt, $w) = @_;
 	# workaround infamous 6 years old gnome bug #101968:
-	$w->child->set_size_request(mygtk3::get_label_width(), -1) if $e->{alignment} ne 'right' && !$e->{label};
+	$w->get_child->set_size_request(mygtk3::get_label_width(), -1) if $e->{alignment} ne 'right' && !$e->{label};
 	$w->signal_connect(button_press_event => $double_click) if $double_click;
 
 	$w->signal_connect(key_press_event => $e->{may_go_to_next});
@@ -416,7 +416,7 @@ sub create_widget {
 	$w = gtknew(($e->{install_button} ? 'Install_Button' : 'Button'), 
                     text => '', clicked => $e->{clicked_may_quit_cooked});
 	$set = sub {
-            my $w = $w->child;
+            my $w = $w->get_child;
             # handle Install_Buttons:
             if (ref($w) =~ /Gtk3::HBox/) {
                 ($w) = find { ref($_) =~ /Gtk3::Label/ } $w->get_children;
@@ -519,11 +519,11 @@ sub create_widget {
 		if ($e->{not_edit}) {
 		    $real_w = $w = Gtk3::ComboBoxText->new;
 		    # FIXME: the following causes Gtk-CRITICAL but not solvable at realize time:
-		    first($w->child->get_cells)->set_property('ellipsize', 'end') if !$e->{do_not_ellipsize};
+		    first($w->get_child->get_cells)->set_property('ellipsize', 'end') if !$e->{do_not_ellipsize};
 		    $w->set_wrap_width($e->{gtk}{wrap_width}) if exists $e->{gtk}{wrap_width};
 		} else {
 		    $w = Gtk3::ComboBoxEntry->new_text;
-		    ($real_w, $w) = ($w, $w->child);
+		    ($real_w, $w) = ($w, $w->get_child);
 		}
 		$real_w->set_popdown_strings(@formatted_list);
 	    } else {
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index ccbd23e27..55bc12884 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -666,7 +666,7 @@ sub _gtk__ScrolledWindow {
 	$child->set_left_margin(6) if ref($child) =~ /Gtk3::TextView/ && $child->get_left_margin <= 6;
 	$child->show;
 
-	$w->child->set_shadow_type(delete $opts->{shadow_type}) if exists $opts->{shadow_type};
+	$w->get_child->set_shadow_type(delete $opts->{shadow_type}) if exists $opts->{shadow_type};
 
 	if (ref($child) eq 'Gtk3::TextView' && delete $opts->{to_bottom}) {
 	    $child->{to_bottom} = _allow_scroll_TextView_to_bottom($w, $child);
@@ -909,7 +909,7 @@ sub _gtk__MagicWindow {
 
     if ($previous_popped_and_reuse_window && $pop_and_reuse) {
 	$w = $previous_popped_and_reuse_window;
-	$w->remove($w->child);
+	$w->remove($w->get_child);
 
 	gtkadd($w, child => $sub_child);
 	%$opts = ();
-- 
cgit v1.2.1