From 8b3d1554c55a3ef28442461c2f3fb6ec63f5f028 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Wed, 28 Aug 2002 23:38:37 +0000
Subject: Added automatical configuration of the printers in the GIMP.

---
 perl-install/printerdrake.pm | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'perl-install/printerdrake.pm')

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);
-- 
cgit v1.2.1