From 8def074814df17875bcba85b4b6cad24e56fadae Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 12 Feb 2004 22:54:47 +0000 Subject: (new) simplify banner rendering, make it cpu lighter --- perl-install/ugtk2.pm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'perl-install') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index a47b77a06..70ff15d37 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -925,15 +925,11 @@ sub new { $draw1->set_size_request(540, 100); my $pixbuf_up = gtkcreate_pixbuf($::Wizard_pix_up || "wiz_default_up.png"); $draw1->modify_font(Gtk2::Pango::FontDescription->from_string(N("utopia 25"))); + $draw1->signal_connect(realize => sub { set_back_pixbuf($draw1, $pixbuf_up) }); $draw1->signal_connect(expose_event => sub { my $height = $pixbuf_up->get_height; - for (my $i = 0; $i < 540 / $height; $i++) { - $pixbuf_up->render_to_drawable($draw1->window, - $draw1->style->bg_gc('normal'), - 0, 0, 0, $height * $i, -1, -1, 'none', 0, 0); - my $layout = $draw1->create_pango_layout($::Wizard_title); - $draw1->window->draw_layout($draw1->style->white_gc, 40, 62, $layout); - } + my $layout = $draw1->create_pango_layout($::Wizard_title); + $draw1->window->draw_layout($draw1->style->white_gc, 40, 62, $layout); }); $::WizardWindow->set_position('center_always') if !$::isStandalone; -- cgit v1.2.1