From 0e04c715707174a9dcc1ab093c161853e93a5c8a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 2 Sep 2008 14:29:27 +0000
Subject: (_gtk__Label_Left) enable to override default padding

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

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 825951ef9..1da429eec 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -358,7 +358,7 @@ sub _gtk__WrappedLabel {
 sub _gtk__Label_Left {
     my ($w, $opts) = @_;
     $opts->{alignment} ||= [ 0, 0 ];
-    $opts->{padding} = [ $left_padding, 0 ];
+    $opts->{padding} ||= [ $left_padding, 0 ];
     _gtk__WrappedLabel($w, $opts);
 }
 
-- 
cgit v1.2.1