diff options
author | David Aspinall <da@inf.ed.ac.uk> | 1999-06-24 13:53:19 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 1999-06-24 13:53:19 +0000 |
commit | a9c08e799500d19e9dcc9d9eb46a70f8478b8499 (patch) | |
tree | f38ea851a557bcde1d4352928c7cdf965df85854 /images/gimp | |
parent | 56bef7d39ad63ca18ec706613a0e99b524d5f367 (diff) |
Updates and new images
Diffstat (limited to 'images/gimp')
-rw-r--r-- | images/gimp/scripts/proofgeneral.scm | 5 |
1 files changed, 3 insertions, 2 deletions
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" |