[gimp/metadata-browser] Removed use of deprecated functions in two Script-Fu scripts (bug #647834)



commit b3ef757ae1f3e7781df43d347fec14671d63c513
Author: Alexis Wilhelm <alexiswilhelm gmail com>
Date:   Sat Nov 5 20:13:02 2011 +0100

    Removed use of deprecated functions in two Script-Fu scripts (bug #647834)

 plug-ins/script-fu/scripts/crystal-logo.scm    |    6 +++---
 plug-ins/script-fu/scripts/select-to-image.scm |    2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/plug-ins/script-fu/scripts/crystal-logo.scm b/plug-ins/script-fu/scripts/crystal-logo.scm
index 103232f..2d83f18 100644
--- a/plug-ins/script-fu/scripts/crystal-logo.scm
+++ b/plug-ins/script-fu/scripts/crystal-logo.scm
@@ -124,7 +124,7 @@
     (gimp-edit-fill layer3 BACKGROUND-FILL)
     (gimp-item-set-visible text-layer FALSE)
 
-    (gimp-selection-layer-alpha text-layer)
+    (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer)
     (gimp-context-set-background '(0 0 0))
     (gimp-selection-translate img offx1 offy1)
     (gimp-selection-feather img feather)
@@ -146,7 +146,7 @@
 
     (set! layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK)))
     (gimp-layer-add-mask layer1 layer-mask)
-    (gimp-selection-layer-alpha text-layer)
+    (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer)
     (gimp-context-set-background '(255 255 255))
     (gimp-edit-fill layer-mask BACKGROUND-FILL)
 
@@ -173,7 +173,7 @@
     (plug-in-displace RUN-NONINTERACTIVE img layer2 displace displace TRUE TRUE disp-map disp-map 0)
     (set! layer-mask2 (car (gimp-layer-create-mask layer2 ADD-BLACK-MASK)))
     (gimp-layer-add-mask layer2 layer-mask2)
-    (gimp-selection-layer-alpha text-layer)
+    (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer)
     (gimp-context-set-background '(255 255 255))
     (gimp-edit-fill layer-mask2 BACKGROUND-FILL)
 
diff --git a/plug-ins/script-fu/scripts/select-to-image.scm b/plug-ins/script-fu/scripts/select-to-image.scm
index 9c1413a..eb0496f 100644
--- a/plug-ins/script-fu/scripts/select-to-image.scm
+++ b/plug-ins/script-fu/scripts/select-to-image.scm
@@ -43,7 +43,7 @@
 
     (if (= (car (gimp-selection-is-empty image)) TRUE)
         (begin
-          (gimp-selection-layer-alpha drawable)
+          (gimp-image-select-item image CHANNEL-OP-REPLACE drawable)
           (set! active-selection (car (gimp-selection-save image)))
           (set! from-selection FALSE)
         )



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]