perlish $dialog->vbox => $dialog->get_child

7 files changed, 11 insertions, 11 deletions

diff --git a/bin/drakhosts b/bin/drakhosts
index d93095c..17ecea5 100755
--- a/bin/drakhosts
+++ b/bin/drakhosts
@@ -108,7 +108,7 @@ sub add_modify_entry {
   $text = N("Please delete information") if $wanted =~ /delete/;
   $text = N("Please add information") if $wanted =~ /add/;
   
-  gtkpack__($dialog->vbox,
+  gtkpack__($dialog->get_child,
             gtknew('Title2', label => $text),
             $label_and_widgets->(N("IP address:"), $ip),
             $label_and_widgets->(N("Host name:"), $hostname),
diff --git a/bin/draknetprofile b/bin/draknetprofile
index 4df4330..d394b28 100755
--- a/bin/draknetprofile
+++ b/bin/draknetprofile
@@ -158,7 +158,7 @@ sub clone_profile() {
     #my $source_profile = get_selected_profile();
     my $dialog = _create_dialog(N("New profile..."));
     my $entry_dialog = Gtk3::Entry->new;
-    gtkpack($dialog->vbox,
+    gtkpack($dialog->get_child,
             Gtk3::WrappedLabel->new(N("Please specify the name of the new network profile to be created (e.g., work, home, roaming, ..). This new profile will be created based on current settings, and you'll be able to configure your system configuration as usual afterwards.")),
             $entry_dialog,
         );
diff --git a/bin/draknfs b/bin/draknfs
index b071807..f23b74e 100755
--- a/bin/draknfs
+++ b/bin/draknfs
@@ -194,7 +194,7 @@ sub help_b {
   my ($help_data) = @_;
   gtksignal_connect(gtknew('Button', text => N("Information")), clicked => sub {
 		      my $dialog = _create_dialog(N("Help"), { transient_for => $::main_window, modal => 1 });
-		      gtkpack_($dialog->vbox,
+		      gtkpack_($dialog->get_child,
 			       1, gtknew('ScrolledWindow', width => 390, height => 300,
                                 child => gtknew('TextView', text => ugtk3::markup_to_TextView_format(formatAlaTeX($help_data)))
                             ),
diff --git a/bin/draksambashare b/bin/draksambashare
index 92209f0..8ccaac5 100755
--- a/bin/draksambashare
+++ b/bin/draksambashare
@@ -376,7 +376,7 @@ sub add_entry() {
     my $dialog = _create_dialog(N("DrakSamba add entry"), { transient_for => $::main_window, modal => 1 });
     local $::main_window = $dialog;
 
-    gtkpack_($dialog->vbox,
+    gtkpack_($dialog->get_child,
 	     0, gtkadd(Gtk3::Frame->new(N("Add a share")),
 		       gtkpack_(gtkset_border_width(Gtk3::VBox->new, 3),
 				0, gtkpack_(gtkset_border_width(Gtk3::VBox->new, 1),
@@ -582,7 +582,7 @@ sub modify_printers_entry {
                           $printing->set_sensitive(0);
 		     }
 
-  gtkpack_($dialog->vbox,
+  gtkpack_($dialog->get_child,
 	   0, gtkadd(Gtk3::Frame->new(N("Printer share")),
 		  gtkpack_(gtkset_border_width(Gtk3::HBox->new, 3),
 			   0, gtkpack_(gtkset_border_width(Gtk3::VBox->new, 1),
@@ -929,7 +929,7 @@ sub modify_user_info {
   $bpasswd = Gtk3::Entry->new;
   $bpasswd->set_visibility(0);
 
-  gtkpack_($dialog->vbox,
+  gtkpack_($dialog->get_child,
            0, gtkadd(Gtk3::Frame->new(N("User information")),
                      gtkpack_(gtkset_border_width(Gtk3::VBox->new, 5),
                               0, $label_and_widgets->(N("User name:"), $buser, ""),
diff --git a/lib/network/drakconnect/edit.pm b/lib/network/drakconnect/edit.pm
index aaf3788..965cc91 100644
--- a/lib/network/drakconnect/edit.pm
+++ b/lib/network/drakconnect/edit.pm
@@ -465,7 +465,7 @@ sub save {
     my ($in, $net, $modules_conf, $p, $apply_button) = @_;
 
     my $dialog = _create_dialog(N("Please wait"));
-    gtkpack($dialog->vbox,
+    gtkpack($dialog->get_child,
             gtkshow(Gtk3::Label->new(N("Please Wait... Applying the configuration"))));
     $dialog->show_all;
     gtkset_mousecursor_wait();
diff --git a/old/drakconnect-old b/old/drakconnect-old
index 46d4ad4..2594418 100755
--- a/old/drakconnect-old
+++ b/old/drakconnect-old
@@ -113,7 +113,7 @@ $window1->{window}->add(
                                             gtksignal_connect(Gtk3::Button->new(N("Ok")), clicked => sub {
                                                                   if ($button_apply->get('sensitive')) {
                                                                       my $dialog = _create_dialog(N("Please wait"));
-                                                                      gtkpack($dialog->vbox,
+                                                                      gtkpack($dialog->get_child,
                                                                               Gtk3::Label->new(N("Please Wait... Applying the configuration")));
                                                                       $dialog->show_all;
                                                                       gtkflush();
@@ -174,7 +174,7 @@ sub configure_lan() {
     my @card_tab;
 
     if (@all_cards < 1) {
-	$window->vbox->add(Gtk3::Label->new(N("You do not have any configured interface.
+	$window->get_child->add(Gtk3::Label->new(N("You do not have any configured interface.
 Configure them first by clicking on 'Configure'")));
 	gtkpack(gtkset_layout($window->action_area, 'end'),
              gtksignal_connect(Gtk3::Button->new(N("Ok")),
@@ -187,7 +187,7 @@ Configure them first by clicking on 'Configure'")));
     }
 
     $window->set_border_width(10);
-    gtkpack($window->vbox,
+    gtkpack($window->get_child,
             Gtk3::Label->new(N("LAN Configuration")),
             my $notebook = Gtk3::Notebook->new,
            );
diff --git a/old/net_monitor b/old/net_monitor
index 3d1ee56..df8aad0 100755
--- a/old/net_monitor
+++ b/old/net_monitor
@@ -383,7 +383,7 @@ sub get_val() {
 sub change_color {
     my ($color) = @_;
     my $dialog = _create_dialog(N("Color configuration"));
-    $dialog->vbox->add(my $colorsel = Gtk3::ColorSelection->new);
+    $dialog->get_child->add(my $colorsel = Gtk3::ColorSelection->new);
     $colorsel->set_current_color($color);
     $dialog->add_button(N("Cancel"), 'cancel');
     $dialog->add_button(N("Ok"), 'ok');