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/standalone/drakfont | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone/drakfont')

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index d5d6b3cf8..f52f2a538 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -613,7 +613,7 @@ sub dialog {
     local $::main_window = $dialog;
     $dialog->signal_connect(delete_event => \&exitdialog);
     $dialog->set_size_request(@{$o_options->{size}}) if ref $o_options->{size};
-    gtkpack_($dialog->vbox, @$widgets);
+    gtkpack_($dialog->get_child, @$widgets);
     gtkpack($dialog->action_area, @$buttons) if $buttons;
     $dialog->show_all;
     if ($o_main_loop) {
-- 
cgit v1.2.1