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

21
plug-ins/script-fu/scripts/swirltile.scm
View File

@ -44,18 +44,21 @@
(gimp-context-pop)))
(script-fu-register "script-fu-swirl-tile"
_"<Toolbox>/Xtns/Script-Fu/Patterns/Swirl-_Tile..."
_"Swirl-_Tile..."
"Create an interesting swirled tile"
"Adrian Likins <aklikins@eos.ncsu.edu>"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Depth" '(10 0 64 1 1 0 0)
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 0 0)
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 0 0)
SF-ADJUSTMENT _"Blur radius" '(3 0 128 1 10 0 0)
SF-ADJUSTMENT _"Height" '(256 0 1024 1 10 0 1)
SF-ADJUSTMENT _"Width" '(256 0 1024 1 10 0 1)
SF-ADJUSTMENT _"Whirl amount" '(320 0 360 1 10 0 0)
SF-ADJUSTMENT _"Roughness" '(.5 0 1 .1 .01 2 1)
SF-ADJUSTMENT _"Depth" '(10 0 64 1 1 0 0)
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 0 0)
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 0 0)
SF-ADJUSTMENT _"Blur radius" '(3 0 128 1 10 0 0)
SF-ADJUSTMENT _"Height" '(256 0 1024 1 10 0 1)
SF-ADJUSTMENT _"Width" '(256 0 1024 1 10 0 1)
SF-ADJUSTMENT _"Whirl amount" '(320 0 360 1 10 0 0)
SF-ADJUSTMENT _"Roughness" '(.5 0 1 .1 .01 2 1)
SF-COLOR _"Background color" '(255 255 255))
(script-fu-menu-register "script-fu-swirl-tile"
_"<Toolbox>/Xtns/Script-Fu/Patterns")