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/draknfs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bin/draknfs')

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