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

Script-Fu string cleanup/simplification: apply the same fix for menu path

Browse Source 
2004-11-18  Michael Natterer  <mitch@gimp.org>

	Script-Fu string cleanup/simplification: apply the same fix for
	menu path translation that was done for plug-ins a while ago.

	* plug-ins/script-fu/script-fu.c (script_fu_auxillary_init): use
	gimp_plugin_menu_register() on the "Refresh" temp_proc.

	* plug-ins/script-fu/scripts/*.scm: ported all scripts to use
	script-fu-menu-register and pass just the menu label in
	script-fu-register. Cleaned up all register calls to share a
	somewhat similar formatting.
This commit is contained in:
Michael Natterer
2004-11-18 22:44:28 +00:00
committed by Michael Natterer
parent 2d4aad8683
commit 8a46203e5a
100 changed files with 1121 additions and 787 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
plug-ins/script-fu/scripts/script-fu-util.scm
View File

@ -19,13 +19,11 @@
; The resulting image has the selected layer size.
; Copyright (C) 2002 Chauk-Mean PROUM
;
(define (script-fu-util-image-resize-from-layer image layer)
(let*
((width (car (gimp-drawable-width layer)))
(height (car (gimp-drawable-height layer)))
(posx (- (car (gimp-drawable-offsets layer))))
(posy (- (cadr (gimp-drawable-offsets layer)))))
(gimp-image-resize image width height posx posy)
)
)
(define (script-fu-util-image-resize-from-layer image
layer)
(let*
((width (car (gimp-drawable-width layer)))
(height (car (gimp-drawable-height layer)))
(posx (- (car (gimp-drawable-offsets layer))))
(posy (- (cadr (gimp-drawable-offsets layer)))))
(gimp-image-resize image width height posx posy)))