From 14f117a31c1d129d665bdf7f86b7db5d928bfe1c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 19 Nov 2013 21:36:19 +0100
Subject: perlish vbox() => get_child()

---
 userdrake | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/userdrake b/userdrake
index 8a48e0e..23bfcd0 100755
--- a/userdrake
+++ b/userdrake
@@ -384,7 +384,7 @@ sub AddUser() {
     my $w = NewWindow(N("Create New User"));
     my $dontcreatehomedir = 0; my $is_system = 0;
     my %u; 
-    gtkpack_($w->vbox,
+    gtkpack_($w->get_child,
 		    0, BuildUui(),
 		    0, Gtk3::HSeparator->new,
 		    0, $us->{o}{createhomedir} = Gtk3::CheckButton->new(N("Create Home Directory")),
@@ -511,7 +511,7 @@ sub ChooseGroup() {
     my @radio = gtkradio(N("Add to the existing group"),
                          (N("Add to the existing group"),
                           N("Add to the 'users' group")));
-    gtkadd($w->vbox,
+    gtkadd($w->get_child,
            Gtk3::Label->new(N("A group with this name already exists.  What would you like to do?")),
            gtkpack(Gtk3::VBox->new(0,0), @radio),
        );
@@ -544,7 +544,7 @@ sub GimmeChoice {
 sub AddGroup() {
     my $w = NewWindow(N("Create New Group"));
     my $mode = 0; my %g; my $is_system = 0;
-    gtkpack_($w->vbox,
+    gtkpack_($w->get_child,
 		    0, BuildGui(),
 		    0, Gtk3::HSeparator->new,
 		    0, $us->{o}{groupid} = Gtk3::CheckButton->new(N("Specify group ID manually")),
@@ -634,7 +634,7 @@ sub UserDelete() {
     # New version
     my $w = NewWindow(N("Delete files or not?"));
     my $hd = $userEnt->HomeDir($GetValue);
-    gtkpack_($w->vbox,
+    gtkpack_($w->get_child,
              0, Gtk3::Label->new(N("Deleting user %s\n Also perform the following actions\n",
                                    $username)),
              0, $checkhome = Gtk3::CheckButton->new(N("Delete Home Directory: %s", $hd)),
@@ -679,7 +679,7 @@ sub UserDelete() {
 sub GroupDelete() {
     my $groupname =  GetNameEntFromIter($grouptree, $gtree_model, 0);
     my $wg = NewWindow(translate("Warning"));
-    gtkadd($wg->vbox,
+    gtkadd($wg->get_child,
            Gtk3::Label->new(N("Do you really want to delete the group %s?", $groupname)),
        );
     gtkadd($wg->get_action_area,
@@ -1144,7 +1144,7 @@ sub Edit() {
     } elsif ($p == 1) {
         $groupEnt = GroupEdit_widget($nbG, $tree, $model, $groupname);
     }
-    gtkpack_($w->vbox, 
+    gtkpack_($w->get_child, 
              1, !$p ? $nbU : $nbG);
     gtkadd($w->get_action_area,
            map {
@@ -1312,7 +1312,7 @@ sub valid_groupname {
 sub RaiseError {
     my $w = NewWindow(N("Error"));
     $error = 1;
-    gtkpack($w->vbox, Gtk3::Label->new($_[0]));
+    gtkpack($w->get_child, Gtk3::Label->new($_[0]));
     gtkadd($w->get_action_area,
            gtksignal_connect(Gtk3::Button->new(N("Ok")),
                              clicked => sub { $w->destroy })
-- 
cgit v1.2.1