summaryrefslogtreecommitdiffstats
path: root/plug-ins/script-fu/scripts/guides-remove-all.scm
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-07 18:30:19 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-07 18:30:19 +0000
commit5c1676dfe6d2f3c837a5e074117b45613fd29a72 (patch)
treecbffb45144febf451e54061db2b21395faf94bfe /plug-ins/script-fu/scripts/guides-remove-all.scm
parentInitial commit. (diff)
downloadgimp-5c1676dfe6d2f3c837a5e074117b45613fd29a72.tar.xz
gimp-5c1676dfe6d2f3c837a5e074117b45613fd29a72.zip
Adding upstream version 2.10.34.upstream/2.10.34upstream
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.scm30
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")