summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draknfs
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-08 14:39:34 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-08 14:39:34 +0000
commitdee6cbaeafba78e97f4c7f8c2420f80e95d3d4e5 (patch)
tree472eb8991ca7ecbbc43fa10554f235579329b03e /perl-install/standalone/draknfs
parent003ce199fb041fbbad2f849affe6c71e6d9f7c4d (diff)
downloaddrakx-backup-do-not-use-dee6cbaeafba78e97f4c7f8c2420f80e95d3d4e5.tar
drakx-backup-do-not-use-dee6cbaeafba78e97f4c7f8c2420f80e95d3d4e5.tar.gz
drakx-backup-do-not-use-dee6cbaeafba78e97f4c7f8c2420f80e95d3d4e5.tar.bz2
drakx-backup-do-not-use-dee6cbaeafba78e97f4c7f8c2420f80e95d3d4e5.tar.xz
drakx-backup-do-not-use-dee6cbaeafba78e97f4c7f8c2420f80e95d3d4e5.zip
add a checkbox to enable/disable advanced options
Diffstat (limited to 'perl-install/standalone/draknfs')
-rw-r--r--perl-install/standalone/draknfs12
1 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index e3c78180c..6e7e3b763 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -328,6 +328,17 @@ sub add_modify_entry {
$anonuid->set_sensitive(0);
}
+ my $advanced = Gtk2::CheckButton->new("Enable advanced options");
+ $advanced->set_active(0);
+ foreach ($lsync, $lr, $lsecure) { $_->set_sensitive(0) }
+ $advanced->signal_connect(clicked => sub {
+ if ($advanced->get_active =~ /1/) {
+ foreach ($lsync, $lr, $lsecure) { $_->set_sensitive(1) }
+ } else {
+ foreach ($lsync, $lr, $lsecure) { $_->set_sensitive(0) }
+ }
+ });
+
gtkpack_($dialog->vbox,
0, gtkadd(Gtk2::Frame->new(N("NFS directory")),
gtkpack_(gtkset_border_width(Gtk2::VBox->new, 5),
@@ -348,6 +359,7 @@ sub add_modify_entry {
),
0, gtkadd(Gtk2::Frame->new(N("Advanced Options")),
gtkpack_(gtkset_border_width(Gtk2::VBox->new, 5),
+ 0, $advanced,
0, $label_and_widgets->(N("Synchronous access:"), $lsync, help_b(N_("Help Adcanced options"), create_pango_help_box($help_global))),
0, $label_and_widgets->(N("Secured Connection:"), $lsecure, ""),
0, $label_and_widgets->(N("Read-Only share:"), $lr, ""),