callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

app/actions/image-actions.c added menu branch "<Image>/Image/Guides".

Browse Source 
2004-10-13  Michael Natterer  <mitch@gimp.org>

	* app/actions/image-actions.c
	* menus/image-menu.xml.in: added menu branch "<Image>/Image/Guides".

	* plug-ins/script-fu/scripts/Makefile.am
	* plug-ins/script-fu/scripts/guides-from-selection.scm
	* plug-ins/script-fu/scripts/guides-new-percent.scm
	* plug-ins/script-fu/scripts/guides-new.scm
	* plug-ins/script-fu/scripts/guides-remove-all.scm: added new
	scripts from Alan Horkan. Fixes bug #119667.
This commit is contained in:
Michael Natterer
2004-10-13 12:58:51 +00:00
committed by Michael Natterer
parent c94147a16c
commit c85906af87
8 changed files with 149 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
plug-ins/script-fu/scripts/guides-remove-all.scm Normal file
View File

@ -0,0 +1,24 @@
;; -*-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)