From a7f8805575a700e5ca8dfc962e8049eff33b71b4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 8 Nov 2013 03:42:45 +0100
Subject: perlish $dialog->vbox => $dialog->get_child

---
 perl-install/ugtk3.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/ugtk3.pm')

diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 675c774db..14a2ae337 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -401,7 +401,7 @@ sub create_dialog {
     my $dialog =  gtkset_border_width(_create_dialog($title, $o_options), 10);
     $dialog->set_border_width(10);
     my $text = ref($label) ? $label : $o_options->{use_markup} ? gtknew('WrappedLabel', text_markup => $label) : gtknew('WrappedLabel', text => $label);
-    gtkpack($dialog->vbox,
+    gtkpack($dialog->get_child,
             gtknew('HBox', children => [
                      if_($o_options->{stock},
                          0, Gtk3::Image->new_from_stock($o_options->{stock}, 'dialog'),
-- 
cgit v1.2.1