From 52fff70fa5bdfe0bc86e2f76322d2157b3998f7b Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Tue, 23 Oct 2001 12:29:36 +0000 Subject: tagged as translatable some left out strigns --- perl-install/services.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/services.pm b/perl-install/services.pm index 46ced1279..701ce07c1 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -219,7 +219,7 @@ sub ask_standalone_gtk { my ($started, $action) = $update_service->($service, gtkset_justify($l, 0)); [ gtkpack__(new Gtk::HBox(0,0), $_), gtkpack__(new Gtk::HBox(0,0), $l), - gtkpack__(new Gtk::HBox(0,0), gtksignal_connect(new Gtk::Button("Infos"), clicked => sub { $display->($infos) })), + gtkpack__(new Gtk::HBox(0,0), gtksignal_connect(new Gtk::Button(_("Infos")), clicked => sub { $display->($infos) })), gtkpack__(new Gtk::HBox(0,0), gtkset_active(gtksignal_connect( new Gtk::CheckButton(_("On boot")), clicked => sub { if ($_[0]->active) { @@ -233,7 +233,7 @@ sub ask_standalone_gtk { ($started, $action) = $update_service->($service, $l); $display->($_); } - )) } ("Start", "Stop") + )) } (_("Start"), _("Stop")) ] } @$l)), 500, 400), -- cgit v1.2.1