ok.frm

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

/*
 * Test application for CForms.
 * @(#) ok.frm,v 1.4 1993/01/08 16:32:02 lasse Exp
 */

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

Picture Ok Viewport popup {

    Frame;

    Event Key CR {
	pic_leave();
    }

    Event Exit {
	fld_cattr(NULL, FLD_HIGHLIGHT);
    }

    Event Entry {
	fld_sattr(NULL, FLD_HIGHLIGHT);
    }

    Field ok {
	Pos 6, 1;
	Type Char(2);
	LValue "[";
	Value "OK";
	RValue "]";
	Protected;
	Highlight;
    }

    Field cancel {
	Pos +13, +0;
	Type Char(6);
	LValue "[";
	Value "CANCEL";
	RValue "]";
	Protected;
    }
}