system.frm

来自「CForms, by Lars Berntzon (Stockholm, Swe」· FRM 代码 · 共 37 行

/*
 * Test application for CForms.
 * @(#) system.frm,v 1.2 1993/05/31 20:09:02 lasse Exp
 */

Viewport popup
{
    Pos 35,12;
    Size 30, 4;
}

Picture System Viewport popup
{
    Frame;
    Event Key F8 { pic_leave(); }
    Event Key Esc { pic_leave(); }

    Field System {
	Pos Center, Center;
	Type Char(25);
	LValue "[";
	Value "ls";
	RValue "]";

	Event Key CR {
	    if (!fld_isempty(NULL))
	    {
		/*cforms_system(fld_get(NULL), NULL);*/
		cforms_system(fld_get(NULL), "(Press Enter)");
	    }
	}
    }
    Literal +0, -1, "Enter system command:";
}