P8000/WEGA/contrib/ingres/dbs/src/form/frame.c

33 lines
591 B
C

# include "form.h"
MMframe(frame, line, col)
register struct MM_form *frame;
int line;
int col;
{
register struct MM_form *form;
register int invers;
MMclr_screen(2, 1);
form = frame;
do
{
if (form->f_len)
{
if (invers = form->f_mode & (F_INPUT | F_MENUE))
{
MM_pos(form->f_line, form->f_col);
MM_pts(MM_cs[(form == frame)? CS_SO: CS_SE]);
}
MM_pos(form->f_line, form->f_col + 1);
MM_pta(form->f_field, form->f_len);
if (invers)
MM_pts(MM_cs[CS_SE]);
}
}
while ((form = form->f_next) != frame);
MM_abs_pos(line, col);
return (1);
}