summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2002-08-28 23:38:37 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2002-08-28 23:38:37 +0000
commit8b3d1554c55a3ef28442461c2f3fb6ec63f5f028 (patch)
tree54e8978e0388d24e631a99797ac872c66502678b /perl-install/printerdrake.pm
parenta70ec0d372ee16efaa038ec0ce5b09331f3d8b3c (diff)
downloaddrakx-backup-do-not-use-8b3d1554c55a3ef28442461c2f3fb6ec63f5f028.tar
drakx-backup-do-not-use-8b3d1554c55a3ef28442461c2f3fb6ec63f5f028.tar.gz
drakx-backup-do-not-use-8b3d1554c55a3ef28442461c2f3fb6ec63f5f028.tar.bz2
drakx-backup-do-not-use-8b3d1554c55a3ef28442461c2f3fb6ec63f5f028.tar.xz
drakx-backup-do-not-use-8b3d1554c55a3ef28442461c2f3fb6ec63f5f028.zip
Added automatical configuration of the printers in the GIMP.
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm28
1 files changed, 14 insertions, 14 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index ebba01ed2..9e160b696 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -2856,7 +2856,7 @@ sub setup_default_spooler {
return;
}
if ($printer->{SPOOLER} ne $oldspooler) {
- # Remove the local printers from Star Office/OpenOffice.org
+ # Remove the local printers from Star Office/OpenOffice.org/GIMP
printer::removelocalprintersfromapplications($printer);
# Get the queues of this spooler
{
@@ -3077,7 +3077,7 @@ sub main {
messages =>
($noprinters ? "" :
(($printer->{SPOOLER} eq "cups") ?
- _("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.") :
+ _("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.") :
_("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 => (""),
@@ -3398,8 +3398,8 @@ What do you want to modify on this printer?",
(($queue ne $printer->{DEFAULT}) ?
_("Set this printer as the default") : ()),
($printer->{configured}{$queue} ? () :
- (_("Add this printer to Star Office/OpenOffice.org"),
- _("Remove this printer from Star Office/OpenOffice.org"))),
+ (_("Add this printer to Star Office/OpenOffice.org/GIMP"),
+ _("Remove this printer from Star Office/OpenOffice.org/GIMP"))),
_("Print test pages"),
_("Know how to use this printer"),
($printer->{configured}{$queue} ?
@@ -3476,23 +3476,23 @@ What do you want to modify on this printer?",
printer::set_default_printer($printer);
$in->ask_warn(_("Default printer"),
_("The printer \"%s\" is set as the default printer now.", $queue));
- } elsif ($modify eq _("Add this printer to Star Office/OpenOffice.org")) {
+ } elsif ($modify eq _("Add this printer to Star Office/OpenOffice.org/GIMP")) {
if (printer::addcupsremotetoapplications
($printer, $queue)) {
- $in->ask_warn(_("Adding printer to Star Office/OpenOffice.org"),
- _("The printer \"%s\" was successfully added to Star Office/OpenOffice.org.", $queue));
+ $in->ask_warn(_("Adding printer to Star Office/OpenOffice.org/GIMP"),
+ _("The printer \"%s\" was successfully added to Star Office/OpenOffice.org/GIMP.", $queue));
} else {
- $in->ask_warn(_("Adding printer to Star Office/OpenOffice.org"),
- _("Failed to add the printer \"%s\" to Star Office/OpenOffice.org.", $queue));
+ $in->ask_warn(_("Adding printer to Star Office/OpenOffice.org/GIMP"),
+ _("Failed to add the printer \"%s\" to Star Office/OpenOffice.org/GIMP.", $queue));
}
- } elsif ($modify eq _("Remove this printer from Star Office/OpenOffice.org")) {
+ } elsif ($modify eq _("Remove this printer from Star Office/OpenOffice.org/GIMP")) {
if (printer::removeprinterfromapplications
($printer, $queue)) {
- $in->ask_warn(_("Removing printer from Star Office/OpenOffice.org"),
- _("The printer \"%s\" was successfully removed from Star Office/OpenOffice.org.", $queue));
+ $in->ask_warn(_("Removing printer from Star Office/OpenOffice.org/GIMP"),
+ _("The printer \"%s\" was successfully removed from Star Office/OpenOffice.org/GIMP.", $queue));
} else {
- $in->ask_warn(_("Removing printer from Star Office/OpenOffice.org"),
- _("Failed to remove the printer \"%s\" from Star Office/OpenOffice.org.", $queue));
+ $in->ask_warn(_("Removing printer from Star Office/OpenOffice.org/GIMP"),
+ _("Failed to remove the printer \"%s\" from Star Office/OpenOffice.org/GIMP.", $queue));
}
} elsif ($modify eq _("Print test pages")) {
print_testpages($printer, $in, $upNetwork);