diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-08 08:48:25 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-08 08:48:25 +0000 |
| commit | 4180032466e6bb063600059a2eaacdbb2853ae2e (patch) | |
| tree | d95f77c4e93020e2a931a440b45335cfab2aff7c | |
| parent | 8360b8054fa3a6f2acb053020b71bc24b47caaf9 (diff) | |
| download | drakx-4180032466e6bb063600059a2eaacdbb2853ae2e.tar drakx-4180032466e6bb063600059a2eaacdbb2853ae2e.tar.gz drakx-4180032466e6bb063600059a2eaacdbb2853ae2e.tar.bz2 drakx-4180032466e6bb063600059a2eaacdbb2853ae2e.tar.xz drakx-4180032466e6bb063600059a2eaacdbb2853ae2e.zip | |
(Gtk2::WrappedLabel::new) enable to alter default alignment
| -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); } |