From 4f652a8ed66a3c8cef89170f9845fbd1cc02296a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 19 Nov 2013 00:51:47 +0100
Subject: perlish $dialog->vbox => $dialog->get_child

---
 old/drakconnect-old | 6 +++---
 old/net_monitor     | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'old')

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');
-- 
cgit v1.2.1