(define (script-fu-test-for-pegleg44 image layer 
			gradient1
			gradient2
			
         )
	
		(let* 
		   (
		   (width (car (gimp-image-width image)))
		   (height (car (gimp-image-height image)))
		   (floating-sel 0)
		   )
			;(gimp-image-undo-disable image); DN = NO UNDO
			(gimp-context-push)
			(gimp-image-undo-group-start image)                   ;undo-group in one step
			
			(gimp-message gradient1)
			(gimp-message gradient2)
		   ;(gimp-image-undo-enable image) ;DN = NO UNDO
			(gimp-image-undo-group-end image)                     ;undo group in one step
			(gimp-context-pop)
			(gimp-displays-flush)
	    )
	
	
    
) ;end of define
(script-fu-register
  "script-fu-test-for-pegleg44"         ;function name
  "<Image>/Script-Fu/test-for-PegLeg44 ..."    ;menu register
  "Steps described by PegLeg44 "       ;description
  "Tin Tran"                          ;author name
  "copyright info and description"         ;copyright info or description
  "2016"                          ;date
  "RGB*, GRAY*"                        ;mode
  SF-IMAGE      "Image" 0                   
  SF-DRAWABLE   "Layer" 0
  SF-GRADIENT   "Gradient 1"           ""
  SF-GRADIENT   "Gradient 2"           ""
  ;SF-STRING     "Text" "Gimp Chat"
)