From fb925dab841d46b6bf06443899742def86cc6f6b Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 19 Aug 2004 11:22:11 +0000 Subject: perl_checker fixes --- perl-install/standalone/printerdrake | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index f41fcf46f..bf10f5202 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -168,9 +168,9 @@ my ($menu, $factory) = create_factory_menu($::isEmbedded ? $::Plug : $us->{wnd}{ (); }, undef, '' ], [ N("/_Help"), undef, undef, undef, '' ], - [ N("/_Help").N("/_Help"), undef, sub { HelpSystem() }, undef, '', 'gtk-help' ], - [ N("/_Help").N("/_Report Bug"), undef, sub { system("$ENV{BROWSER} https://qa.$domainname &") }, undef, '', 'gtk-stop' ], - [ N("/_Help").N("/_About..."), undef, \&About, undef, '', 'gtk-preferences' ] + [ N("/_Help") . N("/_Help"), undef, sub { HelpSystem() }, undef, '', 'gtk-help' ], + [ N("/_Help") . N("/_Report Bug"), undef, sub { system("$ENV{BROWSER} https://qa.$domainname &") }, undef, '', 'gtk-stop' ], + [ N("/_Help") . N("/_About..."), undef, \&About, undef, '', 'gtk-preferences' ] ) ); %buttorcheck = map { @@ -220,7 +220,7 @@ my @toolbwg = map { $toolb->append_item($_->[0], $_->[1], $_->[2], Gtk2::Image->new_from_file($pixdir . $_->[2] . '.png'), $_->[3], $toolb); # $toolb->append_space; -} ( [ +} ([ # FIXME: then "add printer" should be a simple verb as suggested in Human Guidelines!!! #-PO: "Add Printer" is a button text and the translation has to be AS SHORT AS POSSIBLE N("Add Printer"), N("Add a new printer to the system"), 'printer_add', \&AddPrinter ], @@ -524,7 +524,7 @@ sub About() { $list->can_focus(0); each_index { $list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => $::i)) } 0..2; $list->set_headers_visible(0); - foreach my $row ([ '', '', ''], [ N("Authors: "), 'Till Kamppeter', "" ], ['', '', '']) { + foreach my $row ([ '', '', '' ], [ N("Authors: "), 'Till Kamppeter', "" ], [ '', '', '' ]) { $tree_model->append_set(undef, [ map_index { $::i => $_ } @$row ]); } $list->get_selection->set_mode('none'); -- cgit v1.2.1