From 0dcbbccfeabe0cc83310e7e06b7fd90cbac25261 Mon Sep 17 00:00:00 2001 From: Pedro Gimeno Date: Sat, 13 Mar 2004 16:13:34 +0000 Subject: [PATCH] plug-ins/script-fu/scripts/carve-it.scm 2004-03-13 Pedro Gimeno * plug-ins/script-fu/scripts/carve-it.scm * plug-ins/script-fu/scripts/chrome-it.scm * plug-ins/script-fu/scripts/crystal-logo.scm * plug-ins/script-fu/scripts/sota-chrome-logo.scm: Fixed to avoid pasting to a layer that was not added to any image. This was causing the scripts to abort, because gimp-edit-paste is now failing in that case. --- ChangeLog | 10 ++++++++++ plug-ins/script-fu/scripts/carve-it.scm | 2 +- plug-ins/script-fu/scripts/chrome-it.scm | 2 +- plug-ins/script-fu/scripts/crystal-logo.scm | 4 ++-- plug-ins/script-fu/scripts/sota-chrome-logo.scm | 2 +- 5 files changed, 15 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5292104ab5..5de5bb9346 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2004-03-13 Pedro Gimeno + + * plug-ins/script-fu/scripts/carve-it.scm + * plug-ins/script-fu/scripts/chrome-it.scm + * plug-ins/script-fu/scripts/crystal-logo.scm + * plug-ins/script-fu/scripts/sota-chrome-logo.scm: Fixed to avoid + pasting to a layer that was not added to any image. This was causing + the scripts to abort, because gimp-edit-paste is now failing in that + case. + 2004-03-13 Sven Neumann * app/tools/gimpblendoptions.c: override the "gradient_repeat" diff --git a/plug-ins/script-fu/scripts/carve-it.scm b/plug-ins/script-fu/scripts/carve-it.scm index 03833ef321..e2d87d351b 100644 --- a/plug-ins/script-fu/scripts/carve-it.scm +++ b/plug-ins/script-fu/scripts/carve-it.scm @@ -82,6 +82,7 @@ (gimp-edit-clear inset-layer) (gimp-edit-clear layer1) (gimp-selection-none img) + (gimp-image-add-layer img layer1 0) (copy-layer-carve-it img layer1 bg-image bg-layer) (gimp-edit-clear inset-layer) @@ -89,7 +90,6 @@ (gimp-edit-copy mask-drawable) (gimp-image-add-channel img mask 0) - (gimp-image-add-layer img layer1 0) (plug-in-tile 1 img layer1 width height FALSE) (set! mask-fs (car (gimp-edit-paste mask FALSE))) (gimp-floating-sel-anchor mask-fs) diff --git a/plug-ins/script-fu/scripts/chrome-it.scm b/plug-ins/script-fu/scripts/chrome-it.scm index db875d08dc..b0016941f5 100644 --- a/plug-ins/script-fu/scripts/chrome-it.scm +++ b/plug-ins/script-fu/scripts/chrome-it.scm @@ -124,9 +124,9 @@ (set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (gimp-invert layer2) + (gimp-image-add-layer img layer1 0) (copy-layer-chrome-it img layer1 banding-img banding-layer) (gimp-image-delete banding-img) - (gimp-image-add-layer img layer1 0) (gimp-layer-scale layer1 width height FALSE) (plug-in-gauss-iir 1 img layer1 10 TRUE TRUE) (gimp-layer-set-opacity layer1 50) diff --git a/plug-ins/script-fu/scripts/crystal-logo.scm b/plug-ins/script-fu/scripts/crystal-logo.scm index cb1a8b45d8..d1b4456c53 100644 --- a/plug-ins/script-fu/scripts/crystal-logo.scm +++ b/plug-ins/script-fu/scripts/crystal-logo.scm @@ -118,9 +118,9 @@ (set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (gimp-invert layer2) + (gimp-image-add-layer img layer1 0) (copy-layer-crystal img layer1 banding-img banding-layer) (gimp-image-delete banding-img) - (gimp-image-add-layer img layer1 0) (gimp-layer-scale layer1 width height FALSE) (plug-in-gauss-iir 1 img layer1 10 TRUE TRUE) (gimp-layer-set-opacity layer1 50) @@ -147,9 +147,9 @@ + (gimp-image-add-layer img bg-layer 2) (copy-layer-crystal img bg-layer tile-img tile-layer) (gimp-image-delete tile-img) - (gimp-image-add-layer img bg-layer 2) (set! layer2 (car (gimp-layer-copy bg-layer TRUE))) (gimp-image-add-layer img layer2 1) diff --git a/plug-ins/script-fu/scripts/sota-chrome-logo.scm b/plug-ins/script-fu/scripts/sota-chrome-logo.scm index 50f79f6ea1..076eaaee5a 100644 --- a/plug-ins/script-fu/scripts/sota-chrome-logo.scm +++ b/plug-ins/script-fu/scripts/sota-chrome-logo.scm @@ -119,9 +119,9 @@ (set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (gimp-invert layer2) + (gimp-image-add-layer img layer1 0) (copy-layer-sota img layer1 banding-img banding-layer) (gimp-image-delete banding-img) - (gimp-image-add-layer img layer1 0) (gimp-layer-scale layer1 width height FALSE) (plug-in-gauss-iir 1 img layer1 10 TRUE TRUE) (gimp-layer-set-opacity layer1 50)