diff options
| -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) = @_; |