#!/usr/local/bin/wish8.0
#!/home/jmc/bin/wish4.2
#
# Sample script that takes one or more graphic-file names on
# the command line and pops up windows that show the pictures.

set B 1
set D 1000
set P 0
set R ridge
wm withdraw .
set n 0
foreach f $argv {
	puts "$f"
	incr n
	if [catch {image create photo image$n -file $f} x] {
		puts "Can't load $f: $x"
	} else {
		after $D
		toplevel .w$n
		wm title .w$n $f
		label .w$n.l -image image$n -bd $B -relief $R
		pack  .w$n.l -side top -padx $P -pady $P -expand 1
		update
	}
}
puts "Done."