From 4180032466e6bb063600059a2eaacdbb2853ae2e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 8 Mar 2004 08:48:25 +0000
Subject: (Gtk2::WrappedLabel::new) enable to alter default alignment

---
 perl-install/ugtk2.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 11e6a6c4b..da858a64a 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1595,8 +1595,8 @@ sub set {
 
 package Gtk2::WrappedLabel;
 sub new {
-    my ($_type, $o_text) = @_;
-    ugtk2::gtkset_alignment(ugtk2::gtkset_line_wrap(Gtk2::Label->new($o_text || ''), 1), 0, 0.5);
+    my ($_type, $o_text, $o_align) = @_;
+    ugtk2::gtkset_alignment(ugtk2::gtkset_line_wrap(Gtk2::Label->new, 1), $o_align || 0, 0.5);
 }
 
 
-- 
cgit v1.2.1