list.frm

CForms, by Lars Berntzon (Stockholm, Sweden), is a tool for building interactive forms-driven applic

/*
 * Test application for CForms.
 * @(#) list.frm,v 1.4 1993/05/10 22:52:01 lasse Exp
 */

Viewport view {
    Pos 0,0;
    Size 80, 23;
}

CCode {
    extern int cur_row;
}

Picture List Viewport View
{
    Literal Center, 1,  "List of persons";
    Literal +0, +1, "---------------";

    Event Key CR { pic_call(picture("welcome"), NULL); }

    Event Key DOWN {
	if (cur_row < 9 && !fld_isempty(NULL)) {
	     fld_move(field("Name%d", ++cur_row));
	}
    }
    Event Key UP   { if (cur_row > 0) fld_move(field("Name%d", --cur_row)); }
    Event Key Left { return; }
    Event Key Right { return; }
    Event Key ESC { pic_leave(); }
    Event Key F8 { pic_leave(); }
    Event Key TAB  forget;

    Field Name0   { Pos 10, 5;   Type Char(20); LValue "["; Protected; }
    Field Adress0 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }
    Field Name1   { Pos -20, +1; Type Char(20); LValue "["; Protected; }
    Field Adress1 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }
    Field Name2   { Pos -20, +1; Type Char(20); LValue "["; Protected; }
    Field Adress2 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }
    Field Name3   { Pos -20, +1; Type Char(20); LValue "["; Protected; }
    Field Adress3 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }
    Field Name4   { Pos -20, +1; Type Char(20); LValue "["; Protected; }
    Field Adress4 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }
    Field Name5   { Pos -20, +1; Type Char(20); LValue "["; Protected; }
    Field Adress5 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }
    Field Name6   { Pos -20, +1; Type Char(20); LValue "["; Protected; }
    Field Adress6 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }
    Field Name7   { Pos -20, +1; Type Char(20); LValue "["; Protected; }
    Field Adress7 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }
    Field Name8   { Pos -20, +1; Type Char(20); LValue "["; Protected; }
    Field Adress8 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }
    Field Name9   { Pos -20, +1; Type Char(20); LValue "["; Protected; }
    Field Adress9 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }

    Literal Center, Max, "(ESC - Leave)";
}