From 078ada16d53c6ae7baa42d7d3c1ae2aac7e2dcfe Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 19 Sep 2008 14:07:13 +0000 Subject: (create_steps_window) simplify left background filler: just use a scaled image of last line of the background --- perl-install/install/gtk.pm | 17 ++--------------- perl-install/share/left-background-filler.png | Bin 0 -> 885 bytes 2 files changed, 2 insertions(+), 15 deletions(-) create mode 100644 perl-install/share/left-background-filler.png (limited to 'perl-install') diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm index 2574147ab..a738c3ca1 100644 --- a/perl-install/install/gtk.pm +++ b/perl-install/install/gtk.pm @@ -142,21 +142,8 @@ sub create_steps_window { has_window => 1, x => 0, y => 0, height => $height, width => $::stepswidth, # -1 child => gtknew('VBox', spacing => 6, width => ($::stepswidth - $offset), children_tight => \@l)); - $o->{steps_widget}->put(my $da = gtknew('DrawingArea', width => $::stepswidth-11, widget_name => 'Left_background', - height => 300, # prevent logo to be tiled (do mosazic style rendering) - ), 0, $height); - - my $set_pixmap = sub { - my ($darea) = @_; - return if !$darea->realized; - my $window = $da->window; - my $pixmap = $da->{back_pixmap} ||= Gtk2::Gdk::Pixmap->new($window, 1, 1, $window->get_depth); - my $style = $da->get_style; - $pixmap->draw_points($style->base_gc('normal'), 0, 0); - $window->set_back_pixmap($pixmap); - $darea->queue_draw; - }; - $da->signal_connect(realize => $set_pixmap); + # prevent logo to be tiled (do mosazic style rendering): + $o->{steps_widget}->put(gtknew('Image', file => 'left-background-filler.png'), 0, $height); $o->{steps_widget}->put( # FIXME: not RTL compliant (lang::text_direction_rtl() ? ...) diff --git a/perl-install/share/left-background-filler.png b/perl-install/share/left-background-filler.png new file mode 100644 index 000000000..264dd4966 Binary files /dev/null and b/perl-install/share/left-background-filler.png differ -- cgit v1.2.1