summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-12 22:54:47 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-12 22:54:47 +0000
commit8def074814df17875bcba85b4b6cad24e56fadae (patch)
tree93226177a43981d0b403f810bef361581d5b81ca /perl-install
parent8551a9d778cfa9ae2656bc167376c313b25fa430 (diff)
downloaddrakx-8def074814df17875bcba85b4b6cad24e56fadae.tar
drakx-8def074814df17875bcba85b4b6cad24e56fadae.tar.gz
drakx-8def074814df17875bcba85b4b6cad24e56fadae.tar.bz2
drakx-8def074814df17875bcba85b4b6cad24e56fadae.tar.xz
drakx-8def074814df17875bcba85b4b6cad24e56fadae.zip
(new) simplify banner rendering, make it cpu lighter
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm10
1 files changed, 3 insertions, 7 deletions
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;