From a9d3ceafe12844e022fb835b45eb22494d2c92ed Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 26 Nov 2003 13:11:48 +0000 Subject: qiv has much more POWER than ourselves for setting up a persistent background --- move/move.pm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'move') diff --git a/move/move.pm b/move/move.pm index e2f10e2f7..086296891 100644 --- a/move/move.pm +++ b/move/move.pm @@ -460,20 +460,16 @@ sub install_TrueFS_in_home { } sub install2::displayBackground { - require ugtk2; - my $rootwindow = ugtk2::gtkroot(); - my $pixbuf = eval { Gtk2::Gdk::Pixbuf->new_from_file("/image/move/BOOT-$::rootwidth-MOVE.jpg") }; - $pixbuf ||= Gtk2::Gdk::Pixbuf->new_from_file('/usr/share/mdk/screensaver/3.png'); - my ($w, $h) = ($pixbuf->get_width, $pixbuf->get_height); - $rootwindow->draw_pixbuf(Gtk2::Gdk::GC->new($rootwindow), $pixbuf, 0, 0, ($::rootwidth - $w) / 2, ($::rootheight - $h)/2, $w, $h, 'none', 0, 0); - ugtk2::gtkflush(); + my $xdim = $::rootwidth; + $xdim < 800 and $xdim = 800; + $xdim > 1600 and $xdim = 1600; + system("qiv --root /image/move/BOOT-$xdim-MOVE.jpg"); } sub install2::startMove { my $o = $::o; $::WizardWindow->destroy if $::WizardWindow; - install2::displayBackground(); #- get info from existing fstab. This won't do anything if we already wrote fstab in configMove fs::get_info_from_fstab($o->{all_hds}, ''); -- cgit v1.2.1