diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-08-22 10:26:08 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-08-22 10:26:08 +0000 |
commit | 07905ca96a681b8e161c0acc098fe51cb107cee6 (patch) | |
tree | 51a6f37425ac1a6c9934d6deccbf92785e6d49e3 /perl-install | |
parent | 9fdebe8004002e879d97a65db691e53443811f76 (diff) | |
download | drakx-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.pm | 7 |
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) = @_; |