diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-07 01:45:52 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-07 01:45:52 +0000 |
| commit | 156bdd81bbdecb1dde634d62a61ca8c0cdfc6d1e (patch) | |
| tree | fe2407d7fa91e81c9264a55c56691c14f4525ed0 /perl-install | |
| parent | 6fd7051f446c2ccfc8462417b577453ccbbbc727 (diff) | |
| download | drakx-156bdd81bbdecb1dde634d62a61ca8c0cdfc6d1e.tar drakx-156bdd81bbdecb1dde634d62a61ca8c0cdfc6d1e.tar.gz drakx-156bdd81bbdecb1dde634d62a61ca8c0cdfc6d1e.tar.bz2 drakx-156bdd81bbdecb1dde634d62a61ca8c0cdfc6d1e.tar.xz drakx-156bdd81bbdecb1dde634d62a61ca8c0cdfc6d1e.zip | |
add an apply button
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone/drakhosts | 7 | ||||
| -rw-r--r-- | perl-install/standalone/draknfs | 8 |
2 files changed, 11 insertions, 4 deletions
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)), ), ), |