(define (script-fu-jamcam-all)
	(let* ( 
		(image-num  (car (gimp-image-list)) )
		(image-ids  (cadr (gimp-image-list)) ) 
		(counter 0)
	      )
		(while (< counter image-num)
			(let* (
				(image (aref image-ids counter)) 
			      )
				(script-fu-jamcam image (car (gimp-image-get-active-drawable image)))
				(set! counter (+ counter 1))
			)
		)
	)
)

(script-fu-register "script-fu-jamcam-all"
		    _"_JamCam All Windows..."
		    "Fixes up JamCam pictures."
		    "John Kawakami <johnk@riceball.com>"
		    "John Kawakami"
		    "8/28/2006"
		    "RGB*")

(script-fu-menu-register "script-fu-jamcam-all"
			 _"<Toolbox>/Xtns/Script-Fu/JamCam")