From 4219c1089aad3e72e5933c576e17f6aa099e7381 Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Tue, 12 Jul 2005 10:43:44 +0000
Subject: add an entry in menu to write_conf

---
 perl-install/standalone/draknfs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index 3e5739073..00547d4c6 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -58,6 +58,7 @@ my @yesno = qw(yes no);
 sub get_items {
     my @items = (
 		 [ "/_File", undef, undef, undef, '<Branch>', ],
+		 [ "/_File/_Write conf", undef, \&write_conf, 1, '<StockItem>', 'gtk-execute' ],
 		 [ "/_File/_Exit", undef, \&quit_all, 1, '<StockItem>', 'gtk-quit' ],
 
 		 [ "/_NFS Server", undef, undef, undef, '<Branch>', ],
@@ -130,7 +131,7 @@ sub write_conf {
   foreach my $a (@listshare) {
     append_to_file($CONF, "$a->{dir} $a->{access}($a->{right}) $a->{options}\n");
   }
-  ugtk2->exit;
+
 }
 
 my $help_access;
@@ -600,7 +601,7 @@ my $menu = $factory->get_widget('<main>');
 
 my $okcancel = create_okcancel({
 				cancel_clicked => sub { ugtk2->exit },
-				ok_clicked => \&write_conf,
+				ok_clicked => sub { write_conf; ugtk2->exit; },
 			       },
 			      );
 
-- 
cgit v1.2.1