diff options
author | Francois Pons <fpons@mandriva.com> | 2000-09-13 09:58:12 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2000-09-13 09:58:12 +0000 |
commit | a08249647113f7e1213d708e42614fbde2480f0c (patch) | |
tree | 068a32189a456d17302639018d515638cc607aae /perl-install | |
parent | eb6e22590a6665808789eb730165eb3d1c1f9478 (diff) | |
download | drakx-backup-do-not-use-a08249647113f7e1213d708e42614fbde2480f0c.tar drakx-backup-do-not-use-a08249647113f7e1213d708e42614fbde2480f0c.tar.gz drakx-backup-do-not-use-a08249647113f7e1213d708e42614fbde2480f0c.tar.bz2 drakx-backup-do-not-use-a08249647113f7e1213d708e42614fbde2480f0c.tar.xz drakx-backup-do-not-use-a08249647113f7e1213d708e42614fbde2480f0c.zip |
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/Xconfigurator.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index afbd93da4..ccf608e72 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -461,7 +461,13 @@ sub testFinalConfig($;$$) { $ENV{DISPLAY} = ":9"; - gtkset_background(200 * 257, 210 * 257, 210 * 257); + my $background = "/usr/share/pixmaps/mdk/mandrake-logo.xpm"; + my $qiv = "/usr/bin/qiv"; + if ("$prefix/$background" && -x "$prefix/$setroot") { + system($::testing ? "$prefix" : "chroot $prefix/ ") . "$qiv --display :9 -y $background"); + } else { + 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; @@ -473,10 +479,6 @@ sub testFinalConfig($;$$) { 1; }); - my $background = "$prefix/usr/share/pixmaps/mdk/mandrake-logo.xpm"; - my $qiv = "$prefix/usr/bin/qiv"; - -r $background && -x $setroot and - system(($::testing ? "$prefix" : "chroot $prefix/ ") . "$qiv --display :9 -y $background"); exit (interactive_gtk->new->ask_yesorno('', [ _("Is this the correct setting?"), $text ], 0) ? 0 : 222); }; my $rc = close F; |