From d8ce481a7397742a4518f347a9810474f52de112 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 2 Feb 2004 18:51:19 +0000 Subject: use wrapped labels in various places --- perl-install/interactive/gtk.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/interactive/gtk.pm') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 4e3d2666c..4e09e5c18 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -422,7 +422,7 @@ sub ask_fromW { my $f = $e->{icon2f}->($_[0]); $e->{icon} = -e $f ? gtkcreate_img($f) : - Gtk2::Label->new(may_apply($e->{format}, $_[0])); + Gtk2::WrappedLabel->new(may_apply($e->{format}, $_[0])); $w->add(gtkshow($e->{icon})); }; $w->signal_connect(clicked => sub { @@ -441,7 +441,7 @@ sub ask_fromW { $set = sub { $w->set_active($_[0]) }; $get = sub { $w->get_active }; } elsif ($e->{type} eq 'label') { - $w = Gtk2::Label->new(${$e->{val}}); + $w = Gtk2::WrappedLabel->new(${$e->{val}}); $set = sub { $w->set($_[0]) }; } elsif ($e->{type} eq 'button') { $w = Gtk2::Button->new_with_label(''); @@ -622,7 +622,7 @@ sub ask_fromW { my @adv = map { warp_text($_) } @{$common->{advanced_messages}}; $advanced_pack = gtkpack_(Gtk2::VBox->new(0,0), - (map { (0, Gtk2::Label->new($_)) } @adv), + (map { (0, Gtk2::WrappedLabel->new($_)) } @adv), 0, Gtk2::HSeparator->new, 1, $create_widgets->(@widgets_advanced)); -- cgit v1.2.1