5e015aebba
This commit replaces the names of deprecated procedures with the name of the new procedure where the new procedure takes the same argument list.
54 lines
1.6 KiB
Scheme
54 lines
1.6 KiB
Scheme
; reverse-layers.scm: Reverse the order of layers in the current image.
|
|
; Copyright (C) 2006 by Akkana Peck.
|
|
;
|
|
; This program is free software: you can redistribute it and/or modify
|
|
; it under the terms of the GNU General Public License as published by
|
|
; the Free Software Foundation; either version 3 of the License, or
|
|
; (at your option) any later version.
|
|
;
|
|
; This program is distributed in the hope that it will be useful,
|
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
; GNU General Public License for more details.
|
|
;
|
|
; You should have received a copy of the GNU General Public License
|
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(define (script-fu-reverse-layers img drawable)
|
|
(let* (
|
|
(layers (gimp-image-get-layers img))
|
|
(num-layers (car layers))
|
|
(layer-array (cadr layers))
|
|
(i (- num-layers 1))
|
|
)
|
|
|
|
(gimp-image-undo-group-start img)
|
|
|
|
(while (>= i 0)
|
|
(let ((layer (aref layer-array i)))
|
|
(if (= (car (gimp-layer-is-floating-sel layer)) FALSE)
|
|
(gimp-image-lower-item-to-bottom img layer))
|
|
)
|
|
|
|
(set! i (- i 1))
|
|
)
|
|
|
|
(gimp-image-undo-group-end img)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-reverse-layers"
|
|
_"Reverse Layer Order"
|
|
_"Reverse the order of layers in the image"
|
|
"Akkana Peck"
|
|
"Akkana Peck"
|
|
"August 2006"
|
|
"*"
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Drawable" 0
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-reverse-layers"
|
|
"<Image>/Layer/Stack")
|