#	@(#)Text.spell	13.1 (RC International) 91/07/25

#ident	"@(#)face:OBJECTS/Text.spell	1.1"

title="Results of Spell on ${TT}"
framemsg=const "Press the CANCEL function key to cancel."
lifetime=longterm

begrow=any
begcol=any

close=`unset -l HMSG -l LL -l TT; rm -f /tmp/f.sp.${VPID}`

`pathconv -t -v "${ARG1}"|set -l TT;
/usr/bin/spell "$ARG1" > /tmp/f.sp.${VPID};
if [ -s /tmp/f.sp.${VPID} ];
then
	set -l HMSG="
What follows is the output of spell:
";
	echo "rows=18";
else
	set -l HMSG="
Spell detected no errors in ${TT}.
";
	echo "rows=4";
fi`

header="${HMSG}"

text="`readfile /tmp/f.sp.${VPID}`"
columns=`longline | set -l LL;
if [ "${LL}" -gt "72" ];
then
	echo 72;
elif [ "${LL}" -lt "48" ];
then
	echo 48;
else
	echo ${LL};
fi`