register scm script

[Xavier Mas <xaviermasr@xxxxxxxxx>]

Hi list,

I can't register the following script  when I refresh the server and don't 
know what's wrong with it. Any suggestions?
---
define (uni-img size color)
(set! img (car (gimp-image-new- size size RGB)))
(set! layer (car (gimp-layer-new img size size RGB "layer 1" 100 NORMAL)))
(gimp-image-undo-disable img)
(gimp-image-add-layer img layer 0)
(gimp-palette-set-background color)
(gimp-edit-fill layer BG-IMAGE-FILL)
(gimp-display-new img)
(gimp-image-undo-enable img))
(script-fu-register 	"uni-img"
			"uni-img"
			"uni-img"
			"uni-img <uni-img@xxxxxxxxxxx>"
			"uni-img"
			"04/05/2008"
			""
		SF-VALUE "size" "100"
		SF-COLOR "color" '(255 127 0))
(script-fu-menu-register "uni-img" "<Toolbox>/Script_Fu/Tutorials")
--
Thank you for your help.

-- 
Xavier Mas
_______________________________________________
Gimp-user mailing list
Gimp-user@xxxxxxxxxxxxxxxxxxxxxx
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user