Commit 5e015aeb authored by Kevin Cozens's avatar Kevin Cozens

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.
parent c166e494
......@@ -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)
......
......@@ -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)
......
......@@ -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."
""
""
""
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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))
......
......@@ -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)
......
......@@ -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
......
......@@ -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)
)
)
)
......
......@@ -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)
)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment