From a5512035676ea1b0deb483e7b7517fc3ca5da29c Mon Sep 17 00:00:00 2001
From: tv <tv@99302b65-d5f7-0310-b3dd-f8cd6f4e3d94>
Date: Wed, 2 Apr 2008 15:17:21 +0000
Subject: disable advanced settings if "backup the whole system" is selected

git-svn-id: http://svn.mandriva.com/svn/soft/draksnapshot/trunk@241748 99302b65-d5f7-0310-b3dd-f8cd6f4e3d94
---
 NEWS                | 1 +
 draksnapshot-config | 9 +++++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/NEWS b/NEWS
index 9b8d8ee..56df950 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,6 @@
 - configurator:
   o add a tooltip in order to explain what are intervals (#39509)
+  o disable advanced settings if "backup the whole system" is selected
   o hide list under an "Advanced" expander
   o set 755 perms on cron entry (#39699)
   o use spin buttons for intervals
diff --git a/draksnapshot-config b/draksnapshot-config
index 722edd6..56cb135 100755
--- a/draksnapshot-config
+++ b/draksnapshot-config
@@ -101,12 +101,17 @@ my %interval_titles = (
 
 my (%entries, $where);
 
+my $box;
 gtkadd($my_win->{window},
        gtknew('VBox', children => [
            if_(!$::isEmbedded, 0, Gtk2::Banner->new('draksnapshot-big',
                                                     N("Backup snapshots configuration"))),
            0, gtknew('Title1', label => N("Settings")),
-           0, gtknew('CheckButton', text => N("Backup the whole system")),
+           0, gtknew('CheckButton', text => N("Backup the whole system"),
+                     toggled => sub {
+                         my ($w) = @_;
+                         $box->set_sensitive(!$w->get_active);
+                 }),
            0, gtknew('HBox', spacing => 5, children => [
                0, gtknew('Label_Left', text => N("Where to backup")),
                1, $where =
@@ -146,7 +151,7 @@ gtkadd($my_win->{window},
                } @ordered_intervals
            ]),
            0, gtknew('Expander', text => N("Advanced"),
-                     child => gtknew('VBox', children => [
+                     child => $box = gtknew('VBox', children => [
            0, gtknew('Title2', label => N("Backup list")),
            1, format_list($backup_list, 1),
            0, gtknew('Title2', label => N("Exclude list")),
-- 
cgit v1.2.1