home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / LNF / SCREEN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-04  |  1.1 KB  |  51 lines
  1. /*
  2.     screen.c
  3.     generated by Look & Feel version 3.2 from sample.lnf
  4.     11/04/90
  5. */
  6.  
  7. #include <stdio.h>
  8. #include "cscape.h"
  9. #include "teddecl.h"
  10. #include "msys.h"
  11. #include "sled.h"
  12.  
  13. int test(char *Name, char *Address1, char *Address2, char *Phone)
  14. {
  15.     menu_type    menu;
  16.     sed_type    sed;
  17.     int         ret;
  18.  
  19.     menu = menu_Open();
  20.  
  21.     menu_Printf(menu, "\n@[12, ]Name:\n\n@[9, ]Address:@[7, ]\n@[9, ]Address:@[37, ]\n    Phone Number:");
  22.  
  23.     menu_Printf(menu, "@p[1,18]@f[@[22,#]]",
  24.       Name, &string_funcs);
  25.     menu_Printf(menu, "@p[3,18]@f[@[22,#]]",
  26.       Address1, &string_funcs);
  27.     menu_Printf(menu, "@p[4,18]@f[@[22,#]]",
  28.       Address2, &string_funcs);
  29.     menu_Printf(menu, "@p[5,18]@f[(###) ###-####]",
  30.       Phone, &digit_funcs);
  31.  
  32.     menu_Flush(menu);
  33.  
  34.     sed = sed_Open(menu);
  35.     sed_SetColors(sed, 0x17, 0x1b, 0x1d);
  36.  
  37.     sed_SetBorder(sed, bd_box);
  38.     sed_SetBorderColor(sed, 0x1e);
  39.     sed_SetBorderTitle(sed, "Look & Feel makes life easy");
  40.     sed_SetPosition(sed, 4, 11);
  41.     sed_SetHeight(sed, 8);
  42.     sed_SetWidth(sed, 46);
  43.     sed_SetShadowAttr(sed, 0x01);
  44.  
  45.     sed_Repaint(sed);
  46.     ret = sed_Go(sed);
  47.  
  48.     sed_Close(sed);
  49.     return(ret);
  50. }
  51.