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/drakhosts | 7 +++++-- perl-install/standalone/draknfs | 8 ++++++-- 2 files changed, 11 insertions(+), 4 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakhosts b/perl-install/standalone/drakhosts index 23441d1e5..e6b81a100 100644 --- a/perl-install/standalone/drakhosts +++ b/perl-install/standalone/drakhosts @@ -142,7 +142,7 @@ sub add_modify_entry { COLUMN_ALIAS, $listhosts[$i]{alias}, ); $dialog->destroy; - write_conf_hosts(); +# write_conf_hosts(); }, }, ), @@ -162,7 +162,7 @@ sub remove_entry { $model->remove($iter); splice @listhosts, $i, 1; } - write_conf_hosts(); +# write_conf_hosts(); } sub create_model() { @@ -249,6 +249,9 @@ $W->add(gtkpack_(Gtk2::VBox->new(0,0), err_dialog(N("Error"), N("Failed to remove host.") . "\n\n" . $err); } }), + 0, gtksignal_connect(Gtk2::Button->new(N("Apply")), clicked => sub { + write_conf_hosts(); + }), if_($::isEmbedded, 0, gtksignal_connect(Gtk2::Button->new(N("Quit")), clicked => sub { ugtk2->exit })), ), ), 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