summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xdraksnapshot-config94
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() })