diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-02 18:51:19 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-02 18:51:19 +0000 |
| commit | d8ce481a7397742a4518f347a9810474f52de112 (patch) | |
| tree | 6a1ce043a280042ebdd86fe6e1652cb79ccf9ddf /perl-install/interactive/gtk.pm | |
| parent | 9fb6ab32e9cca926548d09aee2befafa31493077 (diff) | |
| download | drakx-d8ce481a7397742a4518f347a9810474f52de112.tar drakx-d8ce481a7397742a4518f347a9810474f52de112.tar.gz drakx-d8ce481a7397742a4518f347a9810474f52de112.tar.bz2 drakx-d8ce481a7397742a4518f347a9810474f52de112.tar.xz drakx-d8ce481a7397742a4518f347a9810474f52de112.zip | |
use wrapped labels in various places
Diffstat (limited to 'perl-install/interactive/gtk.pm')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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)); |