summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-12 10:43:44 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-12 10:43:44 +0000
commit4219c1089aad3e72e5933c576e17f6aa099e7381 (patch)
treec39f6632ae4bfa705d5344152c87937e13c6e070 /perl-install
parent51477e89bf8e89e9d5f3938d6e255dafdf598358 (diff)
downloaddrakx-4219c1089aad3e72e5933c576e17f6aa099e7381.tar
drakx-4219c1089aad3e72e5933c576e17f6aa099e7381.tar.gz
drakx-4219c1089aad3e72e5933c576e17f6aa099e7381.tar.bz2
drakx-4219c1089aad3e72e5933c576e17f6aa099e7381.tar.xz
drakx-4219c1089aad3e72e5933c576e17f6aa099e7381.zip
add an entry in menu to write_conf
Diffstat (limited to 'perl-install')
-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; },
},
);