diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-17 16:03:04 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-17 16:03:04 +0000 |
| commit | 6902e4292254fac7e7088e82c7acc67819a34705 (patch) | |
| tree | 41a03caa0819a4a02ae52ad79f63eafae10a1fdd /perl-install/mygtk2.pm | |
| parent | 1f827eb197702deabebe3ff7b2dd228d4eae3461 (diff) | |
| download | drakx-6902e4292254fac7e7088e82c7acc67819a34705.tar drakx-6902e4292254fac7e7088e82c7acc67819a34705.tar.gz drakx-6902e4292254fac7e7088e82c7acc67819a34705.tar.bz2 drakx-6902e4292254fac7e7088e82c7acc67819a34705.tar.xz drakx-6902e4292254fac7e7088e82c7acc67819a34705.zip | |
don't parse the theme rc file to set the root window background color during install,
instead use the gc of a fake window named "background"
Diffstat (limited to 'perl-install/mygtk2.pm')
| -rw-r--r-- | perl-install/mygtk2.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 68f95e714..5f9e3d2eb 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -675,10 +675,15 @@ 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); + set_root_window_background_with_gc($gc); +} + +sub set_root_window_background_with_gc { + my ($gc) = @_; + my $root = root_window(); my ($w, $h) = $root->get_size; + $root->set_background($gc->get_values->{foreground}); $root->draw_rectangle($gc, 1, 0, 0, $w, $h); } 1; - |