summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draknfs
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/draknfs')
-rw-r--r--perl-install/standalone/draknfs5
1 files 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; },
},
);