;; -*-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"
		    _"<Image>/Image/Guides/_Remove all Guides"
		    "Removes all horizontal and vertical guides."
		    "Alan Horkan"
		    "Alan Horkan, 2004. Public Domain."
		    "April 2004"
		    ""
		    SF-IMAGE    "Image"    0
		    SF-DRAWABLE "Drawable" 0)