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

@@ -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)

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)) 
+    (while (> (car (gimp-image-get-item-position img layer1)) 
-              (car (gimp-image-get-layer-position img shadow)))
+              (car (gimp-image-get-item-position img shadow)))
-      (gimp-image-raise-layer img layer1)
+      (gimp-image-raise-item img layer1)
     )
     (gimp-invert layer1)
     (gimp-layer-add-mask layer1 layer-mask)

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."
   ""
   ""
   ""

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)

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)

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)

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))

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)

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

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)
     )
   )
 )

plug-ins/script-fu/scripts/selection-round.scm

@@ -146,8 +146,8 @@
 )
 
 
-(define (script-fu-selection-round image drawable radius)
+(define (script-fu-selection-rounded-rectangle image drawable radius)
-  (script-fu-selection-rounded-rectangle image drawable (* radius 100) FALSE)
+  (script-fu-selection-rounded-rectangle 0 image drawable (* radius 100) FALSE)
 )
 
 

plug-ins/script-fu/scripts/slide.scm

@@ -214,8 +214,8 @@
   )
 
 ; reorder the layers
-  (gimp-image-raise-layer image pic-layer)
+  (gimp-image-raise-item image pic-layer)
-  (gimp-image-raise-layer image pic-layer)
+  (gimp-image-raise-item image pic-layer)
 
 ; eventually rotate the whole thing back
   (if (< ratio 1)

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)

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-item img text-layer)
-    (gimp-image-raise-layer img text-layer)
+    (gimp-image-raise-item img text-layer)
-    (gimp-image-raise-layer 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)