summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-08 08:48:25 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-08 08:48:25 +0000
commit4180032466e6bb063600059a2eaacdbb2853ae2e (patch)
treed95f77c4e93020e2a931a440b45335cfab2aff7c /perl-install
parent8360b8054fa3a6f2acb053020b71bc24b47caaf9 (diff)
downloaddrakx-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
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm4
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);
}