foreach i [glob *.gif] {
	set basename [file root $i]
	image create photo $basename -file $i
}
