diff options
| -rwxr-xr-x | draksnapshot-config | 94 |
1 files changed, 47 insertions, 47 deletions
diff --git a/draksnapshot-config b/draksnapshot-config index 741e63f..5ce71f4 100755 --- a/draksnapshot-config +++ b/draksnapshot-config @@ -133,56 +133,56 @@ gtkadd($my_win->{window}, return if !$w || !$box; warn "set to " . to_bool($w->get_active) . "\n"; $box->set_sensitive($w->get_active); - }), + }), 0, $box = gtknew('VBox', sensitive => $is_enabled, children => [ - 0, gtknew('CheckButton', text => N("Backup the whole system"), - toggled => sub { - my ($w) = @_; - $button->set_sensitive(!$w->get_active); - }), - 0, gtknew('HBox', spacing => 5, children => [ - 0, gtknew('Label_Left', text => N("Where to backup")), - 1, $where = - gtknew('Entry', text => $backup_directory), - 0, gtknew('Button', text => N("Browse"), - clicked => sub { - my $file_dlg; - $file_dlg = - gtknew('FileSelection', title => N("Path selection"), - ok_button => { - clicked => sub { - $where->set_text($file_dlg->get_filename); - $file_dlg->destroy; + 0, gtknew('CheckButton', text => N("Backup the whole system"), + toggled => sub { + my ($w) = @_; + $button->set_sensitive(!$w->get_active); + }), + 0, gtknew('HBox', spacing => 5, children => [ + 0, gtknew('Label_Left', text => N("Where to backup")), + 1, $where = + gtknew('Entry', text => $backup_directory), + 0, gtknew('Button', text => N("Browse"), + clicked => sub { + my $file_dlg; + $file_dlg = + gtknew('FileSelection', title => N("Path selection"), + ok_button => { + clicked => sub { + $where->set_text($file_dlg->get_filename); + $file_dlg->destroy; + }, }, - }, - cancel_button => { - clicked => sub { $file_dlg->destroy }, - }, - ); - $file_dlg->set_transient_for($my_win->{real_window}); - $file_dlg->set_modal(1); - $file_dlg->set_filename($where->get_text); - $file_dlg->show; - }, - ), - ]), - - if_(0, 0, gtknew('Title2', label => N("Number of snapshots to keep stored")), - 0, gtknew('Table', col_spacings => 10, row_spacings => 5, homogeneous => 1, children => [ - map { - [ - gtknew('Label_Left', text => $interval_titles{$_}), - $entries{$_} = gtknew('SpinButton', value => $default_intervals{$_}, lower => 0, upper => 100, - tip => N("The number of snapshots for this type of interval (\"%s\") that will be stored", $_) - ) - ]; - } @ordered_intervals - ])), - 0, gtknew('HButtonBox', layout => 'start', border_width => 5, spacing => 5, children_loose => [ - $button = gtknew('Install_Button', text => N("Advanced"), - clicked => sub { $d_window->show }), + cancel_button => { + clicked => sub { $file_dlg->destroy }, + }, + ); + $file_dlg->set_transient_for($my_win->{real_window}); + $file_dlg->set_modal(1); + $file_dlg->set_filename($where->get_text); + $file_dlg->show; + }, + ), + ]), + + if_(0, 0, gtknew('Title2', label => N("Number of snapshots to keep stored")), + 0, gtknew('Table', col_spacings => 10, row_spacings => 5, homogeneous => 1, children => [ + map { + [ + gtknew('Label_Left', text => $interval_titles{$_}), + $entries{$_} = gtknew('SpinButton', value => $default_intervals{$_}, lower => 0, upper => 100, + tip => N("The number of snapshots for this type of interval (\"%s\") that will be stored", $_) + ) + ]; + } @ordered_intervals + ])), + 0, gtknew('HButtonBox', layout => 'start', border_width => 5, spacing => 5, children_loose => [ + $button = gtknew('Install_Button', text => N("Advanced"), + clicked => sub { $d_window->show }), + ]), ]), - ]), 0, gtknew('HButtonBox', layout => 'end', border_width => 5, spacing => 5, children_loose => [ gtknew('Button', text => N("Apply"), clicked => \&save), gtknew('Button', text => $::isEmbedded ? N("Cancel") : N("Close"), clicked => sub { save(); quit() }) |