diff options
| author | tv <tv@99302b65-d5f7-0310-b3dd-f8cd6f4e3d94> | 2008-04-02 15:17:21 +0000 |
|---|---|---|
| committer | tv <tv@99302b65-d5f7-0310-b3dd-f8cd6f4e3d94> | 2008-04-02 15:17:21 +0000 |
| commit | a5512035676ea1b0deb483e7b7517fc3ca5da29c (patch) | |
| tree | 90c4c6d7cbe961a830c9df0bf1b2f484d47cb86a /draksnapshot-config | |
| parent | 287da0edde620436fc2916162b3ea9f5eeecdff0 (diff) | |
| download | draksnapshot-a5512035676ea1b0deb483e7b7517fc3ca5da29c.tar draksnapshot-a5512035676ea1b0deb483e7b7517fc3ca5da29c.tar.gz draksnapshot-a5512035676ea1b0deb483e7b7517fc3ca5da29c.tar.bz2 draksnapshot-a5512035676ea1b0deb483e7b7517fc3ca5da29c.tar.xz draksnapshot-a5512035676ea1b0deb483e7b7517fc3ca5da29c.zip | |
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
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")), |