home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / EXAMPLES / NEWSCREE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-03-09  |  1.3 KB  |  67 lines
  1. /*
  2.     newscree.c
  3.     generated by Look & Feel version 3.2 from sample.lnf
  4.     02/25/91
  5. */
  6.  
  7. #include <stdio.h>
  8. #include "cscape.h"
  9. #include "ostdlib.h"
  10. #include "teddecl.h"
  11. #include "msys.h"
  12. #include "sled.h"
  13.  
  14. static char  x_text_value[81];
  15. static int      x_integer_var;
  16.  
  17. int newscreen(char *t,int *i);
  18.  
  19. int main()
  20. {
  21.     disp_Init(def_ModeText, FNULL);
  22.     hard_InitMouse();
  23.     sedwin_ClassInit();
  24.  
  25.     newscreen(x_text_value, &x_integer_var);
  26.     system("map");
  27.     disp_Close();
  28.     exit(0);
  29.     return(0);
  30. }
  31.  
  32. int newscreen(text_value, integer_var)
  33.     char *text_value;
  34.     int *integer_var;
  35. {
  36.     menu_type    menu;
  37.     sed_type    sed;
  38.     int         ret;
  39.  
  40.     menu = menu_Open();
  41.  
  42.     menu_Printf(menu, "\n  First field\n  Second field");
  43.  
  44.     menu_Printf(menu, "@p[1,14]@fd[@[12,#] ]",
  45.       text_value, &xstring_funcs, "Enter text value");
  46.     menu_Printf(menu, "@p[2,15]@fd[#####]",
  47.       integer_var, &int_funcs, "Enter integer value");
  48.  
  49.     menu_Flush(menu);
  50.  
  51.     sed = sed_Open(menu);
  52.     sed_SetColors(sed, 0x07, 0x07, 0x70);
  53.  
  54.     sed_SetBorder(sed, bd_prompt);
  55.     sed_SetBorderTitle(sed, " My first screen ");
  56.     sed_SetPosition(sed, 2, 4);
  57.     sed_SetHeight(sed, 4);
  58.     sed_SetWidth(sed, 31);
  59.     sed_SetMouse(sed, sedmou_Track);
  60.  
  61.     sed_Repaint(sed);
  62.     ret = sed_Go(sed);
  63.  
  64.     sed_Close(sed);
  65.     return(ret);
  66. }
  67.