#!/usr/bin/wish

set imzahl 1

proc loadimage {name} {
	set rt [image create photo .i-$imzahl]
	exec djpeg -gif $name ">" $name.gif
	.i-$imzahl read $name.gif
	exec rm $name.gif
	set imzahl [ expr $imzahl+1 ] 
	return $rt
}

set i 1

while 	[exec cutil -nq $i x.jpg ] {
	set i [ expr $i+1 ]
	set imn [loadimage x.jpg]
	label .l.$imn image $imn
	pack .l.$imn
}

