diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-12 10:43:44 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-12 10:43:44 +0000 |
| commit | 4219c1089aad3e72e5933c576e17f6aa099e7381 (patch) | |
| tree | c39f6632ae4bfa705d5344152c87937e13c6e070 /perl-install | |
| parent | 51477e89bf8e89e9d5f3938d6e255dafdf598358 (diff) | |
| download | drakx-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/draknfs | 5 |
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; }, }, ); |