summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-07 01:45:52 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-07 01:45:52 +0000
commit156bdd81bbdecb1dde634d62a61ca8c0cdfc6d1e (patch)
treefe2407d7fa91e81c9264a55c56691c14f4525ed0 /perl-install
parent6fd7051f446c2ccfc8462417b577453ccbbbc727 (diff)
downloaddrakx-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/drakhosts7
-rw-r--r--perl-install/standalone/draknfs8
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)),
),
),