From 08bc82916cc01cd8dbd4b551748207c906fb4e09 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Aug 2008 13:49:54 +0000 Subject: (_gtk__Install_Title) factorize installer titles creation --- perl-install/mygtk2.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'perl-install/mygtk2.pm') diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 184dc1312..dc45a4a82 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -385,6 +385,12 @@ sub title1_to_markup { : '' . $label . ''; } +sub _gtk__Install_Title { + my ($w, $opts) = @_; + $opts->{widget_name} = 'Banner'; + _gtk__Title2($w, $opts); +} + sub _gtk__Title1 { my ($w, $opts) = @_; $opts ||= {}; -- cgit v1.2.1