diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:23:22 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:23:22 +0000 |
| commit | e42129241681dde7adae7d20697e7b421682fbb4 (patch) | |
| tree | af1fe815a5e639e68e59fabd8395ec69458b3e5e /plug-ins/script-fu/scripts/guides-remove-all.scm | |
| parent | Initial commit. (diff) | |
| download | gimp-e42129241681dde7adae7d20697e7b421682fbb4.tar.xz gimp-e42129241681dde7adae7d20697e7b421682fbb4.zip | |
Adding upstream version 2.10.22.upstream/2.10.22upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'plug-ins/script-fu/scripts/guides-remove-all.scm')
| -rw-r--r-- | plug-ins/script-fu/scripts/guides-remove-all.scm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/plug-ins/script-fu/scripts/guides-remove-all.scm b/plug-ins/script-fu/scripts/guides-remove-all.scm new file mode 100644 index 0000000..61cc3ed --- /dev/null +++ b/plug-ins/script-fu/scripts/guides-remove-all.scm @@ -0,0 +1,30 @@ +;; -*-scheme-*- + +(define (script-fu-guides-remove image drawable) + (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 "script-fu-guides-remove" + _"_Remove all Guides" + _"Remove all horizontal and vertical guides" + "Alan Horkan" + "Alan Horkan, 2004. Public Domain." + "April 2004" + "*" + SF-IMAGE "Image" 0 + SF-DRAWABLE "Drawable" 0 +) + +(script-fu-menu-register "script-fu-guides-remove" + "<Image>/Image/Guides") |