/*
** WN_POPUP - Popup Menu/Window Driver
**
** Copyright (c) 1985-1990 Philip A. Mongelluzzo
** All rights reserved.
*/

#include "windows.h"                    /* window header */

/*
************
* wn_popup *
************
*/

/*
** wn_popup(page,row,col,width,height,atrib,batrib,mx,cflag)
**
**  int page -  video page (Usually 0)
**  int row  -  row of origin (0 to WN_MAXROWS)
**  int col  -  col of origin (0 to WN_MAXCOLS)
**  int width - width (inside dimension)
**  int height - height (inside dimension)
**  unsigned atrib - window attribute
**  unsigned batrib - border attribute
**  struct pmenu *mx - pointer to menu structure
**  int cflag - close on exit flag (TRUE to leave open)
*/

wn_popup(page,row,col,width,height,atrib,batrib,mx,cflag)
int page;                               /* video page */
int row, col;                           /* window - upper row/col */
int width, height;                      /* window - height & width */
struct pmenu *mx;                       /* pointer to popup menu struct */
int cflag;                              /* close on return strike flag */
int atrib, batrib;                      /* attributes - window & border */
{
int i;                                  /* scratch integer */
WINDOWPTR w;                            /* window pointer */
unsigned int c;                         /* key scan code,,char */
int j;                                  /* 1st char scan index */
char ch;                                /* CHARACTER (!scan code) Entered */

  if(mx->winopn) {                      /* window is still open */
    goto d0;                            /* enter processing loop */
  }
  mx->lndx = -1;                        /* set index out of range */
  w = wn_open(page, row, col, width, height, atrib, batrib);
  wn_sync(w,FALSE);                     /* sync cursor */
  mx->wpsave = w;                       /* save pointer */
  if (w == NULL) return(99);            /* out of mem or just fubar */
  mx->winopn = TRUE;                    /* say window is open */

  i = 0;                                /* init index */

  while(mx->scrn[i].r != 99) {          /* for as long as we have data */
    wn_putsa(w, mx->scrn[i].r, mx->scrn[i].c, mx->scrn[i].t, atrib);
    i++;
  }

d0:
  w = mx->wpsave;                       /* restore pointer */
  i = mx->lndx;                         /* BLINDLY assume that we're back */
  if(i < mx->fm) i = mx->fm;            /* and reset if "i" is now out of */
  if(i > mx->lm) i = mx->fm;            /* range - (dumb, but it works) */
  while(TRUE) {                         /* till we exit */
    wn_putsa(w, mx->scrn[i].r, mx->scrn[i].c, mx->scrn[i].t, v_setrev(atrib));
    c = v_getch();                      /* Fetch keyboard character */
    ch = c & 0xFF;                      /* character */
    if(c == ESCAPE) break;              /* ESC (user wants out) */
    if(c == RETurn) {                   /* so RETURN */
      if(cflag) {                       /* close window on return strike ? */
        wn_close(w);                    /* close the window */
        mx->winopn = FALSE;             /* say window is closed */
      }
      mx->lndx = i;                     /* remember last indx */
      return(mx->scrn[i].rv);           /* return with rv */
    }
    if(c == DARROW) c = SPACE;          /* Down arrow acts like Space */
    if(c == RARROW) c = SPACE;          /* Right arrow does too */
    if(c == LARROW) c = BS;             /* Left arrow acts like Back Space */
    if(c == UARROW) c = BS;             /* Up arrow does too */
    if(c == SPACE || c == DEL || c == BS) {
      wn_putsa(w, mx->scrn[i].r, mx->scrn[i].c, mx->scrn[i].t, atrib);
      if(c == SPACE)                    /* foreward ?? */
        i++;                            /* bump index */
      else
        i--;                            /* decrement */
      if(i < mx->fm) i = mx->lm;        /* wrap on either */
      if(i > mx->lm) i = mx->fm;        /* end */
    }                                   /* endif */
    ch = toupper(ch);                   /* lets see if we can use 1st char */
    for (j=mx->fm; j<=mx->lm; j++) {
      if (ch == *mx->scrn[j].t) {  
        wn_putsa(w, mx->scrn[i].r, mx->scrn[i].c, mx->scrn[i].t, atrib);
        i=j;                           
        break;
      }
    }                                   /* end 1st char scan */
  }                                     /* end while */
  wn_close(w);                          /* bye bye */
  mx->winopn = FALSE;                   /* say window is closed */
  return(99);                           /* nothing selected */
}

#ifdef COMMENTS
/*
*************                           /* quick popup... */
* wn_qpopup *                           /* this is a hack of popup */
*************                           /* but the code fragment */
*/                                      /* could be of value */
                                        /* ONE TIME DISPLAY ONLY POPUP */
                                        /* CLOSED BY CALLER */
#endif

WINDOWPTR wn_qpopup(page,row,col,width,height,atrib,batrib,mx)
int page;                               /* video page */
int row, col;                           /* window - upper row/col */
int width, height;                      /* window - height & width */
int atrib, batrib;                      /* atributes - window & border */
struct pmenu *mx;                       /* pointer to text struct */
{
int i;                                  /* scratch integer */
WINDOWPTR w;                            /* window pointer */

  w = wn_open(page, row, col, width, height, atrib, batrib);

  i = 0;                                /* init index */
  while(mx->scrn[i].r != 99) {          /* for as long as we have data */
    wn_puts(w, mx->scrn[i].r, mx->scrn[i].c, mx->scrn[i].t);
    i++;
  }
  return(w);
}

/* End */