File: guides-remove-all.scm

package info (click to toggle)
gimp 2.2.13-1etch4
  • links: PTS
  • area: main
  • in suites: etch
  • size: 94,832 kB
  • ctags: 47,113
  • sloc: ansic: 524,858; xml: 36,798; lisp: 9,870; sh: 9,409; makefile: 7,923; python: 2,674; perl: 2,589; yacc: 520; lex: 334
file content (27 lines) | stat: -rw-r--r-- 788 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
;; -*-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"
		    "Removes 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")