summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm22
1 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 8930f0cf7..b879ed419 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -2563,6 +2563,9 @@ sub setup_options {
if ($printer->{currentqueue}{printer} || # We have a Foomatic queue
$printer->{currentqueue}{ppd}) { # We have a CUPS+PPD queue
# Set up the widgets for the option dialog
+ my $helptext = N("Printer default settings
+
+You should make sure that the page size and the ink type/printing mode (if available) and also the hardware configuration of laser printers (memory, duplex unit, extra trays) are set correctly. Note that with a very high printout quality/resolution printing can get substantially slower.");
my @widgets;
my @userinputs;
my @choicelists;
@@ -2607,7 +2610,8 @@ sub setup_options {
not_edit => 1,
list => \@{$choicelists[$i]},
sort => 0,
- advanced => $advanced })
+ advanced => $advanced,
+ help => $helptext })
if ($printer->{ARGS}[$i]{name} ne 'PageRegion');
} elsif ($printer->{ARGS}[$i]{type} eq 'bool') {
# boolean option
@@ -2627,7 +2631,8 @@ sub setup_options {
not_edit => 1,
list => \@{$choicelists[$i]},
sort => 0,
- advanced => $advanced });
+ advanced => $advanced,
+ help => $helptext });
} else {
# numerical option
push(@choicelists, []);
@@ -2641,7 +2646,8 @@ sub setup_options {
#min => $printer->{ARGS}[$i]{min},
#max => $printer->{ARGS}[$i]{max},
val => \$userinputs[$i],
- advanced => $advanced });
+ advanced => $advanced,
+ help => $helptext });
}
}
# Show the options dialog. The call-back function does a
@@ -2681,9 +2687,7 @@ sub setup_options {
(!$printer->{noninteractive})) {
return 0 if !$in->ask_from(
$windowtitle,
- N("Printer default settings
-
-You should make sure that the page size and the ink type/printing mode (if available) and also the hardware configuration of laser printers (memory, duplex unit, extra trays) are set correctly. Note that with a very high printout quality/resolution printing can get substantially slower."),
+ N("Printer default settings"),
\@widgets,
complete => sub {
my $i;
@@ -3630,11 +3634,7 @@ sub main {
# Show the main dialog
$in->ask_from_({
title => N("Printerdrake"),
- messages =>
- ($noprinters ? "" :
- ($printer->{SPOOLER} eq "cups" ?
- N("The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; to view information about it; or to make a printer on a remote CUPS server available for Star Office/OpenOffice.org/GIMP.") :
- N("The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; or to view information about it."))),
+ messages => N("The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; or to view information about it."),
cancel => (""),
ok => ("")},
# List the queues