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

---
 bin/draknetprofile | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bin/draknetprofile')

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