summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-13 11:46:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-13 11:46:04 +0000
commit4006b6abce88b7a53502926f921ae1408b5dd37e (patch)
tree2090905e20aaf74446663134f6980fe9cc61bfdd /perl-install/bootlook.pm
parentf3274ad01b2b1d7e84b6a2c26ce03f605b0b7369 (diff)
downloaddrakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar.gz
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar.bz2
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar.xz
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.zip
add/remove spaces to make perl_checker happy
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm30
1 files changed, 15 insertions, 15 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 8b6cef11a..5a73684bb 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -97,12 +97,12 @@ my $a_box = new Gtk::VBox(0, 0);
my $x_box = new Gtk::VBox(0, 0);
my $disp_mode = arch() =~ /ppc/ ? N("Yaboot mode") : N("Lilo/grub mode");
-my %themes = ('path' =>'/usr/share/bootsplash/themes/',
- 'default' =>'Mandrake',
- 'def_thmb' =>'/usr/share/libDrakX/pixmaps/nosplash_thumb.png',
- 'lilo' => {'file' =>'/lilo/message',
- 'thumb' =>'/lilo/thumb.png' },
- 'boot' => {'path' =>'/images/',
+my %themes = ('path' => '/usr/share/bootsplash/themes/',
+ 'default' => 'Mandrake',
+ 'def_thmb' => '/usr/share/libDrakX/pixmaps/nosplash_thumb.png',
+ 'lilo' => {'file' => '/lilo/message',
+ 'thumb' => '/lilo/thumb.png' },
+ 'boot' => {'path' => '/images/',
#'thumb'=>'/images/thumb.png',
},
);
@@ -128,7 +128,7 @@ foreach (all('.')) {
}
# $_ eq $themes{'defaut'} and $default = $themes{'defaut'};
}
-my %combo = ('thms' => '','lilo' => '','boot' => '');
+my %combo = ('thms' => '', 'lilo' => '', 'boot' => '');
foreach (keys(%combo)) {
$combo{$_} = new Gtk::Combo;
$combo{$_}->set_value_in_list(1, 0);
@@ -166,7 +166,7 @@ $combo{'lilo'}->entry->signal_connect(changed => sub {
undef($lilo_pixbuf);
$lilo_pixbuf = gtkcreate_png_pixbuf(-r $new_file ? $new_file : $themes{'def_thmb'});
$lilo_pixbuf = $lilo_pixbuf->scale_simple(155,116,0);
- $lilo_pic->set($lilo_pixbuf->render_pixmap_and_mask(0),'');
+ $lilo_pic->set($lilo_pixbuf->render_pixmap_and_mask(0), '');
});
$no_bootsplash == 0
@@ -175,7 +175,7 @@ $no_bootsplash == 0
undef($boot_pixmap);
$boot_pixmap = gtkcreate_png_pixbuf( $img_file);
$boot_pixmap = $boot_pixmap->scale_simple(155,116,0);
- $boot_pic->set($boot_pixmap->render_pixmap_and_mask(0),'');
+ $boot_pic->set($boot_pixmap->render_pixmap_and_mask(0), '');
});
$combo{'thms'}->entry->set_text($themes{'default'});
@@ -190,9 +190,9 @@ sub {
if (-f $themes{'path'}.$combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'}) {
use MDK::Common::File;
standalone::explanations(N("Backup %s to %s.old",$lilomsg,$lilomsg));
- cp_af($lilomsg,"/boot/message-graphic.old");
+ cp_af($lilomsg, "/boot/message-graphic.old");
#can't use this anymore or $in->ask_warn(N("Error"), N("unable to backup lilo message"));
- standalone::explanations(N("Copy %s to %s",$themes{'path'} . $combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'},$lilomsg));
+ standalone::explanations(N("Copy %s to %s", $themes{'path'} . $combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'},$lilomsg));
cp_af($themes{'path'} . $combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'}, $lilomsg);
#can't use this anymore or $in->ask_warn(N("Error"), N("can't change lilo message"));
} else {
@@ -233,7 +233,7 @@ LOGO_CONSOLE=" . ($keep_logo ? 'yes' : 'no') . "\n";
$error = 1;
}
} else {
- $in->ask_warn("Error","BootSplash screen not found");
+ $in->ask_warn("Error", "BootSplash screen not found");
}
#here is mkinitrd time
if (!$error) {
@@ -264,9 +264,9 @@ gtkadd($window,
gtkadd(new Gtk::Frame ("$disp_mode"),
# gtkpack__(new Gtk::VBox(0,0),
(gtkpack_(gtkset_border_width(new Gtk::HBox(0, 0),5),
- 1,N("You are currently using %s as your boot manager.
+ 1, N("You are currently using %s as your boot manager.
Click on Configure to launch the setup wizard.", $lilogrub),
- 0,gtksignal_connect(new Gtk::Button (N("Configure")), clicked => $::lilo_choice),
+ 0, gtksignal_connect(new Gtk::Button (N("Configure")), clicked => $::lilo_choice),
)),
# "" #we need some place under the button -- replaced by gtkset_border_width( for the moment
# )
@@ -339,7 +339,7 @@ Click on Configure to launch the setup wizard.", $lilogrub),
)
)
),
- gtkadd (gtkset_layout(new Gtk::HButtonBox,-end),
+ gtkadd (gtkset_layout(new Gtk::HButtonBox, -end),
gtksignal_connect(new Gtk::Button(N("OK")), clicked => sub { updateInit(); updateAutologin(); updateAurora(); $::isEmbedded ? kill('USR1',$::CCPID) : Gtk->exit(0) }),
gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) })
)