From 4bd5eca6ecabccce88559ea34f73154188df792c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Aug 2005 15:44:48 +0000
Subject: add Label_Left

---
 perl-install/mygtk2.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index eaf63fc85..b5717f6b7 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -303,6 +303,12 @@ sub _gtk__WrappedLabel {
     _gtk__Label($w, $opts);
 }
 
+sub _gtk__Label_Left {
+    my ($w, $opts) = @_;
+    
+    gtknew('HBox', children_tight => [ _gtk__Label($w, $opts) ]);
+}
+
 sub _gtk__Label {
     my ($w, $opts) = @_;
 
-- 
cgit v1.2.1