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 +-
 perl-install/standalone/drakfont   | 2 +-
 perl-install/standalone/drakperm   | 2 +-
 perl-install/standalone/drakups    | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/standalone')

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")),
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) {
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 225fe19f1..df3602ed3 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -314,7 +314,7 @@ sub row_setting_dialog {
                     });
     my %perms;
 
-    gtkpack_($dlg->vbox,
+    gtkpack_($dlg->get_child,
              0, gtknew('Title2', label => N("Path")),
              0, gtknew('HBox', border_width => 18, children => [
                                 1, $file,
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 61f0a66a7..1825caecd 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -201,7 +201,7 @@ sub edit_row {
     $dialog->set_transient_for($w->{real_window});
     $dialog->set_modal(1);
 
-    gtkpack_($dialog->vbox,
+    gtkpack_($dialog->get_child,
              #map {
              #}
             );
-- 
cgit v1.2.1