From a9c08e799500d19e9dcc9d9eb46a70f8478b8499 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Thu, 24 Jun 1999 13:53:19 +0000
Subject: Updates and new images

---
 images/gimp/scripts/proofgeneral.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'images/gimp/scripts')

diff --git a/images/gimp/scripts/proofgeneral.scm b/images/gimp/scripts/proofgeneral.scm
index 9491655e..7c67d5b5 100644
--- a/images/gimp/scripts/proofgeneral.scm
+++ b/images/gimp/scripts/proofgeneral.scm
@@ -66,7 +66,8 @@
     ;; Flatten and save as jpg
     ;;(gimp-image-flatten image)
     ;; Flattening forces a white background.  Let's use merge.
-    (gimp-image-merge-visible-layers image 0)
+    (if (> (car (gimp-image-get-layers image)) 1)
+	(gimp-image-merge-visible-layers image 0))
     (file-jpeg-save 1 image (car (gimp-image-active-drawable image))
 		    jpgname jpgname
 		    0.75 0 1)
@@ -96,7 +97,7 @@
 
 (define (script-fu-proofgeneral-save-all-pix)
   (mapcar script-fu-proofgeneral-save-pic
-	  '("ProofGeneral" "text_proof" "text_general")))
+	  '("ProofGeneral" "pg-text")))
 
 (script-fu-register "script-fu-proofgeneral-save-all-jpegs" 
 		    "<Toolbox>/Xtns/Script-Fu/Proof General/Save all Jpegs"
-- 
cgit v1.2.3