[gimp] First stage in removing use of deprecated functions in Script-Fu scripts

[Kevin Cozens <kcozens src gnome org>]

commit 5e015aebbaaa663d03cc6f47a58cbeaf56b08418
Author: Kevin Cozens <kcozens svn gnome org>
Date:   Sun Oct 30 02:37:26 2011 -0400

    First stage in removing use of deprecated functions in Script-Fu scripts
    
    This commit replaces the names of deprecated procedures with the name of
    the new procedure where the new procedure takes the same argument list.

 plug-ins/script-fu/scripts/blended-logo.scm       |    2 +-
 plug-ins/script-fu/scripts/chrome-logo.scm        |    6 +++---
 plug-ins/script-fu/scripts/copy-visible.scm       |    2 +-
 plug-ins/script-fu/scripts/drop-shadow.scm        |    2 +-
 plug-ins/script-fu/scripts/frosty-logo.scm        |    2 +-
 plug-ins/script-fu/scripts/perspective-shadow.scm |    2 +-
 plug-ins/script-fu/scripts/reverse-layers.scm     |    2 +-
 plug-ins/script-fu/scripts/round-corners.scm      |    4 ++--
 plug-ins/script-fu/scripts/script-fu-set-cmap.scm |    2 +-
 plug-ins/script-fu/scripts/script-fu-util.scm     |    2 +-
 plug-ins/script-fu/scripts/selection-round.scm    |    4 ++--
 plug-ins/script-fu/scripts/slide.scm              |    4 ++--
 plug-ins/script-fu/scripts/textured-logo.scm      |    2 +-
 plug-ins/script-fu/scripts/title-header.scm       |    6 +++---
 14 files changed, 21 insertions(+), 21 deletions(-)
---
diff --git a/plug-ins/script-fu/scripts/blended-logo.scm b/plug-ins/script-fu/scripts/blended-logo.scm
index ccbc8b8..3f7d7a2 100644
--- a/plug-ins/script-fu/scripts/blended-logo.scm
+++ b/plug-ins/script-fu/scripts/blended-logo.scm
@@ -45,7 +45,7 @@
 
     (script-fu-util-image-resize-from-layer img logo-layer)
     (script-fu-util-image-add-layers img text-shadow-layer drop-shadow-layer blend-layer shadow-layer)
-    (gimp-image-raise-layer img text-shadow-layer)
+    (gimp-image-raise-item img text-shadow-layer)
     (gimp-selection-none img)
     (gimp-edit-clear text-shadow-layer)
     (gimp-edit-clear drop-shadow-layer)
