21d24467ad
Resolves #10651 The "Remove All Guides" script calls gimp-image-find-next-guide, which per its description can take in 0. However, the parameter sets 1 as the minimum value. This patch fixes the range so that it can accept 0, which enables the Remove All Guides script to work again. It also updates the script to the new multi-layer aware API.
30 lines
738 B
Scheme
30 lines
738 B
Scheme
;; -*-scheme-*-
|
|
|
|
(define (script-fu-guides-remove image drawables)
|
|
(let* ((guide-id 0))
|
|
(gimp-image-undo-group-start image)
|
|
|
|
(set! guide-id (car (gimp-image-find-next-guide image 0)))
|
|
(while (> guide-id 0)
|
|
(gimp-image-delete-guide image guide-id)
|
|
(set! guide-id (car (gimp-image-find-next-guide image 0)))
|
|
)
|
|
|
|
(gimp-image-undo-group-end image)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register-filter "script-fu-guides-remove"
|
|
_"_Remove all Guides"
|
|
_"Remove all horizontal and vertical guides"
|
|
"Alan Horkan"
|
|
"Alan Horkan, 2004. Public Domain."
|
|
"April 2004"
|
|
"*"
|
|
SF-ONE-OR-MORE-DRAWABLE
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-guides-remove"
|
|
"<Image>/Image/Guides")
|