callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
This commit replaces the names of deprecated procedures with the name of
the new procedure where the new procedure takes the same argument list.
This commit is contained in:
Kevin Cozens
2011-10-30 02:37:26 -04:00
parent c166e494ce
commit 5e015aebba
14 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
plug-ins/script-fu/scripts/blended-logo.scm
View File

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

6
plug-ins/script-fu/scripts/chrome-logo.scm
View File

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

2
plug-ins/script-fu/scripts/copy-visible.scm
View File

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

2
plug-ins/script-fu/scripts/drop-shadow.scm
View File

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

2
plug-ins/script-fu/scripts/frosty-logo.scm
View File

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

2
plug-ins/script-fu/scripts/perspective-shadow.scm
View File

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

2
plug-ins/script-fu/scripts/reverse-layers.scm
View File

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

4
plug-ins/script-fu/scripts/round-corners.scm
View File

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

2
plug-ins/script-fu/scripts/script-fu-set-cmap.scm
View File

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

2
plug-ins/script-fu/scripts/script-fu-util.scm
View File

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

4
plug-ins/script-fu/scripts/selection-round.scm
View File

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

4
plug-ins/script-fu/scripts/slide.scm
View File

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

2
plug-ins/script-fu/scripts/textured-logo.scm
View File

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

6
plug-ins/script-fu/scripts/title-header.scm
View File

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