summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/printerdrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/printerdrake')
-rwxr-xr-xperl-install/standalone/printerdrake31
1 files changed, 19 insertions, 12 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 42694f065..00ebf6288 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -221,18 +221,25 @@ my @toolbwg = map {
$toolb->append_item($_->[0], $_->[1], $_->[2],
Gtk2::Image->new_from_file($pixdir . $_->[2] . '.png'), $_->[3], $toolb);
# $toolb->append_space;
-#-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 ],
-#-PO "Set as default" is a button text and the translation has to be AS SHORT AS POSSIBLE
- [ N("Set as default"), N("Set selected printer as the default printer"), 'printer_default', \&SetAsDefault ],
-#-PO "Edit" is a button text and the translation has to be AS SHORT AS POSSIBLE
- [ N("Edit"), N("Edit selected printer"), 'printer_conf', \&Edit ],
-#-PO "Delete" is a button text and the translation has to be AS SHORT AS POSSIBLE
- [ N("Delete"), N("Delete selected printer"), 'printer_del', \&Delete ],
-#-PO "Refresh" is a button text and the translation has to be AS SHORT AS POSSIBLE
- [ N("Refresh"), N("Refresh the list"), 'refresh', sub { Refresh($stringsearch) } ],
-#-PO "Configure CUPS" is a button text and the translation has to be AS SHORT AS POSSIBLE
- [ N("Configure CUPS"), N("Configure CUPS printing system"), 'cups_config', \&ConfigCUPS ]
+} ( [
+ # 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 ],
+ [
+ #-PO: "Set as default" is a button text and the translation has to be AS SHORT AS POSSIBLE
+ N("Set as default"), N("Set selected printer as the default printer"), 'printer_default', \&SetAsDefault ],
+ [
+ #-PO: "Edit" is a button text and the translation has to be AS SHORT AS POSSIBLE
+ N("Edit"), N("Edit selected printer"), 'printer_conf', \&Edit ],
+ [
+ #-PO: "Delete" is a button text and the translation has to be AS SHORT AS POSSIBLE
+ N("Delete"), N("Delete selected printer"), 'printer_del', \&Delete ],
+ [
+ #-PO: "Refresh" is a button text and the translation has to be AS SHORT AS POSSIBLE
+ N("Refresh"), N("Refresh the list"), 'refresh', sub { Refresh($stringsearch) } ],
+ [
+ #-PO: "Configure CUPS" is a button text and the translation has to be AS SHORT AS POSSIBLE
+ N("Configure CUPS"), N("Configure CUPS printing system"), 'cups_config', \&ConfigCUPS ]
);
my ($_tbadd, $tbdefault, $tbedit, $tbdel, $_tbref, $_tbconfig) = @toolbwg;
GrayDelEdit();