diff --git a/plug-ins/script-fu/scripts/chrome-logo.scm b/plug-ins/script-fu/scripts/chrome-logo.scm
index cf2f271..6ce0065 100644
--- a/plug-ins/script-fu/scripts/chrome-logo.scm
+++ b/plug-ins/script-fu/scripts/chrome-logo.scm
@@ -44,9 +44,9 @@
     (gimp-selection-none img)
     (set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
     ; if the original image contained more than one visible layer:
-    (while (> (car (gimp-image-get-layer-position img layer1)) 
-              (car (gimp-image-get-layer-position img shadow)))
-      (gimp-image-raise-layer img layer1)
+    (while (> (car (gimp-image-get-item-position img layer1)) 
+              (car (gimp-image-get-item-position img shadow)))
+      (gimp-image-raise-item img layer1)
     )
     (gimp-invert layer1)
     (gimp-layer-add-mask layer1 layer-mask)
diff --git a/plug-ins/script-fu/scripts/copy-visible.scm b/plug-ins/script-fu/scripts/copy-visible.scm
index 9c831e2..cad5e9a 100644
--- a/plug-ins/script-fu/scripts/copy-visible.scm
+++ b/plug-ins/script-fu/scripts/copy-visible.scm
@@ -39,7 +39,7 @@
 
 (script-fu-register "script-fu-copy-visible"
   "Copy Visible"
-  "This procedure is deprecated! use \'gimp-edit-copy-visible\' instead."
+  "This procedure is deprecated! Use \'gimp-edit-copy-visible\' instead."
   ""
   ""
   ""
diff --git a/plug-ins/script-fu/scripts/drop-shadow.scm b/plug-ins/script-fu/scripts/drop-shadow.scm
index 8ec6d83..d925555 100644
--- a/plug-ins/script-fu/scripts/drop-shadow.scm
+++ b/plug-ins/script-fu/scripts/drop-shadow.scm
@@ -153,7 +153,7 @@
   (if (and
        (= (car (gimp-layer-is-floating-sel drawable)) 0)
        (= from-selection FALSE))
-      (gimp-image-raise-layer image drawable))
+      (gimp-image-raise-item image drawable))
 
   (gimp-image-set-active-layer image drawable)
   (gimp-image-undo-group-end image)
diff --git a/plug-ins/script-fu/scripts/frosty-logo.scm b/plug-ins/script-fu/scripts/frosty-logo.scm
index 0d45b8e..6ab0072 100644
--- a/plug-ins/script-fu/scripts/frosty-logo.scm
+++ b/plug-ins/script-fu/scripts/frosty-logo.scm
@@ -30,7 +30,7 @@
         (bg-layer (car (gimp-layer-new img width height RGB-IMAGE
                                        "Background" 100 NORMAL-MODE)))
         (selection 0)
-        (stack (car(gimp-image-get-layer-position img logo-layer)))
+        (stack (car(gimp-image-get-item-position img logo-layer)))
         )
 
     (gimp-context-push)
diff --git a/plug-ins/script-fu/scripts/perspective-shadow.scm b/plug-ins/script-fu/scripts/perspective-shadow.scm
index c4deaf4..0d9c78b 100644
--- a/plug-ins/script-fu/scripts/perspective-shadow.scm
+++ b/plug-ins/script-fu/scripts/perspective-shadow.scm
@@ -181,7 +181,7 @@
   (if (and
        (= (car (gimp-layer-is-floating-sel drawable)) 0)
        (= from-selection FALSE))
-      (gimp-image-raise-layer image drawable))
+      (gimp-image-raise-item image drawable))
 
   (gimp-image-set-active-layer image drawable)
   (gimp-image-undo-group-end image)
diff --git a/plug-ins/script-fu/scripts/reverse-layers.scm b/plug-ins/script-fu/scripts/reverse-layers.scm
index 5460591..63a3102 100644
--- a/plug-ins/script-fu/scripts/reverse-layers.scm
+++ b/plug-ins/script-fu/scripts/reverse-layers.scm
@@ -27,7 +27,7 @@
     (while (>= i 0)
            (let ((layer (aref layer-array i)))
              (if (= (car (gimp-layer-is-floating-sel layer)) FALSE)
-                 (gimp-image-lower-layer-to-bottom img layer))
+                 (gimp-image-lower-item-to-bottom img layer))
            )
 
            (set! i (- i 1))
diff --git a/plug-ins/script-fu/scripts/round-corners.scm b/plug-ins/script-fu/scripts/round-corners.scm
index 1a9e241..cecbb5d 100644
--- a/plug-ins/script-fu/scripts/round-corners.scm
+++ b/plug-ins/script-fu/scripts/round-corners.scm
@@ -106,9 +106,9 @@
                                             NORMAL-MODE))))
         (gimp-drawable-fill bg-layer BACKGROUND-FILL)
         (gimp-image-insert-layer image bg-layer 0 -1)
