summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-08-22 10:26:08 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-08-22 10:26:08 +0000
commit07905ca96a681b8e161c0acc098fe51cb107cee6 (patch)
tree51a6f37425ac1a6c9934d6deccbf92785e6d49e3 /perl-install
parent9fdebe8004002e879d97a65db691e53443811f76 (diff)
downloaddrakx-07905ca96a681b8e161c0acc098fe51cb107cee6.tar
drakx-07905ca96a681b8e161c0acc098fe51cb107cee6.tar.gz
drakx-07905ca96a681b8e161c0acc098fe51cb107cee6.tar.bz2
drakx-07905ca96a681b8e161c0acc098fe51cb107cee6.tar.xz
drakx-07905ca96a681b8e161c0acc098fe51cb107cee6.zip
introduce Gtk2::WrappedLabel to factorize fixed labels for CJK
languages
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm7
1 files changed, 7 insertions, 0 deletions
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) = @_;