From 156bdd81bbdecb1dde634d62a61ca8c0cdfc6d1e Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Thu, 7 Jul 2005 01:45:52 +0000 Subject: add an apply button --- perl-install/standalone/draknfs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/draknfs') diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs index 06df2f240..9e30b8a87 100644 --- a/perl-install/standalone/draknfs +++ b/perl-install/standalone/draknfs @@ -407,7 +407,7 @@ sub add_modify_entry { COLUMN_OPTIONS, $listshare[$i]{options}, ); $dialog->destroy; - write_conf(); +# write_conf(); }, }, ), @@ -427,7 +427,7 @@ sub remove_entry { $model->remove($iter); splice @listshare, $i, 1; } - write_conf(); +# write_conf(); } sub create_model() { @@ -556,6 +556,10 @@ $W->add(gtkpack_(Gtk2::VBox->new(0,0), err_dialog(N("Error"), N("Failed to remove an NFS share.") . "\n\n" . $err); } }), + 0, gtksignal_connect(Gtk2::Button->new(N("Apply")), clicked => sub { + write_conf(); + }), + if_($::isEmbedded, 0, gtksignal_connect(Gtk2::Button->new(N("Quit")), clicked => \&quit_all)), ), ), -- cgit v1.2.1