summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/draksplash277
1 files changed, 38 insertions, 39 deletions
diff --git a/perl-install/standalone/draksplash2 b/perl-install/standalone/draksplash2
index b7358e7ba..4c17bdd08 100644
--- a/perl-install/standalone/draksplash2
+++ b/perl-install/standalone/draksplash2
@@ -117,7 +117,6 @@ sub image_button_pressed {
}
my $point = { X => $event->x, Y => $event->y };
- my $chosen_point;
if ($current_rect) {
if (!@$current_rect) {
@@ -162,7 +161,7 @@ sub color_index2gc {
}
sub create_popup() {
- my %l = my @l = (
+ my @l = (
'Progress bar position' => sub { $current_rect = $progress_rect },
'Progress bar color' => sub { $current_point = $progress_color },
'' => sub {},
@@ -192,7 +191,7 @@ sub create_popup() {
$f->();
}));
}
- $popup
+ $popup;
}
sub nb_steps() {
$kernel_and_initrd_size / ($isolinux_mode ? $isolinux_block_size : $lilo_block_size);
@@ -202,53 +201,53 @@ sub read_parameters {
my ($file) = @_;
my %h = getVarsFromSh($file);
- $entry_rect->[0]{X} = $h{'entry_x'};
- $entry_rect->[0]{Y} = $h{'entry_y'};
- $entry_rect->[1]{X} = $h{'entry_x'} + $h{'entry_w'};
- $entry_rect->[1]{Y} = $h{'entry_y'} + $h{'entry_h'};
- $entry_color->{Color} = $h{'entry_bg'} - 64;
- $entry_selected_color->{Color} = $h{'entry_fg'} - 64;
-
- $timer_pos->{X} = $h{'timer_x'};
- $timer_pos->{Y} = $h{'timer_y'};
- $timer_bg->{Color} = $h{'timer_bg'} - 64;
- $timer_fg->{Color} = $h{'timer_fg'} - 64;
-
- $progress_color->{Color} = $h{'progress_c'} - 64;
- $progress_rect->[0]{X} = $h{'progress_x'};
- $progress_rect->[0]{Y} = $h{'progress_y'};
- $progress_rect->[1]{X} = $h{'progress_x'} + $h{'progress_real_w'};
- $progress_rect->[1]{Y} = $h{'progress_y'} + $h{'progress_h'};
-
- $isolinux_mode = $h{'isolinux_mode'};
+ $entry_rect->[0]{X} = $h{entry_x};
+ $entry_rect->[0]{Y} = $h{entry_y};
+ $entry_rect->[1]{X} = $h{entry_x} + $h{entry_w};
+ $entry_rect->[1]{Y} = $h{entry_y} + $h{entry_h};
+ $entry_color->{Color} = $h{entry_bg} - 64;
+ $entry_selected_color->{Color} = $h{entry_fg} - 64;
+
+ $timer_pos->{X} = $h{timer_x};
+ $timer_pos->{Y} = $h{timer_y};
+ $timer_bg->{Color} = $h{timer_bg} - 64;
+ $timer_fg->{Color} = $h{timer_fg} - 64;
+
+ $progress_color->{Color} = $h{progress_c} - 64;
+ $progress_rect->[0]{X} = $h{progress_x};
+ $progress_rect->[0]{Y} = $h{progress_y};
+ $progress_rect->[1]{X} = $h{progress_x} + $h{progress_real_w};
+ $progress_rect->[1]{Y} = $h{progress_y} + $h{progress_h};
+
+ $isolinux_mode = $h{isolinux_mode};
}
sub save_parameters {
my ($file) = @_;
my %h;
- $h{'mode'} = (find { $image_size{X} eq $_->{X} } @modes)->{Vesa};
- $h{'clear_h'} = $image_size{X};
- $h{'clear_w'} = $image_size{Y};
+ $h{mode} = (find { $image_size{X} eq $_->{X} } @modes)->{Vesa};
+ $h{clear_h} = $image_size{X};
+ $h{clear_w} = $image_size{Y};
if (!$isolinux_mode) {
- ($h{'entry_x'}, $h{'entry_y'}, $h{'entry_w'}, $h{'entry_h'}) = rectangle2xywh($entry_rect);
- $h{'entry_w_chr'} = int($h{'entry_w'} / 8);
- $h{'entry_h_chr'} = int($h{'entry_h'} / 16);
- $h{'entry_bg'} = $entry_color->{Color} + 64;
- $h{'entry_fg'} = $entry_selected_color->{Color} + 64;
-
- $h{'timer_x'} = $timer_pos->{X};
- $h{'timer_y'} = $timer_pos->{Y};
- $h{'timer_bg'} = $timer_bg->{Color} + 64;
- $h{'timer_fg'} = $timer_fg->{Color} + 64;
+ ($h{entry_x}, $h{entry_y}, $h{entry_w}, $h{entry_h}) = rectangle2xywh($entry_rect);
+ $h{entry_w_chr} = int($h{entry_w} / 8);
+ $h{entry_h_chr} = int($h{entry_h} / 16);
+ $h{entry_bg} = $entry_color->{Color} + 64;
+ $h{entry_fg} = $entry_selected_color->{Color} + 64;
+
+ $h{timer_x} = $timer_pos->{X};
+ $h{timer_y} = $timer_pos->{Y};
+ $h{timer_bg} = $timer_bg->{Color} + 64;
+ $h{timer_fg} = $timer_fg->{Color} + 64;
}
- $h{'progress_c'} = $progress_color->{Color} + 64;
- ($h{'progress_x'}, $h{'progress_y'}, $h{'progress_real_w'}, $h{'progress_h'}) = rectangle2xywh($progress_rect);
- $h{'progress_w'} = int($h{'progress_real_w'} / nb_steps());
+ $h{progress_c} = $progress_color->{Color} + 64;
+ ($h{progress_x}, $h{progress_y}, $h{progress_real_w}, $h{progress_h}) = rectangle2xywh($progress_rect);
+ $h{progress_w} = int($h{progress_real_w} / nb_steps());
- $h{'isolinux_mode'} = $isolinux_mode;
+ $h{isolinux_mode} = $isolinux_mode;
output($file, map { "$_=$h{$_}\n" } sort keys %h);
}