From 1f827eb197702deabebe3ff7b2dd228d4eae3461 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 17 Dec 2004 15:48:47 +0000
Subject: oops, set_background *is* needed

---
 perl-install/mygtk2.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/mygtk2.pm')

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 5d7212216..68f95e714 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -675,6 +675,7 @@ sub set_root_window_background {
     my $gc = Gtk2::Gdk::GC->new($root);
     my $color = rgb2color($r, $g, $b);
     $gc->set_rgb_fg_color($color);
+    $root->set_background($color);
     my ($w, $h) = $root->get_size;
     $root->draw_rectangle($gc, 1, 0, 0, $w, $h);
 }
-- 
cgit v1.2.1