home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QBasic & Borland Pascal & C
/
Delphi5.iso
/
C
/
Samples
/
CSAPE32.ARJ
/
LNF
/
SCREEN.C
< prev
next >
Wrap
C/C++ Source or Header
|
1990-11-04
|
1KB
|
51 lines
/*
screen.c
generated by Look & Feel version 3.2 from sample.lnf
11/04/90
*/
#include <stdio.h>
#include "cscape.h"
#include "teddecl.h"
#include "msys.h"
#include "sled.h"
int test(char *Name, char *Address1, char *Address2, char *Phone)
{
menu_type menu;
sed_type sed;
int ret;
menu = menu_Open();
menu_Printf(menu, "\n@[12, ]Name:\n\n@[9, ]Address:@[7, ]\n@[9, ]Address:@[37, ]\n Phone Number:");
menu_Printf(menu, "@p[1,18]@f[@[22,#]]",
Name, &string_funcs);
menu_Printf(menu, "@p[3,18]@f[@[22,#]]",
Address1, &string_funcs);
menu_Printf(menu, "@p[4,18]@f[@[22,#]]",
Address2, &string_funcs);
menu_Printf(menu, "@p[5,18]@f[(###) ###-####]",
Phone, &digit_funcs);
menu_Flush(menu);
sed = sed_Open(menu);
sed_SetColors(sed, 0x17, 0x1b, 0x1d);
sed_SetBorder(sed, bd_box);
sed_SetBorderColor(sed, 0x1e);
sed_SetBorderTitle(sed, "Look & Feel makes life easy");
sed_SetPosition(sed, 4, 11);
sed_SetHeight(sed, 8);
sed_SetWidth(sed, 46);
sed_SetShadowAttr(sed, 0x01);
sed_Repaint(sed);
ret = sed_Go(sed);
sed_Close(sed);
return(ret);
}