From 07905ca96a681b8e161c0acc098fe51cb107cee6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 22 Aug 2003 10:26:08 +0000
Subject: introduce Gtk2::WrappedLabel to factorize fixed labels for CJK
 languages

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

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 2fff72ada..5abda4fa8 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1446,6 +1446,13 @@ sub set {
 }
 
 
+package Gtk2::WrappedLabel;
+sub new {
+    my ($_type, $o_text) = @_;
+    ugtk2::gtkset_line_wrap(Gtk2::Label->new($o_text), 1);
+}
+
+
 package Gtk2::Entry;
 sub new_with_text {
     my ($_class, @text) = @_;
-- 
cgit v1.2.1