From 0fb1b32ab66047a7a4a0f68993533c50edb83a22 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 19 Feb 2004 18:04:54 +0000 Subject: we don't need warp_text since we have WrappedLabel --- perl-install/ugtk2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/ugtk2.pm') 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) ) -- cgit v1.2.1