From 0381cb67373cd802101c299bc0adc3f15c13f2b3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 26 Aug 2008 14:13:18 +0000
Subject: (_gtk__Label_Right) factorize code

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

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index ced9315a8..aeebc0807 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -363,6 +363,13 @@ sub _gtk__Label_Left {
     _gtk__Label($w, $opts);
 }
 
+sub _gtk__Label_Right {
+    my ($w, $opts) = @_;
+    $opts->{alignment} ||= [ 1, 0.5 ];
+    _gtk__Label($w, $opts);
+}
+
+
 sub _gtk__Label {
     my ($w, $opts) = @_;
 
-- 
cgit v1.2.1