summaryrefslogtreecommitdiffstats
path: root/perl-install/services.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-13 10:50:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-13 10:50:41 +0000
commit6b3b8e7f7c83278c823dde17d96a251b53df8c72 (patch)
tree6a4d79a8cdafb8bda326b80c38e1596276ba17ef /perl-install/services.pm
parent299e975227ab32b16615e22f26b2110c7a86eef2 (diff)
downloaddrakx-backup-do-not-use-6b3b8e7f7c83278c823dde17d96a251b53df8c72.tar
drakx-backup-do-not-use-6b3b8e7f7c83278c823dde17d96a251b53df8c72.tar.gz
drakx-backup-do-not-use-6b3b8e7f7c83278c823dde17d96a251b53df8c72.tar.bz2
drakx-backup-do-not-use-6b3b8e7f7c83278c823dde17d96a251b53df8c72.tar.xz
drakx-backup-do-not-use-6b3b8e7f7c83278c823dde17d96a251b53df8c72.zip
use wrap_text (instead of handcoding it)
Diffstat (limited to 'perl-install/services.pm')
-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'));