#
# View bitmaps
#

set fr .fr

pack [frame $fr ] -anc nw -expand 1 -fill both

set r 0
set c 0
foreach f [glob *.cad] {
	set nf $fr.r${r}c${c}
	grid [frame $nf -bd 1 -relief raised ] -row $r -col $c
	pack [label $nf.lb -bitmap @$f]
	pack [label $nf.nm -text [file rootname $f]]
	incr c
	if { $c > 9 } { set c 0 ; incr r }
}

