home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 June / ccd0605.iso / Software / Complet / The Gimp / gimp-2.2.7-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / guides-remove-all.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2005-05-09  |  788 b   |  28 lines
  1. ;; -*-scheme-*-
  2.  
  3. (define (script-fu-guides-remove image
  4.                  drawable)
  5.   (let* ((guide-id 0))
  6.     (gimp-image-undo-group-start image)
  7.  
  8.     (set! guide-id (car (gimp-image-find-next-guide image 0)))
  9.     (while (> guide-id 0) 
  10.        (gimp-image-delete-guide image guide-id)
  11.        (set! guide-id (car (gimp-image-find-next-guide image 0))))
  12.  
  13.     (gimp-image-undo-group-end image)
  14.     (gimp-displays-flush)))
  15.  
  16. (script-fu-register "script-fu-guides-remove"
  17.             _"_Remove all Guides"
  18.             "Removes all horizontal and vertical guides."
  19.             "Alan Horkan"
  20.             "Alan Horkan, 2004. Public Domain."
  21.             "April 2004"
  22.             ""
  23.             SF-IMAGE    "Image"    0
  24.             SF-DRAWABLE "Drawable" 0)
  25.  
  26. (script-fu-menu-register "script-fu-guides-remove"
  27.              "<Image>/Image/Guides")
  28.