diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-08 14:39:34 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-08 14:39:34 +0000 |
| commit | dee6cbaeafba78e97f4c7f8c2420f80e95d3d4e5 (patch) | |
| tree | 472eb8991ca7ecbbc43fa10554f235579329b03e /perl-install | |
| parent | 003ce199fb041fbbad2f849affe6c71e6d9f7c4d (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/standalone/draknfs | 12 |
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, ""), |