summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-14 12:51:50 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-14 12:51:50 +0000
commit44e8399e0fcfe979f36bdbf32e57740080413360 (patch)
tree2cb888930d7ec2a2f97abc3e34f6a8b59eb63cb7 /perl-install
parent01fe21c3041836bf0d0d3fd1d08b3f54e3cdbfcf (diff)
downloaddrakx-44e8399e0fcfe979f36bdbf32e57740080413360.tar
drakx-44e8399e0fcfe979f36bdbf32e57740080413360.tar.gz
drakx-44e8399e0fcfe979f36bdbf32e57740080413360.tar.bz2
drakx-44e8399e0fcfe979f36bdbf32e57740080413360.tar.xz
drakx-44e8399e0fcfe979f36bdbf32e57740080413360.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm13
1 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 5cd806b64..3c1de1982 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -461,13 +461,7 @@ sub testFinalConfig($;$$) {
$ENV{DISPLAY} = ":9";
- my $background = "/usr/share/pixmaps/mdk/mandrake-logo.xpm";
- my $qiv = "/usr/bin/qiv";
- if ("$prefix/$background" && -x "$prefix/$qiv") {
- system(($::testing ? "$prefix" : "chroot $prefix/ ") . "$qiv -y $background");
- } else {
- gtkset_background(200 * 257, 210 * 257, 210 * 257);
- }
+ gtkset_background(200 * 257, 210 * 257, 210 * 257);
my ($h, $w) = Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW)->get_size;
$my_gtk::force_position = [ $w / 3, $h / 2.4 ];
$my_gtk::force_focus = 1;
@@ -479,6 +473,11 @@ sub testFinalConfig($;$$) {
1;
});
+ my $background = "/usr/share/pixmaps/mdk/mandrake-logo.xpm";
+ my $qiv = "/usr/bin/qiv";
+ -r "$prefix/$background" && -x "$prefix/$qiv" and
+ system(($::testing ? "$prefix" : "chroot $prefix/ ") . "$qiv -y $background");
+
exit (interactive_gtk->new->ask_yesorno('', [ _("Is this the correct setting?"), $text ], 0) ? 0 : 222);
};
my $rc = close F;