home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / window / pcw_c / pcw_demo.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-10  |  23.7 KB  |  681 lines
  1. /* pc_wdemo.c
  2.    27nov91
  3.    cb
  4.  
  5.    PCWindows demo
  6.  
  7. */
  8.  
  9.  
  10. /* === includes ======================================== */
  11. #include <stdio.h>
  12. #include <stdlib.h>
  13. #include <dos.h>
  14. #include <conio.h>
  15. #include <ctype.h>
  16.  
  17. #include "pcwproto.h"
  18. #include "menu.h"
  19. #include "files.h"
  20.  
  21. /* === defines ========================================= */
  22. #define FALSE 0
  23. #define TRUE  1
  24. #define ESC 0x1B
  25. #define EVER ;;
  26.  
  27. #ifndef MK_FP
  28.    #define MK_FP(seg,off)  (void far *)(((long)seg << 16L) | ((long)off))
  29.    #define clrscr()  puts("\x1B[2J")
  30.    #define getche()  (char)getche()
  31. #endif
  32.  
  33.    /* pc hardware def's */
  34. #define SCROLL_LOCK (unsigned char far *)0x00400017L
  35. #define SCRN_BUF  (unsigned char far *)0xB8000000L
  36. #define SCRN_SEG 0xB800
  37. #define SCRN_OFF 0x0000
  38.  
  39. /* === global variables ================================ */
  40. char cmdbuf[80];
  41. int err_code;
  42.  
  43. char *sptr,*eptr,str[80];
  44.  
  45.    /* --- pc global vars --- */
  46. struct PTRS
  47. {
  48.    unsigned int mem_tmp;
  49.    unsigned int mem_seg;
  50.    unsigned int mem_off;
  51.    unsigned char far *mem;
  52.    unsigned char far *tmp;
  53. } ptrs;
  54.  
  55. /* static union REGS inregs,outregs;
  56.    static struct SREGS segregs; */
  57.  
  58. /* === prototypes ====================================== */
  59. char get_a_cmd(void);
  60. void do_a_cmd(char cmd);
  61. int get_hex(char *inptr);
  62. static void wait_for_something(void); /* wait for key or mse */
  63.  
  64.  
  65. void cmd_b(void);      /* test function Bar */
  66. void cmd_e(void);      /* Edit command */
  67. void cmd_h(void);      /* Help command */
  68. void cmd_k(void);      /* test picKlist style menu's */
  69. void cmd_l(void);      /* test Lotus style menu's */
  70. void cmd_r(void);      /* show PCW_QREF.TXT */
  71. void cmd_p(void);      /* test Pop-up menu's */
  72. void cmd_t(void);      /* test Top style menu's */
  73. void cmd_x(void);      /* ? */
  74.  
  75.  
  76. /* === main() ========================================== */
  77. int main(void)
  78. {
  79.    int tl, bl;
  80.    int        i = 0;
  81.    WNDPTR *menuwnd;
  82.  
  83.    static TMNUFLDS mainmenu1[] =
  84.       /* select_key, select_col, *item */
  85.       {{ 'F',  2, "Files"   },
  86.        { 'E', 16, "Edit"    },
  87.        { 'R', 31, "quickRef" },
  88.        { 'H', 46, "Help"    },
  89.        { 'Q', 61, "Quit"    },
  90.        { NULL, NULL, NULL   }};
  91.  
  92.    static TMNUFLDS mainmenu2[] =
  93.       /* select_key, select_col, *item */
  94.       {{ 'L',  2, "Lmenu" },
  95.        { 'P', 19, "Pmenu"   },
  96.        { 'K', 33, "picKlist menu"   },
  97.        { 'T', 54, "Tmenu"   },
  98.        { 'B', 69, "funcBar" },
  99.        {  NULL,NULL,NULL }};
  100.  
  101.    static TMNUFLDS *mainmenulist[] = {mainmenu1, mainmenu2, NULL};
  102.  
  103.    static TMNUTYPE mainmenu =
  104.       { NULL,                              /* previous window pointer */
  105.         1, 1, 3, 80,                       /* urow, ucol, lrow, lcol  */
  106.         YELLOW, BLUE,                      /* fcolor, bcolor          */
  107.         SINGLEALL,LIGHTGRAY,BLUE,          /* btype, bfcolor, bbcolor */
  108.         " PCW_DEMO ",                      /* *title                  */
  109.         TOP,MIDDLE,WHITE,BLUE,      /* tvloc, thloc, tfcolor, tbcolor */
  110.         YELLOW,MAGENTA,                    /* cfcolor, cbcolor        */
  111.         0,0,mainmenulist };                /* bar_pos, wnd_pos, **tlist */
  112.  
  113.    /* --- coldstart --- */
  114.    vcls();
  115.    get_cursor_size(&tl, &bl);
  116.    set_cursor_size(0, 0);
  117.  
  118.    /* --- warmstart --- */
  119.    init_mouse();
  120.  
  121.    menuwnd = maketmenu(&mainmenu);
  122.    while (i != 'Q') {
  123.       i = tmenuinput(&mainmenu);
  124.       switch(i) {
  125.          case 'B' : cmd_b(); break;
  126.          case 'E' : cmd_e(); break;
  127.          case 'F' : files_menu(); break;
  128.          case 'H' : cmd_h(); break;
  129.          case 'K' : cmd_k(); break;
  130.          case 'L' : cmd_l(); break;
  131.          case 'R' : cmd_r(); break;
  132.          case 'P' : cmd_p(); break;
  133.          case 'T' : cmd_t(); break;
  134.          case 'Q' : continue;
  135.       }
  136.    }
  137.    if (mpresent) hide_mouse();
  138.    menuwnd = wpop(menuwnd);
  139.  
  140.    /* --- system close --- */
  141.    init_mouse();
  142.  
  143.    /* --- quit --- */
  144.    vcls();
  145.    set_cursor_size(tl, bl);
  146.    puts("---bye---\n");
  147.    return(0);
  148. }
  149. /* --- end main() -------------------------------------- */
  150.  
  151.  
  152. /* === get_hex() ======================================= */
  153. int get_hex(char *inptr) /* convert ascii at inptr to hex */
  154. {
  155.    int i;
  156.    char strbuf[7];
  157.    char *strptr,*endptr;
  158.    strptr = &strbuf[0];
  159.    *strptr++ = '0';    /* stuff in 0x so i don't have to */
  160.    *strptr++ = 'x';
  161.    i = 2;
  162.    while( *inptr == ' ') inptr++;       /* ignore spaces */
  163.    while(*inptr && (i<6))         /* copy up to 6 char's */
  164.    {
  165.       *strptr++ = *inptr++;
  166.       i++;
  167.    }
  168.    *strptr = 0;                  /* terminate str with 0 */
  169.    strptr = &strbuf[0];                 /* reset pointer */
  170.    i = (int)strtol(strptr,&endptr,16);        /* convert */
  171.    if(endptr <= &strbuf[2]) err_code = 1; /* test for err */
  172.    return(i);
  173. }
  174. /* --- end get_hex() ----------------------------------- */
  175.  
  176.  
  177. /* === cmd_b() ========================================= */
  178. void cmd_b(void)   /* display function bar */
  179. {
  180.     int row, col, bstatus, done;
  181.     static char *funcs =
  182.        "F1-help   F2-edit   F3-options   F4-next"
  183.        "    F5-goto   F6-zoom          <ESC>quit";
  184.     if (mpresent) hide_mouse();
  185.     qputs(25, 1, YELLOW, BLUE, funcs);
  186.     if (mpresent) show_mouse();
  187.  
  188.     for(done = 0; !done; )          /*wait for something */
  189.     {
  190.        if(keypressed()) { keybrd_flush(); done++; }
  191.        if(mpresent)
  192.        {
  193.           if(get_mpressed(RITEM)) done++;
  194.           if(get_mpressed(LEFTM)) done++;
  195.           get_mpos(&row, &col, &bstatus);
  196.        }
  197.     }
  198.  
  199.     if(mpresent) hide_mouse();
  200.     qfill(25,  1, 25, 80, WHITE, BLACK, SPACES);
  201.     if(mpresent) show_mouse();
  202.  
  203. }
  204. /* --- end cmd_b() ------------------------------------- */
  205.  
  206.  
  207. /* === cmd_e() ========================================= */
  208. void cmd_e(void)   /* Edit cmd */
  209. {
  210.     int row, col, bstatus, done;
  211.     if(mpresent) hide_mouse();
  212.     qputs(12,CENTER,WHITE,BLACK, "call Edit()");
  213.     if(mpresent) show_mouse();
  214.  
  215.     for(done = 0; !done; )          /*wait for something */
  216.     {
  217.        if(keypressed()) { keybrd_flush(); done++; }
  218.        if(mpresent)
  219.        {
  220.           if(get_mpressed(RITEM)) done++;
  221.           if(get_mpressed(LEFTM)) done++;
  222.           get_mpos(&row, &col, &bstatus);
  223.        }
  224.     }
  225.  
  226.     if(mpresent) hide_mouse();
  227.     qputs(12,CENTER,WHITE,BLACK, "           ");
  228.     if(mpresent) hide_mouse();
  229. }
  230. /* --- end cmd_e() ------------------------------------- */
  231.  
  232.  
  233. /* === cmd_h() ========================================= */
  234. void cmd_h(void)   /* help command */
  235. {
  236.    int row, col, bstatus, done;
  237.    WNDPTR *wnd;
  238.    static char *helpmsg[] =
  239.    { "wframe(), wtitle(), and w_block_write() can be used to",
  240.      "create pop-up help screens",
  241.      "",
  242.      "The following commands are valid   ",
  243.      "   b ---- make function Bar        ",
  244.      "   e ---- Edit a file              ",
  245.      "   f ---- do Files stuff           ",
  246.      "   h,? -- Help (print this message)",
  247.      "   k ---- picKlist menu demo       ",
  248.      "   l ---- Lotus menu demo          ",
  249.      "   p ---- Pop up-menu demo         ",
  250.      "   q ---- Quit pcw_demo            ",
  251.      "   r ---- show pcw_qRef.txt        ",
  252.      "   t ---- Top menu demo            ",
  253.      " ", " ", "Press any key to return", "", NULL };
  254.    bordercolor(LIGHTBLUE,BLACK);
  255.    titlecolor(WHITE,RED);
  256.    if(mpresent) hide_mouse();
  257.    wnd = wframe(5, 5, 23, 75,YELLOW,BLACK);
  258.    if(wnd == NULL) return;
  259.    wtitle(wnd, TOP,LEFT," Friendly Help ");
  260.    w_block_write(wnd,2,CENTER,helpmsg);
  261.    if(mpresent) show_mouse();
  262.  
  263.    for(done = 0; !done; )          /*wait for something */
  264.    {
  265.       if(keypressed()) { keybrd_flush(); done++; }
  266.       if(mpresent)
  267.       {
  268.          if(get_mpressed(RITEM)) done++;
  269.          if(get_mpressed(LEFTM)) done++;
  270.          get_mpos(&row, &col, &bstatus);
  271.       }
  272.    }
  273.  
  274.    if(mpresent) hide_mouse();
  275.    wpop(wnd);
  276.    if(mpresent) show_mouse();
  277. }
  278. /* --- end cmd_h() ------------------------------------- */
  279.  
  280. /* === cmd_k() ========================================= */
  281. void cmd_k(void)   /* Test picKlist style menu's */
  282. {
  283.    WNDPTR *wnd, *savewnd, *iwnd;
  284.  
  285. /***********************************************************/
  286. /* Create and initialize the pick-list menu values.        */
  287. /***********************************************************/
  288.  
  289. static char *selections[] = {
  290.     "Methodology",
  291.     "Word Processors",
  292.     "C Compiler",
  293.     "Pascal Compiler",
  294.     "3270 Emulation",
  295.     "Communications",
  296.     "COBOL Compiler",
  297.     "MASM",
  298.     NULL
  299. };
  300.  
  301. /**********************************************************/
  302. /* PICKLIST contains elements concerning a picklist menu. */
  303. /* First, there is a pointer to the window to be used,    */
  304. /* then window parameters, border parms, title parms,     */
  305. /* selection bar parms, and finally a pointer back to our */
  306. /* menu options.                                          */
  307. /**********************************************************/
  308.  
  309.     static PICKLIST plmenu =  {
  310.        NULL,
  311.        15, 30, 19, 50, BLACK,LIGHTGRAY,          /* Window Parms */
  312.        2, RED,LIGHTGRAY,                         /* Border Parms */
  313.        " Main Menu ",TOP,MIDDLE,BLUE,LIGHTGRAY,  /* Title  Parms */
  314.        WHITE,BLUE,                               /* Select Bar color  */
  315.        selections,                               /* pointer to menu list */
  316.        0,0                                       /* bar position offset */
  317.     };
  318.  
  319.     static char *instructions[] = {
  320.        "To use  the Pick  List Menu  use the \30\31 arrow  keys,",
  321.        "to place the cursor  bar on  the  desired  selection",
  322.        "and then press  enter.  Or, use the Mouse  to  point",
  323.        "and shoot the  selection you want.  ESC or the right",
  324.        "Mouse  key will end the demo.   There  may  be  more",
  325.        "picks  than can be shown in the window. You may  use",
  326.        "the arrow  keys or the Mouse to scroll them.        ",
  327.        NULL
  328.     };
  329.  
  330.    int i = 0;
  331.    int mxr, mxc;
  332.  
  333.    chk_video_state(&mxr,&mxc);                   /* Get max rows & cols */
  334.    if (mpresent) hide_mouse();                   /* Hide mouse */
  335.    savewnd = wpush(1,1,mxr,mxc);                 /* Save entire screen */
  336.    if (!savewnd) return;                         /* Exit if cannot save */
  337.    bordercolor(BLUE,LIGHTGRAY);                  /* Set border color */
  338.    titlecolor(BLACK,LIGHTGRAY);                  /* Set the title color */
  339.    iwnd = wexplode(2,10,12,70,RED,LIGHTGRAY);    /* Make instruction window */
  340.    wtitle(iwnd,TOP,LEFT," Pick List Menu Instructions "); /* Title it */
  341.    w_block_write(iwnd, 2, CENTER,instructions);  /* Write instructions to it */
  342.    wnd = make_pick_list(&plmenu);                /* Make a popup window */
  343.    if (mpresent) show_mouse();                   /* Show mouse */
  344.    while (i != -1) {                             /* Do until Esc */
  345.       i = get_pick_list(&plmenu);                /* Get Menu return value */
  346.       if ( i == 27 ) continue;
  347.       if (mpresent) hide_mouse();
  348.       qhchar(22,1,BLACK,BLACK,32,80);            /* Clear msg line */
  349.       qputs(22,99,RED,7,selections[i]);          /* Write the choice */
  350.       if (mpresent) show_mouse();
  351.    }
  352.    if (mpresent) hide_mouse();                   /* Hide the mouse */
  353.    wnd     = wpop(wnd);                          /* Get rid of menu */
  354.    iwnd    = wpop(iwnd);                         /* Get rid of instructions */
  355.    savewnd = wpop(savewnd);                      /* Restore msg row */
  356.                                                  /* And go home */
  357.  
  358. }
  359. /* --- end cmd_k() ------------------------------------- */
  360.  
  361.  
  362. /* === cmd_l() ========================================= */
  363. void cmd_l(void)   /* test lotus style menu's */
  364. {
  365.    int mxr, mxc;
  366.    int i = 0;
  367.    int index = 0;
  368.    WNDPTR *menuwnd, *savewnd, *iwnd;
  369.  
  370.    static LMNUFLDS menu1[] =
  371.        /* select_key, select_col, *item, *item_msg */
  372.       {{ 'A', 2, "Add",    "Add an Entry to Database"},
  373.        { 'C', 17,"Change", "Change a Database Entry"},
  374.        { 'D', 33,"Delete", "Delete a Database Entry"},
  375.        { NULL, NULL, NULL, NULL}};
  376.  
  377.    static LMNUFLDS menu2[] =
  378.       {{ 'P', 2, "Purge", "Purge the Workfile"},
  379.        { 'S', 18,"Send",  "Send Electronic Mail"},
  380.        { 'E', 35,"Exit",  "Exit the Program"},
  381.        {  NULL,NULL,NULL,NULL }};
  382.  
  383.    static LMNUFLDS *menulist[] = {menu1, menu2, NULL};
  384.  
  385.    static LMNUTYPE lmenu =
  386.       { NULL,                         /* initial window ptr    */
  387.         22, 1, 25, 80,                /* window boundaries     */
  388.         BLUE, LIGHTGRAY,              /* window color          */
  389.         DOUBLEALL,RED,LIGHTGRAY,      /* border type and color */
  390.         " Lmenu Type ",               /* menu title            */
  391.         TOP,LEFT,BLACK,LIGHTGRAY,     /* title loc and color   */
  392.         WHITE,BLUE,                   /* select bar color      */
  393.         0,0,menulist };    /* bar pos, wnd pos, ptr to options */
  394.  
  395.    static char *selections[] =
  396.       { "call Add()     ", "call Change()  ", "call Delete()  ",
  397.         "call Purge()   ", "call Send()    ", "               " };
  398.  
  399.  
  400.    static char *instructions[] = {        /* Some instructions */
  401.       "To use this menu you may use the arrow keys, PgUp, PgDn,",
  402.       "Home and the End keys. More than one menu may be stacked",
  403.       "into one window, therefore, you may  page  through them.",
  404.       "Arrow to your selection and press enter, or  use the hot",
  405.       "character (usually the first character of the selection)",
  406.       "or use the Mouse.  You may use the Mouse to page through",
  407.       "the menus by clicking on the arrows at  either  side  of",
  408.       "the menu.  Play with it .... it will suprise you!       ",
  409.       NULL
  410.    };
  411.  
  412.  
  413.    if (mpresent) hide_mouse();
  414.    chk_video_state(&mxr, &mxc);
  415.    savewnd = wpush(1,1,mxr,mxc);                  /* Save entire screen */
  416.    bordercolor(BLUE, LIGHTGRAY);
  417.    titlecolor(RED,LIGHTGRAY);
  418.    iwnd = wexplode(2,10,13,70,BLACK,LIGHTGRAY);
  419.    wtitle(iwnd,TOP,RITE," Lmenu Instructions ");
  420.    w_block_write(iwnd, 2, CENTER, instructions);
  421.    qputs(20, 30, WHITE, RED,"Your Choice: ");    /* Message line */
  422.    menuwnd = makelmenu(&lmenu);
  423.    if (mpresent) show_mouse();
  424.    do
  425.    {
  426.       i = lmenuinput(&lmenu);
  427.       switch(i)
  428.       {
  429.          case 'A' : index = 0; break;
  430.          case 'C' : index = 1; break;
  431.          case 'D' : index = 2; break;
  432.          case 'P' : index = 3; break;
  433.          case 'S' : index = 4; break;
  434.          case 27  :
  435.          case 'E' : index = 5; break;
  436.          default  : index = 5;
  437.       }
  438.       if(mpresent) hide_mouse();
  439.       qputs(20,44,WHITE,BLACK,selections[index]);
  440.       if(mpresent) show_mouse();
  441.    }
  442.    while (i != 'E' && i != ESC);
  443.  
  444.    if (mpresent) hide_mouse();
  445.    menuwnd = wpop(menuwnd);
  446.    iwnd    = wpop(iwnd);                          /* Remove instructions */
  447.    savewnd = wpop(savewnd);                       /* Remove trash */
  448.    if (mpresent) show_mouse();
  449.  
  450. }
  451. /* --- end cmd_l() ------------------------------------- */
  452.  
  453.  
  454. /* === cmd_p() ========================================= */
  455. void cmd_p(void)   /* test pop-up menu's */
  456. {
  457.    WNDPTR *wnd, *savewnd, *iwnd;
  458.  
  459. /***********************************************************/
  460. /* Initialize the popup menu structures defined in menu.h. */
  461. /***********************************************************/
  462.  
  463.    static PMNUFLDS pitems[] = {
  464.        { '1', "1. Methodology                   "},
  465.        { '2', "2. Word Processors               "},
  466.        { '3', "3. ITI Mainframe Communications  "},
  467.        { '4', "4. C Programming Environment     "},
  468.        { '5', "5. Pascal Programming Environment"},
  469.        { 'e' ,"E. Esc or Right Mouse Key - Exit "},
  470.        {  0,  ""}
  471.     };
  472.  
  473. /**********************************************************/
  474. /* PMNUTYPE contains elements concerning a popup menu.    */
  475. /* First, there is a pointer to the window to be used,    */
  476. /* then window parameters, border parms, title parms,     */
  477. /* selection bar parms, and finally a pointer back to our */
  478. /* menu options.                                          */
  479. /**********************************************************/
  480.  
  481.     static PMNUTYPE  pmenu =  {
  482.        NULL,
  483.        13, 20, 20, 60, BLACK,LIGHTGRAY,          /* Window Parms */
  484.        2, RED,LIGHTGRAY,                         /* Border Parms */
  485.        " Main Menu ",TOP,MIDDLE,BLUE,LIGHTGRAY,  /* Title  Parms */
  486.        WHITE,BLUE,0,                             /* Select Bar   */
  487.        pitems                                    /* pointer to menu list */
  488.     };
  489.  
  490.     static char *instructions[] = {
  491.        "To use the  Popup  Menu  use  the  \30\31  arrow  keys,",
  492.        "to place the cursor bar on  the  desired  selection",
  493.        "and then press enter.  Or, use the SELECT CHARACTER",
  494.        "at left of each selection, or...use  the  Mouse  to",
  495.        "point and shoot the selection you want.  ESC or the",
  496.        "right Mouse key will end the demo.                 ",
  497.        NULL
  498.     };
  499.  
  500.     static char *selections[] = {
  501.        "Methodology",
  502.        "Word Processors",
  503.        "ITI Mainframe Communications",
  504.        "C Programming Environment",
  505.        "Pascal Programming Environment"
  506.     };
  507.  
  508.     int i = 0;
  509.     int mxr, mxc;
  510.  
  511.    chk_video_state(&mxr,&mxc);                   /* Get max rows & cols */
  512.    if (mpresent) hide_mouse();                   /* Hide the mouse */
  513.    savewnd = wpush(1,1,mxr,mxc);                 /* Save entire screen */
  514.    if (!savewnd) return;                         /* Exit if cannot save */
  515.    bordercolor(BLUE,LIGHTGRAY);                  /* Set border color */
  516.    titlecolor(BLACK,LIGHTGRAY);                  /* Set the title color */
  517.    iwnd = wexplode(2,10,11,70,RED,LIGHTGRAY);      /* Make instruction window */
  518.    wtitle(iwnd,TOP,LEFT," Popup Menu Instructions "); /* Title it */
  519.    w_block_write(iwnd, 2, CENTER,instructions);  /* Write instructions to it */
  520.    wnd = makepmenu(&pmenu);                      /* Make a popup window */
  521.    if (mpresent) show_mouse();                   /* Show the mouse */
  522.    while (i != 27 && i != 'e') {                 /* Do until Esc */
  523.       i = pmenuinput(&pmenu);                    /* Get Menu return value */
  524.       switch(i) {
  525.          case '1' :
  526.          case '2' :
  527.          case '3' :
  528.          case '4' :
  529.          case '5' :
  530.             if (mpresent) hide_mouse();
  531.             i -= 48;
  532.             qhchar(22,1,BLACK,BLACK,32,80);          /* Clear msg line */
  533.             qputs(22,99,RED,7,selections[i-1]);  /* Write the choice */
  534.             if (mpresent) show_mouse();
  535.             break;
  536.          default: break;
  537.       }
  538.    }
  539.    if (mpresent) hide_mouse();                   /* Hide the mouse */
  540.    wnd     = wpop(wnd);                          /* Get rid of menu */
  541.    iwnd    = wpop(iwnd);                         /* Get rid of instructions */
  542.    savewnd = wpop(savewnd);                      /* Restore msg row */
  543.                                                  /* And go home */
  544. }
  545.  
  546. /* --- end cmd_p() ------------------------------------- */
  547.  
  548.  
  549. /* === cmd_r() ========================================= */
  550. void cmd_r(void)   /* show quick reference */
  551. {
  552.     WNDPTR *wnd;
  553.     int mxr, mxc;
  554.  
  555.     if(mpresent) hide_mouse();
  556.     chk_video_state(&mxr, &mxc);
  557.     bordercolor(YELLOW, BLUE);
  558.     wnd = wframe(1, 1, 25, 80, LIGHTGRAY, BLUE);
  559.     wtitle(wnd, TOP, MIDDLE, " PCW_QREF.TXT ");
  560.     set_int29();
  561.  
  562.     system("type pcw_qref.txt");
  563.  
  564.     puts("====== wow! any key to return ======");
  565.     wait_for_something();
  566.     reset_int29();
  567.     wpop(wnd);
  568.  
  569.     if(mpresent) show_mouse();
  570.  
  571. }
  572. /* --- end cmd_r() ------------------------------------- */
  573.  
  574.  
  575. /* === cmd_t() ========================================= */
  576. void cmd_t(void)   /* test top style menu's */
  577. {
  578.    int    i = 0;
  579.    int    index = 0;
  580.    int    mxr, mxc;
  581.    WNDPTR *menuwnd, *iwnd, *savewnd;
  582.  
  583.    static TMNUFLDS tmenu1[] =
  584.        /* select_key, select_col, *item */
  585.       {{ 'A', 2, "Add"    },
  586.        { 'C', 17,"Change" },
  587.        { 'E', 33,"Exit" },
  588.        { NULL, NULL, NULL }};
  589.  
  590.    static TMNUFLDS tmenu2[] =
  591.        /* select_key, select_col, *item, *item_msg */
  592.       {{ 'P', 2, "Purge" },
  593.        { 'S', 18,"Send"  },
  594.        { 'D', 35,"Delete"  },
  595.        {  NULL,NULL,NULL }};
  596.  
  597.    static TMNUFLDS *tmenulist[] = {tmenu1, tmenu2, NULL};
  598.  
  599.    static TMNUTYPE tmenu =
  600.       { NULL,                              /* previous window pointer */
  601.         16,  1, 18, 80,                    /* urow, ucol, lrow, lcol  */
  602.         YELLOW, BLUE,                      /* fcolor, bcolor          */
  603.         SINGLEALL,LIGHTGRAY,BLUE,          /* btype, bfcolor, bbcolor */
  604.         " Tmenu Type ",                    /* *title                  */
  605.         TOP,MIDDLE,WHITE,BLUE,      /* tvloc, thloc, tfcolor, tbcolor */
  606.         YELLOW,MAGENTA,                    /* cfcolor, cbcolor        */
  607.         0,0,tmenulist };                 /* bar_pos, wnd_pos, **tlist */
  608.  
  609.    static char *selections[] =
  610.       { "call Add()     ", "call Change()  ", "               ",
  611.         "call Purge()   ",  "call Send()    ", "call Delete() " };
  612.  
  613.    static char *instructions[] = {               /* Some instructions */
  614.       "The 'tmenu' function was generated by customizing the    ",
  615.       "'lmenu' code. The 'info' line was removed and ESC was    ",
  616.       "changed to act as a home key and bring you back to the   ",
  617.       "top menu. A specific action is required quit -- a key    ",
  618.       "entry of 'e' or 'E' or a mouse click on 'Exit' in the    ",
  619.       "menu bar. Note: The source code from Stan is well commented",
  620.       "and the effort to create a custom menu type was minimal. ",
  621.       "                              ...... Thank's Stan ...... ",
  622.       NULL
  623.    };
  624.  
  625.    chk_video_state(&mxr, &mxc);     /* Get max rows and cols */
  626.    if (mpresent) hide_mouse();      /* Hide the mouse        */
  627.    savewnd = wpush(1, 1, mxr, mxc); /* Save entire screen    */
  628.    if(!savewnd) return;             /* Exit if cannot save   */
  629.    bordercolor(WHITE, LIGHTGRAY);   /* Set the border color  */
  630.    titlecolor(BLACK, LIGHTGRAY);    /* Set the title color   */
  631.    setborder(SINGLESIDES);
  632.    iwnd = wframe(2, 10, 11, 70, RED, LIGHTGRAY); /* make window */
  633.    wtitle(iwnd, BOTTOM, RITE, " Top menu instructions ");
  634.    w_block_write(iwnd, 1, CENTER, instructions);
  635.    menuwnd = maketmenu(&tmenu);     /* Make a top menu       */
  636.    if (mpresent) show_mouse();      /* Show mouse            */
  637.    while (i != 'E' && i != 27) {    /* DO UNTIL 'Exit'       */
  638.       i = tmenuinput(&tmenu);
  639.       switch(i) {
  640.          case 'A' : index = 0; break;
  641.          case 'C' : index = 1; break;
  642.          case 'E' : index = 2; break;
  643.          case 'P' : index = 3; break;
  644.          case 'S' : index = 4; break;
  645.          case 'D' : index = 5; break;
  646.       }
  647.       if(mpresent) hide_mouse();
  648.       qputs(14,CENTER,WHITE,BLACK,selections[index]);
  649.       if(mpresent) show_mouse();
  650.    }
  651.    if (mpresent) hide_mouse();    /* Hide mouse         */
  652.    menuwnd = wpop(menuwnd);       /* Get rid of menu    */
  653.    iwnd    = wpop(iwnd);     /* Get rid of instructions */
  654.    savewnd = wpop(savewnd);          /* Restore screen  */
  655.                                          /* And go home */
  656.    if (mpresent) show_mouse();
  657.  
  658. }
  659. /* --- end cmd_t() ------------------------------------- */
  660.  
  661.  
  662. /* === wait_for_something() ============================ */
  663. static void wait_for_something(void) /* wait for key or mse */
  664. {
  665.     int row, col, bstatus, done;
  666.     for(done = 0; !done; )          /*wait for something */
  667.     {
  668.        if(keypressed()) { keybrd_flush(); done++; }
  669.        if(mpresent)
  670.        {
  671.           if(get_mpressed(RITEM)) done++;
  672.           if(get_mpressed(LEFTM)) done++;
  673.           get_mpos(&row, &col, &bstatus);
  674.        }
  675.     }
  676. }
  677. /* --- end wait_for_something() ------------------------ */
  678.  
  679.  
  680. /* === end pcw_demo.c ================================== */
  681.