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

				/*				 * 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;				    }				}