summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm11
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'));