From 1cbe9a2cb9d28f0f7f5faa7dd07c089aee20d578 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 26 Feb 2004 16:00:27 +0000 Subject: (set_back_pixmap) split it out of Gtk2::Banner::set_pixmap --- perl-install/ugtk2.pm | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to 'perl-install') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 3d12db346..890ed5b01 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -671,6 +671,18 @@ sub set_back_pixbuf { $window->set_back_pixmap($pixmap, 0); } +sub set_back_pixmap { + my ($w) = @_; + return if !$w->realized; + my $window = $w->window; + my $pixmap = $w->{back_pixmap} ||= Gtk2::Gdk::Pixmap->new($window, 1, 2, $window->get_depth); + + my $style = $w->get_style; + $pixmap->draw_points($style->bg_gc('normal'), 0, 0); + $pixmap->draw_points($style->base_gc('normal'), 0, 1); + $window->set_back_pixmap($pixmap); +} + sub fill_tiled_coords { my ($widget, $pixbuf, $x_back, $y_back, $width, $height) = @_; my ($x2, $y2) = (0, 0); @@ -1604,14 +1616,7 @@ use ugtk2 qw(:helpers :wrappers); sub set_pixmap { my ($darea) = @_; return if !$darea->realized; - my $window = $darea->window; - my $pixmap = $darea->{back_pixmap} ||= Gtk2::Gdk::Pixmap->new($window, 1, 2, $window->get_depth); - - my $style = $darea->get_style; - $pixmap->draw_points($style->bg_gc('normal'), 0, 0); - $pixmap->draw_points($style->base_gc('normal'), 0, 1); - $darea->window->set_back_pixmap($pixmap); - + ugtk2::set_back_pixmap($darea); $darea->{layout} = $darea->create_pango_layout($darea->{text}); } -- cgit v1.2.1