summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-19 18:04:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-19 18:04:54 +0000
commit0fb1b32ab66047a7a4a0f68993533c50edb83a22 (patch)
tree0200952469ee98d1fc5070d18a289e69eca14fe3 /perl-install
parent25cee64b1d0707a89cfb66d2cf50caf7c72926eb (diff)
downloaddrakx-0fb1b32ab66047a7a4a0f68993533c50edb83a22.tar
drakx-0fb1b32ab66047a7a4a0f68993533c50edb83a22.tar.gz
drakx-0fb1b32ab66047a7a4a0f68993533c50edb83a22.tar.bz2
drakx-0fb1b32ab66047a7a4a0f68993533c50edb83a22.tar.xz
drakx-0fb1b32ab66047a7a4a0f68993533c50edb83a22.zip
we don't need warp_text since we have WrappedLabel
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 88756f5b1..519fbb35c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -355,7 +355,7 @@ sub create_box_with_title {
my $w = $new_label->($_);
$::isWizard and $w->set_justify("left");
(0, $w);
- } map { ref($_) ? $_ : warp_text($_) } @_),
+ } @_),
1, Gtk2::HBox->new(0,0),
)
),
@@ -368,7 +368,7 @@ sub create_box_with_title {
my $w = $new_label->($_);
$::isWizard ? gtkpack__(Gtk2::HBox->new(0,0), gtkset_size_request(Gtk2::Label->new, 20, 0), $w)
: $w
- } map { ref($_) ? $_ : warp_text($_) } @_),
+ } @_),
if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 15)),
if_($a, Gtk2::HSeparator->new)
)