diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-13 10:50:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-13 10:50:41 +0000 |
| commit | 6b3b8e7f7c83278c823dde17d96a251b53df8c72 (patch) | |
| tree | 6a4d79a8cdafb8bda326b80c38e1596276ba17ef /perl-install/services.pm | |
| parent | 299e975227ab32b16615e22f26b2110c7a86eef2 (diff) | |
| download | drakx-6b3b8e7f7c83278c823dde17d96a251b53df8c72.tar drakx-6b3b8e7f7c83278c823dde17d96a251b53df8c72.tar.gz drakx-6b3b8e7f7c83278c823dde17d96a251b53df8c72.tar.bz2 drakx-6b3b8e7f7c83278c823dde17d96a251b53df8c72.tar.xz drakx-6b3b8e7f7c83278c823dde17d96a251b53df8c72.zip | |
use wrap_text (instead of handcoding it)
Diffstat (limited to 'perl-install/services.pm')
| -rw-r--r-- | perl-install/services.pm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm index cc6b0aceb..e964d8e70 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -203,22 +203,13 @@ sub ask_standalone_gtk { $_[1]->set($started ? N("running") : N("stopped")); $started, $action; }; - my $strip = sub { - my $infos_old = $_[0]; - my $infos; - while ($infos_old =~ s/(.{40})//) { - $1 =~ /(.*) ([^ ]*)/; - $infos .= "$1\n$2"; - } - $infos .= $infos_old; - }; my $b = Gtk2::EventBox->new; $b->set_events('pointer_motion_mask'); gtkadd($W->{window}, gtkadd($b, gtkpack_($W->create_box_with_title(N("Services and deamons")), 1, gtkset_size_request(create_scrolled_window(create_packtable({ col_spacings => 10, row_spacings => 3 }, map { my $service = $_; - my $infos = $strip->(description($_, $prefix)); + my $infos = warp_text(description($_, $prefix), 40); $infos ||= N("No additional information\nabout this service, sorry."); my $l = Gtk2::Label->new; my ($started, $action) = $update_service->($service, gtkset_justify($l, 'left')); |