summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-13 11:29:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-13 11:29:12 +0000
commit5c9f86f24d28f815c043158ffa15059adca2a431 (patch)
treef3d77c55cfe29c4755d156d84b8a957122a3a3ec /perl-install
parent3ad32e77c722710e3b9dd8b23eafe47a78515f7e (diff)
downloaddrakx-5c9f86f24d28f815c043158ffa15059adca2a431.tar
drakx-5c9f86f24d28f815c043158ffa15059adca2a431.tar.gz
drakx-5c9f86f24d28f815c043158ffa15059adca2a431.tar.bz2
drakx-5c9f86f24d28f815c043158ffa15059adca2a431.tar.xz
drakx-5c9f86f24d28f815c043158ffa15059adca2a431.zip
(new) use new Gtk2::Banner object for banner
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm14
1 files changed, 2 insertions, 12 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 707b3e5b3..9b86a071d 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -921,19 +921,9 @@ sub new {
0;
});
} elsif (!$o->{isEmbedded}) {
- my $draw1 = Gtk2::DrawingArea->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 $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;
- $::WizardTable->attach($draw1, 0, 2, 0, 1, 'fill', 'fill', 0, 0);
- $draw1->show;
+ $::WizardTable->attach(gtkshow(Gtk2::Banner->new($::Wizard_pix_up || "wiz_default_up.png", $::Wizard_title)),
+ 0, 2, 0, 1, 'fill', 'fill', 0, 0);
}
$::WizardWindow->show;
}