#!/usr/bin/wksh -motif

do_Apply() {
	gv $F dirSpec:dir
	echo "${1:-apply} selected with $dir"
}

ai TOPLEVEL filesd Filesd "$@"

crtfilesb F $TOPLEVEL F \
	dirMask:'*' \
	applyCallback:do_Apply 	\
	cancelCallback:"do_Apply cancell" \
	okCallback:"do_Apply ok" \
	helpCallback:"do_Apply help"

mc $F

rw $TOPLEVEL
ml
