diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 11e6a6c4b..da858a64a 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1595,8 +1595,8 @@ sub set { package Gtk2::WrappedLabel; sub new { - my ($_type, $o_text) = @_; - ugtk2::gtkset_alignment(ugtk2::gtkset_line_wrap(Gtk2::Label->new($o_text || ''), 1), 0, 0.5); + my ($_type, $o_text, $o_align) = @_; + ugtk2::gtkset_alignment(ugtk2::gtkset_line_wrap(Gtk2::Label->new, 1), $o_align || 0, 0.5); } |