-        (gimp-image-raise-layer image pic-layer)
+        (gimp-image-raise-item image pic-layer)
         (if (= shadow-toggle TRUE)
-            (gimp-image-lower-layer image bg-layer))))
+            (gimp-image-lower-item image bg-layer))))
 
 ; clean up after the script
   (if (= work-on-copy TRUE)
diff --git a/plug-ins/script-fu/scripts/script-fu-set-cmap.scm b/plug-ins/script-fu/scripts/script-fu-set-cmap.scm
index ec1f347..0f103f5 100644
--- a/plug-ins/script-fu/scripts/script-fu-set-cmap.scm
+++ b/plug-ins/script-fu/scripts/script-fu-set-cmap.scm
@@ -4,7 +4,7 @@
 ; Change the colourmap of an image to the colours in a specified palette.
 ; Included is script-fu-make-cmap-array (available for use in scripts) which
 ; returns an INT8ARRAY containing the colours from a specified palette.
-; This array can be used as the cmap argument for gimp-image-set-cmap.
+; This array can be used as the cmap argument for gimp-image-set-colormap.
 
 ; GIMP - The GNU Image Manipulation Program
 ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
diff --git a/plug-ins/script-fu/scripts/script-fu-util.scm b/plug-ins/script-fu/scripts/script-fu-util.scm
index 3a750dd..546b1ed 100644
--- a/plug-ins/script-fu/scripts/script-fu-util.scm
+++ b/plug-ins/script-fu/scripts/script-fu-util.scm
@@ -39,7 +39,7 @@
     (let ((layer (car layers)))
       (set! layers (cdr layers))
       (gimp-image-insert-layer image layer 0 -1)
-      (gimp-image-lower-layer image layer)
+      (gimp-image-lower-item image layer)
     )
   )
 )
diff --git a/plug-ins/script-fu/scripts/selection-round.scm b/plug-ins/script-fu/scripts/selection-round.scm
index 6c120c7..511f476 100644
--- a/plug-ins/script-fu/scripts/selection-round.scm
+++ b/plug-ins/script-fu/scripts/selection-round.scm
@@ -146,8 +146,8 @@
 )
 
 
-(define (script-fu-selection-round image drawable radius)
-  (script-fu-selection-rounded-rectangle image drawable (* radius 100) FALSE)
+(define (script-fu-selection-rounded-rectangle image drawable radius)
+  (script-fu-selection-rounded-rectangle 0 image drawable (* radius 100) FALSE)
 )
 
 
diff --git a/plug-ins/script-fu/scripts/slide.scm b/plug-ins/script-fu/scripts/slide.scm
index 4f26c59..20154a1 100644
--- a/plug-ins/script-fu/scripts/slide.scm
+++ b/plug-ins/script-fu/scripts/slide.scm
@@ -214,8 +214,8 @@
   )
 
 ; reorder the layers
-  (gimp-image-raise-layer image pic-layer)
-  (gimp-image-raise-layer image pic-layer)
+  (gimp-image-raise-item image pic-layer)
+  (gimp-image-raise-item image pic-layer)
 
 ; eventually rotate the whole thing back
   (if (< ratio 1)
diff --git a/plug-ins/script-fu/scripts/textured-logo.scm b/plug-ins/script-fu/scripts/textured-logo.scm
index dfee7b3..0dde4f1 100644
--- a/plug-ins/script-fu/scripts/textured-logo.scm
+++ b/plug-ins/script-fu/scripts/textured-logo.scm
@@ -40,7 +40,7 @@
 
     (script-fu-util-image-resize-from-layer img logo-layer)
     (script-fu-util-image-add-layers img text-shadow-layer drop-shadow-layer blend-layer shadow-layer)
-    (gimp-image-raise-layer img text-shadow-layer)
+    (gimp-image-raise-item img text-shadow-layer)
     (gimp-selection-all img)
     (gimp-context-set-pattern text-pattern)
     (gimp-layer-set-lock-alpha logo-layer TRUE)
diff --git a/plug-ins/script-fu/scripts/title-header.scm b/plug-ins/script-fu/scripts/title-header.scm
index 61554d7..ca7ab56 100644
--- a/plug-ins/script-fu/scripts/title-header.scm
+++ b/plug-ins/script-fu/scripts/title-header.scm
@@ -89,9 +89,9 @@
     (gimp-image-insert-layer img bumpmap-layer 0 -1)
     (gimp-image-insert-layer img fore-layer 0 -1)
 ;    (gimp-image-insert-layer img text-layer 0 -1)
-    (gimp-image-raise-layer img text-layer)
-    (gimp-image-raise-layer img text-layer)
-    (gimp-image-raise-layer img text-layer)
+    (gimp-image-raise-item img text-layer)
+    (gimp-image-raise-item img text-layer)
+    (gimp-image-raise-item img text-layer)
     (gimp-layer-set-offsets bg-layer 0 0)
     (gimp-layer-set-offsets text-layer text-layers-offset 0)
     (gimp-layer-set-offsets bumpmap-layer text-layers-offset 0)