home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / GRAPHICS / WINDOWPR.ZIP / DEMO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-11-30  |  39.5 KB  |  1,539 lines
  1. /* Comments are sparse.  Use TUTOR1.C -> TUTOR5.C to get started */
  2.  
  3. #include "pro.h"
  4. #include "xglobals.h"
  5. #include "vs.h"
  6. #include "colors.h"
  7. #include "mouse.h"
  8.  
  9. /* These are some extended keyboard codes returned from kb_getxc */
  10. #define UP        18432
  11. #define DOWN        20480
  12. #define RIGHT        19712
  13. #define LEFT        19200
  14. #define ENTER        7181
  15. #define HOME        18176
  16. #define END        20224
  17. #define PGUP        18688
  18. #define PGDN        20736
  19.  
  20. /* miscellaneous global variables */
  21. unsigned int window_handle[20], mouse_installed;
  22.  
  23. /* A buffer for use by sprintf */
  24. char buffer[4000];
  25.  
  26. /* Some menu selections I use in a sample menu */
  27. char *menu[6] = {"Move a file", "Copy a file", "Delete a file", "Load a file", "Save a file", "Exit to DOS"};
  28.  
  29. int main()
  30. {
  31.  
  32.     int count, a, b, c, d, ox, oy;
  33.     unsigned int handle;
  34.  
  35.     /* Setting various global parameters */
  36.     active_attr = LIGHTGRAY + (BLACK << 4);
  37.     inactive_attr = LIGHTGRAY + (BLACK << 4);
  38.     active_tile_attr = LIGHTGREEN + (BLACK << 4);
  39.     inactive_tile_attr = WHITE + (BLACK << 4);
  40.     scroll_bars_on = FALSE;
  41.     mouse_installed = kb_ismouse();
  42.     method = DMA;
  43.     snowfree = FALSE;
  44.  
  45.     printf("Change video modes at any time by pressing\n\
  46. (A) ANSI, (B) BIOS, (S) snowfree DMA, (D) DMA.\n\n\
  47. Press any key to continue.");chgmethod();
  48.     
  49.     /* initialize the WINDOW PRO */
  50.     wn_init();
  51.  
  52.     /* turn off the cursor */
  53.     wn_hidecur();
  54.  
  55.     /* make a background */
  56.     window_handle[0] = makebackground();
  57.  
  58.     /* set up a menu window to use later on in the demo */
  59.     window_handle[11] = makemenu(menu, 6, "Files Menu","\021─┘ = confirm");
  60.  
  61.     /* set up a window to display the copyright notice */
  62.     window_handle[12] = wn_createw(25, 80, 15, 10, 1, 1, 5, 49, FALSE,
  63.         HEAD_ON, NULL, "Press any key to continue");
  64.     vs_clrvs(window_handle[12], 0, WHITE, BLUE);
  65.     sprintf(buffer,
  66. " This has been a presentation of The WINDOW PRO\n\n\
  67.                 Seabreeze Software\n\n\
  68.              Copyright (c) 1986, 1987");
  69.     vs_format(window_handle[12], 0, WHITE, BLUE, buffer);
  70.  
  71.     /* Make the ten windows we use in big opening number */
  72.     for (count = 1; count <= 10; count++) {
  73.         window_handle[count] = wn_createw(18,50,1,1,1,1,5,8,FALSE,
  74.             HEAD_ON,NULL,NULL);
  75.         vs_fillattr(window_handle[count], 0, 1, 1, 50, 18, WHITE, BLUE);
  76.         vs_puts(window_handle[count], 0, 3, 1, 3, WHITE, BLUE, "The");
  77.         vs_puts(window_handle[count], 0, 2, 3, 6, WHITE, BLUE, "WINDOW");
  78.         vs_puts(window_handle[count], 0, 3, 5, 3, WHITE, BLUE, "PRO");
  79.     }
  80.  
  81.     /* set the position of the top 4 windows in the opener */
  82.     a = 4;
  83.     for (count = 1; count <= 4; count++) {
  84.         handle = window_handle[count];
  85.         WDW->physical_x = a;
  86.         WDW->physical_y = 2;
  87.         a += 21;
  88.     }
  89.  
  90.     /* set the position of the bottom 4 windows in the opener */
  91.     a = 67;
  92.     for (count = 6; count <= 9; count++) {
  93.         handle = window_handle[count];
  94.         WDW->physical_x = a;
  95.         WDW->physical_y = 18;
  96.         a -= 21;
  97.     }
  98.  
  99.     /* set the position of the middle windows in the opener */
  100.     handle = window_handle[10];
  101.     WDW->physical_x = 4;
  102.     WDW->physical_y = 10;
  103.     handle = window_handle[5];
  104.     WDW->physical_x = 67;
  105.     WDW->physical_y = 10;
  106.  
  107.     
  108.         /* Bring out each window onto the screen */
  109.     for (count = 1; count <= 10; count++) {
  110.         handle = window_handle[count];
  111.         wn_flybox(physical_columns/2, physical_rows/2, 1, 1,
  112.             WDW->physical_x, WDW->physical_y, WDW->port_rows,
  113.             WDW->port_columns, 10, 2000, box4, BLACK, BLACK);
  114.         wn_openw(window_handle[count]);
  115.         if (kbhit()) chgmethod();
  116.     }
  117.  
  118.     /* start distinguishing between the active and inactive windows */
  119.     active_attr = WHITE + (BLACK << 4);
  120.  
  121.     /* Move each one to center stage, and blow it up */
  122.     for (count = 1; count <= 10; count++) {
  123.         /* lets us use the WDW macro */
  124.         handle = window_handle[count];
  125.     
  126.         /* bring it to the top of the windows */
  127.         wn_openw(handle);
  128.  
  129.         /* remember the original column position */
  130.         ox = a = WDW->physical_x;
  131.  
  132.         /* move it to the center columns */
  133.         while (a != 36) {
  134.             if (a < 36) a++;
  135.             else a--;
  136.             wn_locatew(handle, a, WDW->physical_y);
  137.             if (kbhit()) chgmethod();
  138.         }
  139.  
  140.         /* remember the original row position */        
  141.         oy = a = WDW->physical_y;
  142.  
  143.         /* move it to the center rows */
  144.         while (a != 10) {
  145.             if (a < 10) a++;
  146.             else a--;
  147.             wn_locatew(handle, WDW->physical_x, a);
  148.             if (kbhit()) chgmethod();
  149.         }
  150.  
  151.         /* change the window background to red */
  152.         vs_clrvs(handle, 0, WHITE, RED);
  153.  
  154.  
  155.         /* move it up and to the left, so we can increase its size */
  156.         for (a = 0; a < 6; a++) {
  157.             wn_movew(handle, -3, -1);
  158.             if (kbhit()) chgmethod();
  159.         }
  160.  
  161.         /* increase its size */
  162.         for (a = 0; a < 6; a++) {
  163.             wn_sizet(handle, 0, 6, 2);
  164.             if (kbhit()) chgmethod();
  165.         }
  166.  
  167.         /* change the window name */
  168.         wn_namet(handle, 0, "Press any key to continue");
  169.  
  170.         /* Each window is used to show off a different feature */
  171.         switch (count) {
  172.             case 1 : panel1(handle);
  173.                  break;
  174.             case 2 : panel2(handle);
  175.                  break;
  176.             case 3 : panel3(handle);
  177.                  break;
  178.             case 4 : panel4(handle);
  179.                  break;
  180.             case 5 : panel5(handle);
  181.                  break;    
  182.             case 6 : panel6(handle);
  183.                  break;    
  184.             case 7 : panel7(handle);    
  185.                  break;
  186.             case 8 : panel8(handle);    
  187.                  break;
  188.             case 9 : panel9(handle);
  189.                 break;    
  190.             case 10: panel10(handle);
  191.         }
  192.  
  193.         /* get rid of the window name */
  194.         wn_namet(handle, 0,NULL);
  195.  
  196.  
  197.         /* shrink it back down */
  198.         for (a = 0; a < 6; a++) {
  199.             wn_sizet(handle, 0, -6, -2);
  200.         }
  201.  
  202.         /* move it back to the center */
  203.         for (a = 0; a < 6; a++) {
  204.             wn_movew(handle, 3, 1);
  205.             if (kbhit()) chgmethod();
  206.         }
  207.  
  208.         /* move it back to its original row position */
  209.         a = WDW->physical_y;
  210.         while (a != oy) {
  211.             if (a < oy) a++;
  212.             else a--;
  213.             wn_locatew(handle, WDW->physical_x, a);
  214.             if (kbhit()) chgmethod();
  215.         }
  216.  
  217.         /* move it back to its original column position */
  218.         a = WDW->physical_x;
  219.         while (a != ox) {
  220.             if (a < ox) a++;
  221.             else a--;
  222.             wn_locatew(handle, a, WDW->physical_y);
  223.             if (kbhit()) chgmethod();
  224.         }
  225.         }
  226.  
  227.     /* display the copyright notice */
  228.     wn_openw(window_handle[12]);
  229.     chgmethod();
  230.  
  231.     /* close each window */
  232.     for (count = 1; count <=10; count++) {
  233.         handle = window_handle[count];
  234.         a = WDW->physical_x;
  235.         b = WDW->physical_y;
  236.         c = WDW->port_rows;
  237.         d = WDW->port_columns;
  238.         wn_delw(handle);
  239.         wn_flybox(a, b, c, d, physical_columns / 2,
  240.             physical_rows / 2, 1, 1, 10, 2000, box4, BLACK,
  241.             BLACK);
  242.         if (kbhit()) chgmethod();
  243.     }
  244.     wn_delw(window_handle[12]);
  245.     wn_delw(window_handle[11]);
  246.     wn_delw(0);            
  247.  
  248.     /* restore the background screen */
  249.         wn_restorescr();
  250.  
  251.     /* restore the cursor position */
  252.     v_gotoxy(oldx,oldy);
  253.  
  254.     /* restore the cursor shape */
  255.     v_curshape(oldb, olde);
  256. }
  257.  
  258.  
  259. /* sets up a window to use as the backdrop for the entire demo */
  260. int makebackground()
  261. {
  262.     unsigned int handle;
  263.     unsigned char tile_handle = 0;
  264.  
  265.     handle = wn_createw(physical_rows, physical_columns, 1, 1, 1, 1,
  266.         physical_rows - 2, physical_columns - 2, FALSE, NONE, NULL,
  267.         NULL);
  268.     vs_fillchar(handle, 0, 1, 1, TILE->vs_columns, TILE->vs_rows, '░',
  269.         WHITE, GREEN);
  270.     wn_openw(handle);
  271.     return(handle);
  272. }
  273.  
  274. /* display the introduction */
  275. int panel1(handle)
  276. unsigned int handle;
  277. {
  278.     /* format the string */
  279.     sprintf(buffer,
  280. "\n\n               The WINDOW PRO\n\n\
  281.                  version 1.2\n\n\
  282.   Copyright (c) 1986, 1987 by Kenneth Stott\n\n\n\
  283.               Seabreeze Software\n\
  284.                  66 Krebs Road\n\
  285.           Plainsboro, New Jersey 08536\n\n\
  286.                 (609) 275-8715");
  287.  
  288.     /* flash the window contents onto the screen */
  289.     wn_suspendw(handle);
  290.     vs_format(handle, 0, WHITE, RED, buffer);
  291.     wn_suspendw(handle);
  292.     chgmethod();
  293.  
  294.     /* output trailer message */
  295.     vs_clrvs(handle, 0, WHITE, BLUE);
  296.     vs_puts(handle, 0, 3, 1, 3, WHITE, BLUE, "The");
  297.     vs_puts(handle, 0, 2, 3, 6, WHITE, BLUE, "WINDOW");
  298.     vs_puts(handle, 0, 3, 5, 3, WHITE, BLUE, "PRO");
  299. }
  300.  
  301.  
  302. /*
  303.  * this routine outputs two different messages -- depending on whether
  304.  * a mouse is or isn't installed
  305. */
  306.  
  307. void mouse_message()
  308. {
  309.     int aa;
  310.     unsigned int handle;
  311.     char *db;
  312.  
  313.     aa = active_attr;
  314.     db = default_box;
  315.  
  316.     active_attr = LIGHTGRAY + (BLACK << 4);
  317.     default_box = box0;
  318.     
  319.     /* create the window */
  320.     handle = wn_createw(7,44,19,8,1,1,7,44,FALSE,HEAD_ON,NULL,NULL);    
  321.     
  322.     /* fill it with color */
  323.     vs_fillattr(handle, 0, 1, 1, 44, 7, WHITE, BLUE);
  324.  
  325.     /* select the appropriate message */    
  326.     if (mouse_installed) sprintf(buffer,
  327. "Since you've got a mouse, you can also\n\
  328. try out the WINDOW PRO mouse support\n\
  329. in this next example...\n\n\
  330. Press any key to continue");
  331.     else sprintf(buffer,
  332. "Too bad you don't have a mouse installed.\n\
  333. The WINDOW PRO has excellent mouse\n\
  334. support for this next example...\n\n\
  335. Press any key to continue");
  336.  
  337.     /* output it to the window */
  338.     wn_suspendw(handle);    
  339.     vs_format(handle, 0, WHITE, BLUE, buffer);
  340.     wn_suspendw(handle);    
  341.  
  342.     /* display the window */
  343.     wn_openw(handle);
  344.  
  345.     /* wait for a response */
  346.     chgmethod();
  347.     
  348.     /* remove the window */
  349.     wn_delw(handle);
  350.  
  351.     /* restore the global variables */
  352.     active_attr = aa;
  353.     default_box = db;
  354. }
  355.  
  356. int panel2(handle)
  357. unsigned int handle;
  358. {    
  359.  
  360.     int aa;
  361.  
  362.         /* format the string */
  363.     sprintf(buffer,
  364. "\n\
  365. The WINDOW PRO is a\n\n\
  366.        * fast,\n\
  367.        * compact, and\n\
  368.        * feature-packed,\n\n\
  369. virtual screen manager that lets you create\n\
  370. programs that look and feel like\n\n\
  371.        * Framework,\n\
  372.        * Lotus,\n\
  373.        * dBase III, and\n\
  374.        * other top-sellers.");
  375.  
  376.     /* output it to the window */
  377.     wn_suspendw(handle);    
  378.     vs_format(handle, 0, WHITE, RED, buffer);
  379.     wn_suspendw(handle);    
  380.     chgmethod();
  381.  
  382.     /* format another string */    
  383.     sprintf(buffer,
  384. "You can quickly implement complex\n\n\
  385.        * dialog boxes,\n\
  386.        * context sensitive help,\n\
  387.        * pop-up, and\n\
  388.        * pull-down menus,\n\n\
  389. The following was created completely with\n\
  390. The WINDOW PRO.  No tricks-- just\n\
  391. straight-forward WINDOW PRO functions.");
  392.  
  393.     /* clear the window and output new message */
  394.     wn_suspendw(handle);    
  395.     vs_clrvs(handle, 0, WHITE, RED);
  396.     vs_locatecur(handle, 0, 1, 1);
  397.     vs_format(handle, 0, WHITE, RED, buffer);
  398.     wn_suspendw(handle);    
  399.     chgmethod();
  400.  
  401.     /* set the attributes */
  402.      aa = active_attr;
  403.      active_attr = WHITE + (BLUE << 4);
  404.      active_tile_attr = YELLOW + (BLUE << 4);
  405.  
  406.     /* display the mouse message */
  407.     mouse_message();
  408.  
  409.     /* display the menu */
  410.     runmenu(window_handle[11], 1, 30, 5);
  411.  
  412.     /* restore active attribute to original value */
  413.     active_attr = aa;
  414.  
  415.     /* output trailer message */
  416.     vs_clrvs(handle, 0, WHITE, GREEN);
  417.     vs_locatecur(handle, 0, 1, 1);
  418.     sprintf(buffer,
  419. "Complex\n\
  420. Windows\n\n\
  421.  Mouse\n\
  422. Support\n");
  423.     vs_format(handle, 0, WHITE, GREEN, buffer);
  424. }
  425.  
  426.  
  427. int makemenu(menu_choices, number_choices, name, help)
  428. char **menu_choices, *name, *help;
  429. int number_choices;
  430. {
  431.     unsigned int handle;
  432.     unsigned char tile_handle, th[3];
  433.     int maxwidth = 0, count, width, ita, namewidth, helpwidth;
  434.     char *db;
  435.  
  436.     /* save the values of these global variables */
  437.     db = default_box;
  438.     ita = inactive_tile_attr;
  439.  
  440.     /* then change them to what we need */
  441.     default_box =box3;
  442.     inactive_tile_attr = YELLOW + (BLUE << 4);
  443.  
  444.         /* determine the width of the menu */
  445.     for (count = 0; count < number_choices; count++) {
  446.         width = strlen(menu_choices[count]) + 3;
  447.         if (width > maxwidth) maxwidth = width;
  448.     }
  449.  
  450.     namewidth = strlen(name);
  451.     if (namewidth > maxwidth) maxwidth = namewidth;
  452.  
  453.     helpwidth = strlen(help);
  454.     if (helpwidth > maxwidth) maxwidth = helpwidth;
  455.  
  456.     /* Make the window that will hold the menu */
  457.     handle = wn_createw(number_choices + 4, maxwidth, 1, 1, 1, 1,
  458.         number_choices + 4, maxwidth, FALSE, HEAD_ON, NULL, NULL);
  459.  
  460.     /* activate the tile in the window */
  461.     th[0] = 0;
  462.     wn_actt(handle,th[0]);
  463.  
  464.     /* make a second tile and put it in the window */
  465.     th[1] = wn_createt(handle, NULL, maxwidth, number_choices + 4, 1, 1);
  466.     wn_opent(handle, th[1]);
  467.  
  468.     /* make a third tile and put it in the window */
  469.     th[2] = wn_createt(handle, NULL, maxwidth, number_choices + 4, 1, 1);
  470.     wn_opent(handle, th[2]);
  471.  
  472.     /* squash top and bottom tiles down to one column */
  473.     tile_handle = th[1];
  474.     wn_sizet(handle, th[2], 0, TILE->port_rows - 1);
  475.     tile_handle = th[0];
  476.     wn_sizet(handle, th[0], 0, - TILE->port_rows + 1);
  477.  
  478.     /* fill the with color */
  479.     vs_fillattr(handle, th[0], 1, 1, maxwidth, 1, YELLOW, BLUE);
  480.     vs_fillattr(handle, th[1], 1, 1, maxwidth, 1, YELLOW, BLUE);
  481.     vs_fillattr(handle, th[2], 1, 1, maxwidth, number_choices, GREEN, BLACK);
  482.  
  483.     /* put the strings in the top and bottom tiles */
  484.     vs_puts(handle, th[0],1 + ((maxwidth - namewidth) / 2), 1, namewidth,
  485.         YELLOW, BLUE, name);
  486.     vs_puts(handle, th[1],1 + ((maxwidth - helpwidth) / 2), 1, helpwidth,
  487.         YELLOW, BLUE, help);
  488.  
  489.     /* put the strings in the center tile */
  490.     for (count = 0; count < number_choices; count++) {
  491.          vs_puts(handle, th[2], 3, 1 + count, maxwidth - 3, GREEN,
  492.             BLACK, menu_choices[count]);
  493.     }
  494.  
  495.     /* put the scroll bars on the center tile */
  496.     wn_togscroll(handle, th[2], TRUE);
  497.  
  498.     /* reset the gobal variables back to their original values */
  499.     inactive_tile_attr = ita;
  500.     default_box = db;
  501.  
  502.     return(handle);
  503. }
  504.  
  505. #define LOCATE        1
  506.  
  507. int runmenu(handle, default_choice, x1, y1)
  508. unsigned int handle;
  509. unsigned int default_choice;
  510. int x1, y1;
  511.  
  512. {
  513.     int curr_choice, cb, ce, button_event, new_location, event, co, timeout;
  514.     unsigned int x, y, mx, my;
  515.     unsigned char tile_handle, return_thandle;
  516.             
  517.         /* position and open the menu on the screen */
  518.     wn_locatew(handle, x1, y1);
  519.     wn_openw(handle);
  520.         
  521.     /* highlight default choice */
  522.     curr_choice = default_choice;
  523.  
  524.     /* initialize event */
  525.     event  = 0;
  526.  
  527.     /* change the cursor size */
  528.     cb = cursor_b;
  529.     ce = cursor_e;
  530.     co = cursor_on;
  531.     cursor_b = 0;
  532.     cursor_e = 15;
  533.  
  534.     /* display the cursor */
  535.     wn_showcur();
  536.     if (mouse_installed) kb_showmouse();
  537.  
  538.     /* set tile handle to center tile */
  539.     tile_handle = WDW->tiles[WDW->first_tile]->forward;
  540.  
  541.     /* set the center tile as the active tile */
  542.     wn_actt(handle, tile_handle);
  543.  
  544.     /* forces highlighting of default choice */
  545.     TILE->cursor_y = 0;
  546.     timeout = 150;
  547.  
  548.     /* command loop */
  549.     while (event != ENTER) {
  550.  
  551.         /* reset the event */
  552.         event = 0;
  553.  
  554.         /* reset new_location */
  555.         new_location = curr_choice;
  556.  
  557.         /* put the cursor on the current item */
  558.         if (TILE->cursor_y != curr_choice) {
  559.             vs_locatecur(handle, tile_handle, 1, curr_choice);
  560.             if (mouse_installed) kb_hidemouse();
  561.             vs_fillattr(handle, tile_handle, 1, curr_choice,
  562.                 WDW->port_columns, curr_choice, BLACK, LIGHTGRAY);
  563.             if(mouse_installed) kb_showmouse();
  564.         }
  565.  
  566.         /* if there is a key in the buffer get it */
  567.         if (kbhit()) event = kb_getxc();
  568.  
  569.         /* if a mouse is installed read it */
  570.         if (mouse_installed) {
  571.  
  572.             button_event = kb_mouseclicks(1, timeout, &mx, &my);
  573.     
  574.             /* convert mouse coordinates to physical screen coordinates */
  575.             x = (mx/8) + 1;
  576.             y = (my/8) + 1;
  577.  
  578.             /*
  579.              * if it is a click in the active tile then set a to point
  580.              * to new row to highlight  and set event to indicate mouse event
  581.              * if a DOUBECLICK exit.
  582.             */
  583.  
  584.             /* these three button events translate into actions */
  585.             if ((button_event == CLICK) ||
  586.                 (button_event == DOUBLECLICK) ||
  587.                 (button_event == HOLDING)) {
  588.  
  589.                 /*
  590.                  * clicking in a location or holding and
  591.                  * positioning the cursor moves the selected
  592.                  * item.  double-clicking on an item selects
  593.                  * it and confirms
  594.                 */
  595.                 if (wn_isonvs(handle, tile_handle, &x, &y)) {
  596.                     new_location = y;
  597.                     if ((button_event == CLICK) ||
  598.                         (button_event == HOLDING))
  599.                         event = LOCATE;
  600.                     else event = ENTER;
  601.                     }            
  602.                 
  603.                 /*
  604.                  * doing any of these things on a scroll bar
  605.                  * is the the same as hitting the up or down
  606.                  * key
  607.                 */
  608.                 if ((wn_isonsbd(handle, tile_handle, x, y)) ||
  609.                     (wn_isonsbr(handle, tile_handle, x, y))) {
  610.                     event = DOWN;
  611.                 }
  612.                 if ((wn_isonsbu(handle, tile_handle, x, y)) ||
  613.                     (wn_isonsbl(handle, tile_handle, x, y))) {
  614.                     event = UP;
  615.                 }
  616.                 if ((wn_isonvs(handle, WDW->last_tile, &x, &y)) &&
  617.                     (button_event == CLICK)) {
  618.                     event = ENTER;
  619.                 }
  620.                 
  621.             }
  622.  
  623.             /*
  624.              * if it is a button press then lower timeout rate
  625.              * to speed up scrolling rate
  626.             */
  627.             if (button_event == PRESS) {
  628.                 
  629.                 /* use maximum sampling rate if dragging a selection */
  630.                 if (wn_isonvs(handle,
  631.                     WDW->tiles[WDW->first_tile]->forward,
  632.                     &x, &y)) timeout = 1;
  633.  
  634.                 /* use a little slower sampling rate if in the scroll bar area */
  635.                 else if (
  636.                     (wn_isonvrbar(handle,
  637.                     WDW->tiles[WDW->first_tile]->forward,
  638.                     x, y)) ||
  639.                     (wn_isonhbar(handle,
  640.                     WDW->tiles[WDW->first_tile]->forward,
  641.                     x, y))) timeout = 70;
  642.             }
  643.     
  644.             /*
  645.              * If the user releases the button then up time out
  646.              * rate to something suitable for clicking
  647.             */
  648.             if (button_event == RELEASE) timeout = 200;
  649.         }
  650.  
  651.         /* if there is an event .... */
  652.         if (event != 0) {
  653.  
  654.             /* interpret the event into a new current item */
  655.             if ((event == UP) || (event == LEFT)) curr_choice--;
  656.             if ((event == DOWN) || (event == RIGHT)) curr_choice++;
  657.             if (event == HOME) curr_choice = 1;
  658.             if (event == END) curr_choice = 6;
  659.             if ((event == LOCATE) || (event == ENTER)) {
  660.                 curr_choice = new_location;
  661.             }
  662.  
  663.             /* check for wrap around */
  664.             if (curr_choice < 1) curr_choice = TILE->port_rows;
  665.             if (curr_choice > TILE->port_rows) curr_choice = 1;
  666.  
  667.             if (curr_choice != TILE->cursor_y) {
  668.  
  669.                 /* de-highlight the current item */
  670.                 if (mouse_installed) kb_hidemouse();
  671.                 vs_fillattr(handle, tile_handle, 1, TILE->cursor_y,
  672.                     WDW->port_columns, TILE->cursor_y,
  673.                     GREEN, BLACK);
  674.                 if (mouse_installed) kb_showmouse();
  675.             }
  676.         }
  677.     }
  678.  
  679.     /* reset cursor size */
  680.     cursor_b = cb;
  681.     cursor_e = ce;
  682.     if (mouse_installed) kb_hidemouse();
  683.  
  684.     /* close the window */
  685.     wn_closew(handle);
  686.  
  687.     /* reset the cursor */
  688.     if (!co) wn_hidecur();
  689.  
  690.     /* return results */
  691.     return(curr_choice);
  692. }
  693.  
  694. int panel3(handle)
  695. unsigned int handle;
  696. {
  697.     int key = 0, x, y;
  698.  
  699.     /* format a string */
  700.     sprintf(buffer,
  701. "The WINDOW PRO is a\n\n\
  702.           * virtual screen manager.\n\n\
  703. Virtual screens are the basis of most\n\
  704. editors, providing the support for\n\n\
  705.           * horizontal scrolling, and\n\
  706.           * windowing.\n\n\
  707. Let me give you an example. I'll shrink\n\
  708. this window, and you pan through it with\n\
  709. the arrow keys.  I'll also activate scroll\n\
  710. bars (with a simple function call) to\n\
  711. remind the user of what keys to use.");
  712.  
  713.     /* output to window */
  714.     wn_suspendw(handle);    
  715.     vs_format(handle, 0, WHITE, RED, buffer);
  716.     wn_suspendw(handle);    
  717.     chgmethod();
  718.  
  719.     /* shrink it down and put on scroll bars and a message */
  720.     wn_sizet(handle, 0, -10, -10);
  721.     wn_togscroll(handle, 0, TRUE);
  722.     wn_namet(handle, 0, "Press ENTER to continue");
  723.  
  724.     /* stay in command loop until ENTER is pressed */
  725.     while (key != ENTER) {
  726.         /* get the keypress */
  727.         key = kb_getxc();
  728.         
  729.         /* set scroll indicators to 0 */
  730.         x = y = 0;
  731.  
  732.         /* interpret each keypress into scrolling values */
  733.         switch (key) {
  734.             case UP   : y = -1;
  735.                     break;
  736.             case DOWN : y = 1;
  737.                     break;
  738.             case LEFT : x = -1;
  739.                     break;
  740.             case RIGHT: x = 1;
  741.                     break;
  742.             case HOME : wn_locatevs(handle, 0, 1, 1);
  743.                     break;
  744.             case END  : wn_locatevs(handle, 0, 100, 100);
  745.                     break;
  746.             }
  747.     
  748.         /* scroll the virtual screen */
  749.         wn_scrollvs(handle, 0, x, y);
  750.         }
  751.  
  752.     /* expand it back out again, change the message & turn off scroll bars */
  753.     wn_sizet(handle, 0, 10, 10);
  754.     wn_namet(handle, 0, "Press any key to continue");
  755.     wn_togscroll(handle, 0, FALSE);
  756.  
  757.     /* set the virtual screen to the top left corner */
  758.     wn_locatevs(handle, 0, 1, 1);
  759.  
  760.     /* output trailer message */
  761.     vs_clrvs(handle, 0, WHITE, MAGENTA);
  762.     vs_locatecur(handle, 0, 1, 1);
  763.     sprintf(buffer,
  764. "Virtual\n\
  765. Screens\n\n\
  766. Scroll\n\
  767. Bars");
  768.     vs_format(handle, 0, WHITE, MAGENTA, buffer);
  769. }
  770.  
  771. int panel4(handle)
  772. unsigned int handle;
  773. {    
  774.         unsigned int mhandle, timer;
  775.         int count;
  776.     
  777.     /* print the basic text */
  778.     sprintf(buffer,
  779. "The WINDOW PRO is easy to use.  It\n\
  780. has a windows-like printf that works\n\
  781. just like regular printf but adds\n\
  782. some extras like color support.\n\n\
  783. Watch I'll count to 10 like this:\n\n\
  784. for (count = 1; count <= 10; count++)\n\
  785.   vs_printf(wdw,tile,fgcolor, bgcolor,\n\
  786.   \042count %%d\\n\042,count);\n\n");
  787.     wn_suspendw(handle);    
  788.     vs_format(handle, 0, WHITE, RED, buffer);
  789.     wn_suspendw(handle);    
  790.     chgmethod();
  791.  
  792.     /* set up a window to count in  and open it */
  793.     mhandle = wn_createw(15, 20, 29, 5, 1, 1, 15, 20, FALSE, HEAD_ON,
  794.         "vs_printf","Press any key");
  795.     wn_namet(handle, 0, NULL);
  796.     wn_openw(mhandle);
  797.  
  798.     /* print a little message */
  799.     sprintf(buffer,"First slowly...\n\n");
  800.     vs_format(mhandle, 0, WHITE, RED, buffer);
  801.  
  802.     /*
  803.      * count from one to ten -- slowly
  804.      * NOTE: this is the MSC method for output which also runs under BORLAND.
  805.      *       vs_printf is more straightforward -- but won't work under MSC; yet.
  806.     */
  807.     for (count = 1; count <= 10; count++) {
  808.         sprintf(buffer,"count %d.\n",count);
  809.         vs_format(mhandle, 0, GREEN, BLACK, buffer);
  810.         for (timer = 0; timer < 50000; timer++);
  811.     }
  812.     chgmethod();
  813.  
  814.     /* clear the window */
  815.     vs_clrvs(mhandle, 0, WHITE, BLACK);
  816.     vs_locatecur(mhandle, 0, 1, 1);
  817.  
  818.     /* print a little message */
  819.     sprintf(buffer,"And now quickly....\n\n");
  820.     vs_format(mhandle, 0, WHITE, RED, buffer);
  821.  
  822.     /* count fast */
  823.     for (count = 1; count <= 10; count++) {
  824.         sprintf(buffer,"count %d.\n",count);
  825.         vs_format(mhandle, 0, YELLOW, BLACK, buffer);
  826.     }
  827.     chgmethod();
  828.  
  829.     /* get rid of the counting window */
  830.     wn_delw(mhandle);
  831.  
  832.     /* format a string */
  833.     sprintf(buffer,
  834. "The WINDOW PRO also supports a windows-like\n\
  835. gets.  It works the same as the gets that\n\
  836. you're used to but adds support for color\n\
  837. and scrolling.  Watch how vs_gets works.");
  838.  
  839.     /* clear the window and output the string */
  840.     wn_suspendw(handle);    
  841.     vs_clrvs(handle, 0, WHITE, RED);
  842.     vs_locatecur(handle, 0, 1, 1);
  843.     vs_format(handle, 0, WHITE, RED, buffer);
  844.     wn_namet(handle, 0, "Press any key to continue");
  845.     wn_suspendw(handle);    
  846.     chgmethod();
  847.  
  848.     /* turn off the window name */
  849.     wn_namet(handle, 0, NULL);
  850.  
  851.     /* set up a new window for demonstrating vs_gets */
  852.     mhandle = wn_createw(3, 45, 29, 5, 1, 1, 2, 35, FALSE, HEAD_ON,
  853.         "vs_gets --- scrolling ON","Press ENTER to terminate vs_gets");
  854.  
  855.     /* clear the window */
  856.     vs_clrvs(mhandle, 0, WHITE, BLUE);
  857.  
  858.     /* display the window */
  859.     wn_openw(mhandle);
  860.  
  861.     /* turn on the cursor */
  862.     wn_showcur();
  863.  
  864.     /* use vs_gets */
  865.     vs_gets(mhandle, 0, TRUE, buffer, WHITE, BLUE, 200);
  866.  
  867.     /* turn off the cursor */
  868.     wn_hidecur();
  869.  
  870.     /* change the window name */
  871.     wn_namet(mhandle, 0, "Press any key to continue");
  872.     chgmethod();
  873.  
  874.     /* suspend the window while we fix a few things */
  875.     wn_suspendw(mhandle);
  876.     
  877.     /* change the window name */
  878.     wn_namew(mhandle, "vs_gets --- scrolling OFF");
  879.  
  880.     /* change the name on the bottom of the window */
  881.     wn_namet(mhandle, 0, "Press ENTER to terminate vs_gets");
  882.  
  883.     /* erase everything in the window */
  884.     vs_clrvs(mhandle, 0, WHITE, BLUE);
  885.  
  886.     /*
  887.      * set the upper left corner of the window = to the upper left
  888.      * corner of the virtual screen
  889.     */
  890.     wn_locatevs(mhandle, 0, 1, 1);
  891.  
  892.     /* reset the cursor position */
  893.     vs_locatecur(mhandle, 0, 1, 1);
  894.  
  895.     /* turn on the cursor */
  896.     wn_showcur();
  897.  
  898.     /* flash the results of the above to the screen */
  899.     wn_suspendw(mhandle);
  900.  
  901.     /* demonstrate vs_gets without scrolling */
  902.     vs_gets(mhandle, 0, FALSE, buffer, WHITE, BLUE, 200);
  903.  
  904.     /* turn off the cursor */
  905.     wn_hidecur();
  906.  
  907.     /* change the name of the window */
  908.     wn_namet(mhandle, 0, "Press any key to continue");
  909.     chgmethod();
  910.  
  911.     /* get rid of the demonstration window */
  912.     wn_delw(mhandle);
  913.  
  914.     /* output the trailer message */
  915.     vs_clrvs(handle, 0, WHITE, BROWN);
  916.     vs_locatecur(handle, 0, 1, 1);
  917.     sprintf(buffer,
  918. "  Easy\n\n\
  919.    to\n\n\
  920.    use");
  921.     vs_format(handle, 0, WHITE, BROWN, buffer);
  922. }
  923.  
  924. int panel5(handle)
  925. unsigned int handle;
  926. {
  927.     unsigned int mhandle, count, b;
  928.  
  929.     /* format a string */
  930.     sprintf(buffer,
  931. "The WINDOW PRO uses 3 screen update methods:\n\n\
  932.           * DMA,\n\
  933.           * BIOS, and\n\
  934.           * ANSI.\n\n\
  935. Each is available at runtime.  You can even\n\
  936. switch in mid-application.\n\n\
  937. These features give your products a\n\n\
  938.           * wider customer base,\n\
  939.           * reduce hardware dependence, and\n\
  940.           * provide a built-in approach to\n\
  941.             user customization.");
  942.  
  943.     /* output a string */
  944.     wn_suspendw(handle);
  945.     vs_format(handle, 0, WHITE, RED, buffer);
  946.     wn_suspendw(handle);
  947.     chgmethod();
  948.  
  949.     /* format another string */
  950.     sprintf(buffer,
  951. "More specifically\n\n\
  952. ** DMA is fast, but causes snow on some\n\
  953.    old CGA cards, and is ill-behaved by\n\
  954.    MS-WINDOWS' and DESQVIEW's standards.\n\n\
  955. ** BIOS makes your programs compatible with\n\
  956.    MS-WINDOWS and DESQVIEW.\n\n\
  957. ** ANSI makes you programs more hardware\n\
  958.    independent, running from remote\n\
  959.    terminals, on DEC PC's, and other\n\
  960.    equipment is very feasible.  You can even\n\
  961.    modify the command sequences to support\n\
  962.    additional equipment.");
  963.  
  964.     /* clear the screen and output the string */
  965.     wn_suspendw(handle);
  966.     vs_clrvs(handle, 0, WHITE, RED);
  967.     vs_locatecur(handle, 0, 1, 1);
  968.     vs_format(handle, 0, WHITE, RED, buffer);
  969.     wn_suspendw(handle);
  970.     chgmethod();
  971.  
  972.     /* format another string */
  973.     sprintf(buffer,
  974. "See what kind of performance difference\n\
  975. you can detect.  I'll count to ten again.\n\
  976. First, I'll use the DMA approach and then\n\
  977. I'll use the BIOS method.\n\n\n");
  978.  
  979.     /* output the string */
  980.     wn_suspendw(handle);
  981.     vs_clrvs(handle, 0, WHITE, RED);
  982.     vs_locatecur(handle, 0, 1, 1);
  983.     vs_format(handle, 0, WHITE, RED, buffer);
  984.     wn_suspendw(handle);
  985.     chgmethod();
  986.  
  987.     b = method;
  988.  
  989.     /* set up a window to count in  and open it */
  990.     mhandle = wn_createw(15, 20, 29, 5, 1, 1, 15, 20, FALSE, HEAD_ON,
  991.         "DMA updating","Press any key");
  992.     wn_namet(handle, 0, NULL);
  993.     wn_openw(mhandle);
  994.  
  995.     method = DMA;
  996.  
  997.     /* count */
  998.     for (count = 1; count <= 10; count++) {
  999.         sprintf(buffer,"count %d.\n",count);
  1000.         vs_format(mhandle, 0, RED, BLACK, buffer);
  1001.     }
  1002.     chgmethod();
  1003.  
  1004.     /* clear the window */
  1005.     vs_clrvs(mhandle, 0, WHITE, BLACK);
  1006.     vs_locatecur(mhandle, 0, 1, 1);
  1007.  
  1008.     /* change the window name */
  1009.     wn_namew(mhandle, "BIOS updating");
  1010.  
  1011.     /* change to the BIOS update method */
  1012.     method = BIOS;
  1013.  
  1014.     /* count */
  1015.     for (count = 1; count <= 10; count++) {
  1016.         sprintf(buffer,"count %d.\n",count);
  1017.         vs_format(mhandle, 0, MAGENTA, BLACK, buffer);
  1018.     }
  1019.     chgmethod();
  1020.  
  1021.     /* change back to default updating */
  1022.     method = b;
  1023.  
  1024.     /* get rid of the window */
  1025.     wn_delw(mhandle);
  1026.  
  1027.     /* output the trailer message */
  1028.     vs_clrvs(handle, 0, WHITE, BLACK);
  1029.     vs_locatecur(handle, 0, 1, 1);
  1030.     sprintf(buffer,
  1031. "  BIOS\n\n\
  1032.   DMA\n\n\
  1033.   ANSI");
  1034.     vs_format(handle, 0, WHITE, BLACK, buffer);
  1035. }
  1036.  
  1037. int panel6(handle)
  1038. unsigned int handle;
  1039. {
  1040.     /* format a string */
  1041.     sprintf(buffer,
  1042. "The WINDOW PRO provides complete\n\
  1043. control over colors...\n\n");
  1044.  
  1045.     /* output the string */
  1046.     wn_suspendw(handle);
  1047.     vs_format(handle, 0, WHITE, RED, buffer);
  1048.     wn_suspendw(handle);
  1049.     chgmethod();
  1050.  
  1051.     /* display the attributes window */
  1052.     attributes();
  1053.  
  1054.     /* output the string */
  1055.     wn_suspendw(handle);
  1056.     vs_clrvs(handle, 0, WHITE, RED);
  1057.     vs_locatecur(handle, 0, 1, 1);
  1058.     vs_format(handle, 0, WHITE, RED,
  1059. "The WINDOW PRO uses logical colors.  No\n\
  1060. matter how you write your programs The\n\
  1061. WINDOW PRO stores the actual attribute\n\
  1062. values in a single location.  This \n\n\
  1063.      * Lets you easily give your\n\
  1064.        end-users customizable color\n\
  1065.        schemes (like BORLAND and\n\
  1066.        MICROSOFT products,) and\n\n");
  1067.  
  1068.     vs_format(handle, 0, WHITE, RED,
  1069. "     * Makes porting applications\n\
  1070.        simpler.  You can create color\n\
  1071.        keys for several terminals and,\n\
  1072.        video boards, making your\n\
  1073.        application look consistent on\n\
  1074.        all hardware.");
  1075.  
  1076.     wn_suspendw(handle);
  1077.     chgmethod();
  1078.  
  1079.     /* output the trailer message */
  1080.     vs_clrvs(handle, 0, YELLOW, BLACK);
  1081.     vs_locatecur(handle, 0, 1, 1);
  1082.     sprintf(buffer,
  1083. " Custom\n\n\
  1084.  Color\n\n\
  1085.  Support");
  1086.     vs_format(handle, 0, YELLOW, BLACK, buffer);
  1087.  
  1088.  
  1089. }
  1090.  
  1091. int attributes()
  1092. {
  1093.  
  1094.     unsigned int window_handle, count1, count2;
  1095.     char *bg = "Background||v    ";
  1096.  
  1097.     /* set up ta window to display the attributes in */
  1098.     window_handle = wn_createw(25, 80, 35, 2, 1, 1, 20, 20, FALSE,
  1099.         HEAD_ON, "Video Attributes", NULL);
  1100.  
  1101.     /* position the cursor */
  1102.     vs_locatecur(window_handle,0,2,1);
  1103.  
  1104.     /* output the horizontal titles */
  1105.     vs_format(window_handle, 0, WHITE, BLACK, "Foreground-->");
  1106.     vs_locatecur(window_handle,0,4,3);
  1107.     for (count1 = 0; count1 < 16; count1++) {
  1108.         sprintf(buffer, "%X", count1);
  1109.         vs_format(window_handle, 0, WHITE, BLACK, buffer);
  1110.     }
  1111.  
  1112.     /* output the rest line by line */
  1113.     for (count1 = 0; count1 < 16; count1++) {
  1114.  
  1115.         /* output the vertical title */
  1116.         vs_locatecur(window_handle, 0, 1, count1+4);
  1117.         sprintf(buffer, "%c %X", bg[count1], count1);
  1118.         vs_format(window_handle, 0, WHITE, BLACK, buffer);            
  1119.         
  1120.         /* output the attribute display for the current line */
  1121.         for (count2 = 0; count2 < 16; count2++) {
  1122.             vs_putc(window_handle, 0, count2 + 4, count1 + 4, count2, count1, 'x');
  1123.         }
  1124.     }
  1125.     
  1126.     /* display the window */
  1127.     wn_openw(window_handle);
  1128.      chgmethod();
  1129.  
  1130.     /* get rid of the window */
  1131.      wn_delw(window_handle);
  1132. }
  1133.  
  1134. int panel7(handle)
  1135. unsigned int handle;
  1136. {
  1137.         unsigned char th[3];
  1138.     int event = 0;
  1139.     
  1140.     th[0] = 0;
  1141.     active_tile_attr = LIGHTGREEN + (BLACK << 4);
  1142.     inactive_tile_attr = WHITE + (BLACK << 4);
  1143.  
  1144.     /* format a string */
  1145.     sprintf(buffer,
  1146. "The WINDOW PRO lets you associate several\n\
  1147. virtual screens with a single window.  You\n\
  1148. can\n\n\
  1149.         * split windows and display\n\
  1150.           multiple virtual screens in\n\
  1151.           in a single split-window\n\
  1152.         * swap virtual screens in and out\n\
  1153.         * and change the sizes of split\n\
  1154.           window areas (we call them tiles)\n\n\
  1155. This is the basis for things like segmented\n\
  1156. pull-down menus, and other sophisticated\n\
  1157. screen effects.\n\n\
  1158. Watch this example.");
  1159.  
  1160.     /* output the string */
  1161.     wn_suspendw(handle);
  1162.     vs_format(handle, 0, WHITE, RED, buffer);
  1163.     wn_suspendw(handle);
  1164.     chgmethod();
  1165.  
  1166.     /* change the tile name */
  1167.     wn_namet(handle, th[0], "first virtual screen");
  1168.  
  1169.     /* create a second tile */
  1170.     th[1] = wn_createt(handle, "second virtual screen", 80, 25, 1, 1);
  1171.  
  1172.     /* fill in the second tile with color */
  1173.     vs_clrvs(handle, th[1], WHITE, GREEN);
  1174.  
  1175.     /* format a string and output it to the second tile */
  1176.     sprintf(buffer,
  1177. "This is a second virtual screen.  It is\n\
  1178. completely independent of the first\n\
  1179. virtual screen.\n\n\
  1180. -- Pan using the arrow keys\n\
  1181. -- Swap virtual screens HOME\n\
  1182. -- Switch virtual screens END\n\
  1183. -- Size using PgUp/PgDn\n\
  1184. -- ENTER to continue");
  1185.  
  1186.     wn_suspendw(handle);
  1187.     vs_format(handle, th[1], WHITE, GREEN, buffer);
  1188.  
  1189.     /* display the second tile */
  1190.     wn_opent(handle, th[1]);
  1191.  
  1192.     /* make the second tile a little bigger */
  1193.     wn_sizet(handle, th[0], 0, -3);
  1194.  
  1195.     /* make the second tile the active tile */
  1196.     wn_actt(handle, th[1]);
  1197.  
  1198.     /* turn on the scroll bars */
  1199.     wn_togscroll(handle, th[1], TRUE);
  1200.  
  1201.     /* flash all changes to the screen */
  1202.     wn_suspendw(handle);
  1203.  
  1204.     /* main command loop: exits on pressing ENTER */
  1205.     while (event != ENTER) {
  1206.  
  1207.         /* get keystroke */
  1208.         event = kb_getxc();
  1209.  
  1210.         /* select an action */
  1211.         switch (event) {
  1212.             case UP     : wn_scrollvs(handle, WDW->active_tile, 0, -1);
  1213.                       break;
  1214.             case DOWN     : wn_scrollvs(handle, WDW->active_tile, 0, 1);
  1215.                     break;
  1216.             case LEFT    : wn_scrollvs(handle, WDW->active_tile, -1, 0);
  1217.                     break;
  1218.             case RIGHT    : wn_scrollvs(handle, WDW->active_tile, 1, 0);
  1219.                     break;
  1220.             case PGUP    : wn_sizet(handle, WDW->first_tile, 0, -1);
  1221.                     break;
  1222.             case PGDN    : wn_sizet(handle, WDW->first_tile, 0, 1);
  1223.                     break;
  1224.             case HOME    : wn_swapt(handle, th[0], handle, th[1]);
  1225.                       event = END;
  1226.             case END    : if (WDW->active_tile == th[0]) {
  1227.                         wn_suspendw(handle);
  1228.                         wn_togscroll(handle, th[0], FALSE);
  1229.                         wn_togscroll(handle, th[1], TRUE);
  1230.                         wn_actt(handle, th[1]);
  1231.                         wn_suspendw(handle);
  1232.                     }
  1233.                     else {
  1234.                         wn_suspendw(handle);
  1235.                         wn_togscroll(handle, th[1], FALSE);
  1236.                         wn_togscroll(handle, th[0], TRUE);
  1237.                         wn_actt(handle, th[0]);
  1238.                         wn_suspendw(handle);
  1239.                     }
  1240.                     break;
  1241.         }
  1242.     }
  1243.  
  1244.     /* close up the second tile */
  1245.     wn_closet(handle, th[1]);
  1246.  
  1247.     /* turn off the scroll bars */
  1248.     wn_togscroll(handle, th[0], FALSE);
  1249.     
  1250.     /* output the trailer message */
  1251.     vs_clrvs(handle, th[0], BLACK, RED);
  1252.     wn_locatevs(handle, th[0], 1, 1);
  1253.     vs_locatecur(handle, th[0], 1, 1);
  1254.     sprintf(buffer,"\n\n Tiles");
  1255.     vs_format(handle, th[0], BLACK, RED, buffer);
  1256. }
  1257.  
  1258. int panel8(handle)
  1259. unsigned int handle;
  1260. {
  1261.     unsigned int mhandle;
  1262.     unsigned char th;
  1263.  
  1264.     /* format a string */
  1265.     sprintf(buffer,
  1266. "The WINDOW PRO gives you complete control\n\
  1267. over\n\n\
  1268.          * border characters, and\n\
  1269.          * border styles.\n\n\
  1270. Border characters are up to you.  You can\n\
  1271. use any of the several built-in sets of\n\
  1272. border characters, or create your own.\n\n\
  1273. Border styles let you create shadowing\n\
  1274. effects.\n\n\
  1275. Look at the following example for an idea\n\
  1276. of the flexibility of The WINDOW PRO.");
  1277.  
  1278.     /* output the string */
  1279.     wn_suspendw(handle);
  1280.     vs_format(handle, 0, WHITE, RED, buffer);
  1281.     wn_suspendw(handle);
  1282.     chgmethod();
  1283.     
  1284.     /* setup a window to demonstrate border stuff */
  1285.     mhandle = wn_createw(25, 80, 29, 5, 1, 1, 12, 25, FALSE, HEAD_ON,
  1286.         "BORDER CHARACTERS",NULL);
  1287.  
  1288.     /* create a second tile -- to show the full effect of certain changes */
  1289.     th = wn_createt(mhandle, "Press any key", 80, 25, 1, 1);
  1290.  
  1291.     /* fill both tiles with color */
  1292.     vs_clrvs(mhandle, 0, BLACK, LIGHTGRAY);
  1293.     vs_clrvs(mhandle, th, BLACK, LIGHTGRAY);
  1294.  
  1295.     /* display the second tile */
  1296.     wn_opent(mhandle, th);
  1297.  
  1298.     /* display the window */
  1299.     wn_openw(mhandle);
  1300.  
  1301.     /* display various border styles */
  1302.     wn_chgbord(mhandle, box1);
  1303.     chgmethod();
  1304.     wn_chgbord(mhandle, box2);
  1305.     chgmethod();
  1306.     wn_chgbord(mhandle, box3);
  1307.     chgmethod();
  1308.     wn_chgbord(mhandle, box4);
  1309.     chgmethod();
  1310.     sprintf(buffer,
  1311. "\n\n    Border Styles");
  1312.     vs_format(mhandle, 0, BLACK, LIGHTGRAY, buffer);
  1313.     wn_namet(mhandle, th, NULL);
  1314.     wn_namew(mhandle, NULL);
  1315.     wn_togborder(mhandle, UPPER_LEFT);
  1316.     chgmethod();
  1317.     wn_togborder(mhandle, UPPER_RIGHT);
  1318.     chgmethod();
  1319.     wn_togborder(mhandle, LOWER_RIGHT);
  1320.     chgmethod();
  1321.     wn_togborder(mhandle, LOWER_LEFT);
  1322.     chgmethod();
  1323.     wn_togborder(mhandle, NONE);
  1324.     chgmethod();
  1325.     wn_togborder(mhandle, HEAD_ON);
  1326.     wn_chgbord(mhandle, box0);
  1327.     chgmethod();
  1328.  
  1329.     /* get rid of the demonstration window */
  1330.     wn_delw(mhandle);
  1331.  
  1332.     /* output the trailer message */
  1333.     vs_clrvs(handle, 0, BLACK, GREEN);
  1334.     vs_locatecur(handle, 0, 1, 1);
  1335.  
  1336.     sprintf(buffer,
  1337. "Flexible\n\n\
  1338.  Border\n\n\
  1339.  Styles");
  1340.     vs_format(handle, 0, BLACK, GREEN, buffer);
  1341. }
  1342.  
  1343. int panel9(handle)
  1344. unsigned int handle;
  1345. {
  1346.  
  1347.     unsigned int mhandle[3];
  1348.     int count;
  1349.  
  1350.     sprintf(buffer,
  1351. "The WINDOW PRO provides several methods of\n\
  1352. controlling overlapping of windows\n\n\
  1353. First, some overlapping windows...");
  1354.     wn_suspendw(handle);
  1355.     vs_format(handle, 0, WHITE, RED, buffer);
  1356.     wn_suspendw(handle);
  1357.     chgmethod();
  1358.  
  1359.     for (count = 0; count < 3; count++) {
  1360.         mhandle[count] = wn_createw(25, 80, 20 + (count * 3),
  1361.             4 + (count * 3), 1, 1, 10, 15, FALSE, HEAD_ON,
  1362.             NULL,NULL);
  1363.         vs_clrvs(mhandle[count], 0, WHITE, BLACK + 3 + count);
  1364.         wn_openw(mhandle[count]);
  1365.     }
  1366.     chgmethod();
  1367.  
  1368.     sprintf(buffer,
  1369. "Popular programs like Framework & Symphony\n\
  1370. actually use several methods of manipulating\n\
  1371. overlapping windows like\n\n\
  1372.           * activation,\n\
  1373.           * hiding,\n\
  1374.           * opening, and\n\
  1375.           * closing.\n\n\
  1376. The differences are subtle but important.\n\
  1377. Particularly important when you commit to\n\
  1378. BRAND X and find out that the subtleties\n\
  1379. escaped you, the client wants changes made,\n\
  1380. BRAND X won't do it, and the deadline\n\
  1381. looms closer.  See if you can pick up on\n\
  1382. the differences.");
  1383.  
  1384.     wn_suspendw(handle);
  1385.     vs_clrvs(handle, 0, WHITE, RED);
  1386.     vs_locatecur(handle, 0, 1, 1);
  1387.     vs_format(handle, 0, WHITE, RED, buffer);
  1388.     wn_suspendw(handle);
  1389.     wn_actw(handle);
  1390.     chgmethod();
  1391.  
  1392.     sprintf(buffer,
  1393. "Activating a window temporarily brings it\n\
  1394. it to the top and reinserts the previously\n\
  1395. active window back into the stack at its\n\
  1396. original position.\n\n\
  1397. Watch what happens when a window is\n\
  1398. activated.  (For future reference, the\n\
  1399. bright bordered window is the active window,\n\
  1400. and there is always an active window on the\n\
  1401. screen.)");
  1402.     wn_suspendw(handle);
  1403.     vs_clrvs(handle, 0, WHITE, RED);
  1404.     vs_locatecur(handle, 0, 1, 1);
  1405.     vs_format(handle, 0, WHITE, RED, buffer);
  1406.     wn_suspendw(handle);
  1407.     chgmethod();
  1408.     wn_actw(mhandle[2]);
  1409.     chgmethod();
  1410.  
  1411.     for (count = 0; count < 2; count++) {
  1412.         wn_actw(mhandle[count]);
  1413.         chgmethod();
  1414.         wn_actw(mhandle[2]);
  1415.         chgmethod();
  1416.     }
  1417.  
  1418.     sprintf(buffer,
  1419. "Hiding a window supresses its display\n\
  1420. 'Un-hiding' it reinserts it back into its\n\
  1421. original position in the stack\n\n\
  1422. Watch closely as I hide and un-hide each\n\
  1423. window.");
  1424.     wn_suspendw(handle);
  1425.     vs_clrvs(handle, 0, WHITE, RED);
  1426.     vs_locatecur(handle, 0, 1, 1);
  1427.     vs_format(handle, 0, WHITE, RED, buffer);
  1428.     wn_suspendw(handle);
  1429.     wn_actw(handle);
  1430.     chgmethod();
  1431.     wn_actw(mhandle[2]);
  1432.     chgmethod();
  1433.  
  1434.     for (count = 0; count < 3; count++) {
  1435.         wn_hidew(mhandle[count]);
  1436.         chgmethod();
  1437.         wn_hidew(mhandle[count]);
  1438.         if (count == 2) wn_actw(mhandle[count]);
  1439.         chgmethod();
  1440.     }
  1441.  
  1442.     sprintf(buffer,
  1443. "Opening a window places it permanently on\n\
  1444. top of the stack of windows.\n\n\
  1445. Closing a window removes it from the screen.\n\n\
  1446. Notice what happens as I close and open\n\
  1447. each window.");
  1448.     wn_suspendw(handle);
  1449.     vs_clrvs(handle, 0, WHITE, RED);
  1450.     vs_locatecur(handle, 0, 1, 1);
  1451.     vs_format(handle, 0, WHITE, RED, buffer);
  1452.     wn_suspendw(handle);
  1453.     wn_actw(handle);
  1454.     chgmethod();
  1455.     wn_actw(mhandle[2]);
  1456.     chgmethod();
  1457.  
  1458.     for (count = 2; count >= 0; count--) {
  1459.         wn_closew(mhandle[count]);
  1460.         chgmethod();
  1461.         wn_openw(mhandle[count]);
  1462.         chgmethod();
  1463.     }
  1464.  
  1465.     for (count = 0; count < 3 ; count++) wn_closew(mhandle[count]);
  1466.  
  1467.     vs_clrvs(handle, 0, RED, BLACK);
  1468.     vs_locatecur(handle, 0, 1, 1);
  1469.  
  1470.     sprintf(buffer,
  1471. "  Over\n\n\
  1472.  lapping\n\n\
  1473.  Windows");
  1474.     vs_format(handle, 0, RED, BLACK, buffer);
  1475. }
  1476.  
  1477. int panel10(handle)
  1478. unsigned int handle;
  1479. {
  1480.     wn_suspendw(handle);
  1481.     vs_format(handle, 0, WHITE, RED,
  1482. "The WINDOW PRO is distributed under the\n\
  1483. shareware marketing concept.  You are free\n\
  1484. to incorporate The WINDOW PRO shareware\n\
  1485. version into your applications programs and\n\
  1486. may distribute those programs royalty free.\n\n\
  1487. To get the full benefit of The WINDOW PRO,\n");
  1488.  
  1489.     vs_format(handle, 0, WHITE, RED,
  1490. "register with Seabreeze for updates and\n\
  1491. technical support. The shareware users\n\
  1492. manual contains additional information on\n\
  1493. registering, or you can contact:\n\n\
  1494.              Kenneth Stott\n\
  1495.            Seabreeze Software\n\
  1496.                66 Krebs Rd.\n\
  1497.           Plainsboro, NJ 08536\n\
  1498.              (609) 275-8715");
  1499.  
  1500.     wn_suspendw(handle);
  1501.     chgmethod();
  1502.  
  1503.     vs_clrvs(handle, 0, MAGENTA, BLACK);
  1504.     vs_locatecur(handle, 0, 1, 1);
  1505.  
  1506.     sprintf(buffer,
  1507. "\n\
  1508.  Share-\n\
  1509.   ware");
  1510.     vs_format(handle, 0, MAGENTA, BLACK, buffer);
  1511. }
  1512.  
  1513. int chgmethod()
  1514. {
  1515.     char a;
  1516.  
  1517.     a = getch();
  1518.     switch (a) {
  1519.     case 'a' : method = ANSI;
  1520.            break;
  1521.     case 'A' : method = ANSI;
  1522.            break;
  1523.     case 'b' : method = BIOS;
  1524.            break;
  1525.     case 'B' : method = BIOS;
  1526.            break;
  1527.     case 's' : method = DMA;
  1528.            snowfree = TRUE;
  1529.            break;
  1530.     case 'S' : method = DMA;
  1531.            snowfree = TRUE;
  1532.            break;
  1533.     case 'D' : method = DMA;
  1534.            snowfree = FALSE;
  1535.            break;
  1536.     case 'd' : method = DMA;
  1537.            snowfree = FALSE;
  1538.     }
  1539. }