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

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

diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index ec0542f14..7c4bdd94b 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -135,7 +135,7 @@ sub pref_dialog() {
         $col->set_min_width((200, 50)[$::i]);
     } (N("Module name"), N("Size"));
     
-    gtkpack_($dialog->vbox,
+    gtkpack_($dialog->get_child,
              0, gtknew('Frame', text => N("Mkinitrd optional arguments"), child => 
                        gtknew('VBox', spacing => 5, children_tight => [
                                  $buttons{force} = gtknew('CheckButton', text => N("force")),
-- 
cgit v1.2.1