; Changed menuu entry

(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 1) ;  img layer  =>   layer 1

   (gimp-display-new img)
   (gimp-image-undo-enable img)  
)

   (script-fu-register "uni-img"
      "<Toolbox>/Xtns/Script-Fu/Test/Uniform image..."
      "Creates a uniform image"
      "Dov Grobgeld"
      "Dov Grobgeld"
      "1997"
      ""
      SF-VALUE "size" "100"
      SF-COLOR "color" '(255 127 0) 
   )