From aa3db47fe4d77d06b5abd4e5e44bff55d0a05cc2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 11 Sep 2008 15:08:19 +0000
Subject: (_gtk__WrappedLabel) enable to override wrapping parameter (usefull
 for higher level widgets)

---
 perl-install/mygtk2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 51324158e..bcd1adb08 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -350,7 +350,7 @@ sub _gtk__Image {
 sub _gtk__WrappedLabel {
     my ($w, $opts) = @_;
     
-    $opts->{line_wrap} = 1;
+    $opts->{line_wrap} = 1 if not defined $opts->{line_wrap};
     _gtk__Label($w, $opts);
 }
 
-- 
cgit v1.2.1