diff options
Diffstat (limited to 'draksnapshot-config')
| -rwxr-xr-x | draksnapshot-config | 9 |
1 files changed, 7 insertions, 2 deletions
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")), |