349 lines
8.3 KiB
C++
349 lines
8.3 KiB
C++
|
/*_ menu.c Thu May 12 1988 Modified by: Walter Bright */
|
|||
|
|
|
|||
|
|
#include <stdlib.h>
|
|||
|
|
#include <disp.h>
|
|||
|
|
#include <msmouse.h>
|
|||
|
|
#include <dos.h>
|
|||
|
|
#include "menu.h"
|
|||
|
|
|
|||
|
|
/* Attributes for various components of a menu */
|
|||
|
|
unsigned attrbox = DISP_NORMAL | DISP_INTENSITY;
|
|||
|
|
unsigned attrenabled = DISP_NORMAL | DISP_INTENSITY;
|
|||
|
|
unsigned attrdisabled = DISP_NORMAL;
|
|||
|
|
unsigned attrhighlight = DISP_REVERSEVIDEO | DISP_INTENSITY;
|
|||
|
|
|
|||
|
|
/***************************
|
|||
|
|
* Return !=0 if key is available.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static int key_avail()
|
|||
|
|
{
|
|||
|
|
return kbhit();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/***************************
|
|||
|
|
* Wait for next key, then return it.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static unsigned key_read()
|
|||
|
|
{ unsigned short key;
|
|||
|
|
|
|||
|
|
key = bioskey(0);
|
|||
|
|
if ((key & 0xff) == 0) /* if extended key code */
|
|||
|
|
return key;
|
|||
|
|
else
|
|||
|
|
return key & 0xff;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*******************************
|
|||
|
|
* Convert from strange Microsoft coordinates to proper cursor coordinates.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static mouse_tocursor(px,py)
|
|||
|
|
unsigned *px,*py;
|
|||
|
|
{
|
|||
|
|
if (disp_mode == 0 || disp_mode == 1) /* if 40 column mode */
|
|||
|
|
*px /= 16;
|
|||
|
|
else
|
|||
|
|
*px /= 8;
|
|||
|
|
*py /= 8;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/***************************
|
|||
|
|
* Write out a row of text in the menu.
|
|||
|
|
* Input:
|
|||
|
|
* row,col Upper left corner of menu
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static void menu_dorow(menu_t *m,int item,unsigned attr,unsigned row,unsigned col)
|
|||
|
|
{ char *p;
|
|||
|
|
unsigned rcol;
|
|||
|
|
|
|||
|
|
msm_hidecursor();
|
|||
|
|
p = m->items[item].text;
|
|||
|
|
row += item + 1;
|
|||
|
|
rcol = col + m->width + 1;
|
|||
|
|
attr *= 256;
|
|||
|
|
for (; ++col < rcol; )
|
|||
|
|
{ unsigned char ch;
|
|||
|
|
|
|||
|
|
if (*p)
|
|||
|
|
ch = *(unsigned char *)p++;
|
|||
|
|
else
|
|||
|
|
ch = ' ';
|
|||
|
|
disp_pokew(row,col,attr + ch);
|
|||
|
|
}
|
|||
|
|
msm_showcursor();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/***************************
|
|||
|
|
* Show row item in menu as being selected.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static void menu_select(menu_t *m,unsigned char item,unsigned row,unsigned col)
|
|||
|
|
{
|
|||
|
|
if (m->selected != item)
|
|||
|
|
{
|
|||
|
|
/* Switch currently selected row back to regular display */
|
|||
|
|
if (m->selected < m->nitems)
|
|||
|
|
{ unsigned attr = (m->items[m->selected].flags & MENU_enabled) ?
|
|||
|
|
attrenabled : attrdisabled;
|
|||
|
|
|
|||
|
|
menu_dorow(m,m->selected,attr,row,col);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* Display new selected line */
|
|||
|
|
if (item < m->nitems)
|
|||
|
|
menu_dorow(m,item,attrhighlight,row,col);
|
|||
|
|
m->selected = item;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/****************************
|
|||
|
|
* Select next item in menu.
|
|||
|
|
* Input:
|
|||
|
|
* inc Which direction to go (+1 = down, -1 = up)
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static void menu_next(menu_t *m,unsigned row,unsigned col,int inc)
|
|||
|
|
{ int item;
|
|||
|
|
unsigned u;
|
|||
|
|
|
|||
|
|
item = m->selected;
|
|||
|
|
for (u = 0; u < m->nitems; u++)
|
|||
|
|
{
|
|||
|
|
item += inc;
|
|||
|
|
if (item < 0)
|
|||
|
|
item = m->nitems - 1;
|
|||
|
|
else if (item >= m->nitems)
|
|||
|
|
item = 0;
|
|||
|
|
if (m->items[item].flags & MENU_enabled)
|
|||
|
|
{ menu_select(m,item,row,col);
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/******************************
|
|||
|
|
* Track position of mouse as long as left button is down.
|
|||
|
|
* Returns:
|
|||
|
|
* != 0 Left button selected something
|
|||
|
|
* 0 Do nothing
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static int menu_mousetracker(menu_t *m,unsigned row,unsigned col)
|
|||
|
|
{ unsigned r,c;
|
|||
|
|
unsigned char newitem;
|
|||
|
|
|
|||
|
|
while (msm_getstatus(&c,&r) & 1) /* while left button is down */
|
|||
|
|
{ mouse_tocursor(&c,&r); /* convert to cursor coords */
|
|||
|
|
if (r <= row || r > row + m->nitems ||
|
|||
|
|
c <= col || c > col + m->width)
|
|||
|
|
newitem = -1; /* mouse is not on an item */
|
|||
|
|
else
|
|||
|
|
{ newitem = r - row - 1;
|
|||
|
|
if (!(m->items[newitem].flags & MENU_enabled))
|
|||
|
|
newitem = -1; /* item is disabled */
|
|||
|
|
}
|
|||
|
|
if (newitem != m->selected) /* if different item is selected */
|
|||
|
|
menu_select(m,newitem,row,col);
|
|||
|
|
}
|
|||
|
|
return (unsigned) m->selected < (unsigned) m->nitems;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/***************************/
|
|||
|
|
|
|||
|
|
int menu_enter(menu_t *m,int row,int col)
|
|||
|
|
{
|
|||
|
|
int i;
|
|||
|
|
int brow,rcol;
|
|||
|
|
unsigned r,c;
|
|||
|
|
unsigned short *save;
|
|||
|
|
int result;
|
|||
|
|
unsigned rbup = 0;
|
|||
|
|
|
|||
|
|
/* Adjust menu so it will fit on the screen */
|
|||
|
|
if (col + m->width + 2 > disp_numcols)
|
|||
|
|
col = disp_numcols - (m->width + 2);
|
|||
|
|
if (row + m->nitems + 2 > disp_numrows)
|
|||
|
|
row = disp_numrows - (m->nitems + 2);
|
|||
|
|
|
|||
|
|
/* Compute bottom right corner */
|
|||
|
|
brow = row + m->nitems + 1;
|
|||
|
|
rcol = col + m->width + 1;
|
|||
|
|
|
|||
|
|
msm_hidecursor();
|
|||
|
|
|
|||
|
|
/* Save area under where cursor will go */
|
|||
|
|
save = malloc((m->nitems + 2) * (m->width * 2) * sizeof(*save));
|
|||
|
|
if (!save)
|
|||
|
|
return 0;
|
|||
|
|
disp_peekbox(save,row,col,brow,rcol);
|
|||
|
|
|
|||
|
|
/* Draw the menu */
|
|||
|
|
disp_box(0,attrbox,row,col,brow,rcol);
|
|||
|
|
for (i = 0; i < m->nitems; i++)
|
|||
|
|
{ unsigned attr;
|
|||
|
|
|
|||
|
|
attr = (i == m->selected) ? attrhighlight :
|
|||
|
|
(m->items[i].flags & MENU_enabled) ? attrenabled : attrdisabled;
|
|||
|
|
menu_dorow(m,i,attr,row,col);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
msm_showcursor();
|
|||
|
|
|
|||
|
|
/* Main loop */
|
|||
|
|
loop:
|
|||
|
|
while (1)
|
|||
|
|
{ unsigned key;
|
|||
|
|
unsigned status;
|
|||
|
|
|
|||
|
|
disp_flush(); /* bring display up-to-date */
|
|||
|
|
|
|||
|
|
status = msm_getstatus(&c,&r);
|
|||
|
|
if (status & 2) /* if right button is down */
|
|||
|
|
{ if (rbup) /* if right button was up */
|
|||
|
|
goto abort;
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
rbup = 1; /* right button was up */
|
|||
|
|
|
|||
|
|
/* If left button went down and tracker selected something */
|
|||
|
|
if (status & 1 && menu_mousetracker(m,row,col))
|
|||
|
|
goto select;
|
|||
|
|
|
|||
|
|
if (key_avail())
|
|||
|
|
{ int inc;
|
|||
|
|
|
|||
|
|
key = key_read();
|
|||
|
|
switch (key)
|
|||
|
|
{ case 0x1B:
|
|||
|
|
goto abort;
|
|||
|
|
case '\r':
|
|||
|
|
goto select;
|
|||
|
|
case 0x4800: /* Up arrow key */
|
|||
|
|
inc = -1;
|
|||
|
|
goto L1;
|
|||
|
|
case 0x5000: /* Down arrow key */
|
|||
|
|
inc = 1;
|
|||
|
|
L1: menu_next(m,row,col,inc);
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
{ unsigned u;
|
|||
|
|
|
|||
|
|
/* Convert key to upper case */
|
|||
|
|
if (key >= 'a' && key <= 'z')
|
|||
|
|
key -= 'a' - 'A';
|
|||
|
|
|
|||
|
|
/* Search through menu items for a match with key */
|
|||
|
|
for (u = 0; u < m->nitems; u++)
|
|||
|
|
if (m->items[u].key == key &&
|
|||
|
|
m->items[u].flags & MENU_enabled)
|
|||
|
|
{ menu_select(m,u,row,col);
|
|||
|
|
goto select;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
select:
|
|||
|
|
/* First make sure that something is selected and it's enabled */
|
|||
|
|
if ((unsigned) m->selected >= (unsigned) m->nitems ||
|
|||
|
|
!(m->items[m->selected].flags & MENU_enabled))
|
|||
|
|
goto loop;
|
|||
|
|
|
|||
|
|
{ menu_item_t *mi;
|
|||
|
|
mi = &m->items[m->selected];
|
|||
|
|
|
|||
|
|
result = mi->result;
|
|||
|
|
if (mi->func)
|
|||
|
|
result = (*mi->func)(mi->value,row,col);
|
|||
|
|
if (result == 0)
|
|||
|
|
goto loop;
|
|||
|
|
}
|
|||
|
|
goto ret;
|
|||
|
|
|
|||
|
|
abort:
|
|||
|
|
result = 0;
|
|||
|
|
|
|||
|
|
ret:
|
|||
|
|
/* Restore screen to what it was before menu popped in */
|
|||
|
|
msm_hidecursor();
|
|||
|
|
disp_pokebox(save,row,col,brow,rcol);
|
|||
|
|
msm_showcursor();
|
|||
|
|
free(save);
|
|||
|
|
|
|||
|
|
/* Wait for any down buttons to go back up. Doing this after the */
|
|||
|
|
/* display is restored makes for a 'crisper' response. */
|
|||
|
|
while (msm_getstatus(&c,&r) & 3)
|
|||
|
|
;
|
|||
|
|
return result;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/************** TEST PROGRAM AND DEMO *******************/
|
|||
|
|
|
|||
|
|
#if TEST
|
|||
|
|
|
|||
|
|
menu_item_t items2[] =
|
|||
|
|
{
|
|||
|
|
{ "submenu B",1,'A',MENU_enabled },
|
|||
|
|
{ "submenu F2",2,0x3C00,MENU_enabled },
|
|||
|
|
{ "submenu 3 +",3,'+' },
|
|||
|
|
{ "bufblah 4",4,0,MENU_enabled },
|
|||
|
|
{ "abcblah 4",5,0,MENU_enabled },
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
menu_t submenu = { 1,12,sizeof(items2)/sizeof(items2[0]),items2 };
|
|||
|
|
|
|||
|
|
int fsubmenu(int i,unsigned row,unsigned col)
|
|||
|
|
{
|
|||
|
|
return menu_enter(&submenu,row+i,col+2);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
menu_item_t items[] =
|
|||
|
|
{
|
|||
|
|
{ "line 1 A",6,'A',MENU_enabled },
|
|||
|
|
{ "subm 2 F1",7,0x3B00,MENU_enabled,fsubmenu,3 },
|
|||
|
|
{ "line 3 +",8,'+' },
|
|||
|
|
{ "subm 4",9,0,MENU_enabled,fsubmenu,5 },
|
|||
|
|
{ "blah 4",10,0,MENU_enabled },
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
menu_t testmenu = { 1,10,sizeof(items)/sizeof(items[0]),items };
|
|||
|
|
|
|||
|
|
main()
|
|||
|
|
{ unsigned x,y;
|
|||
|
|
int result;
|
|||
|
|
|
|||
|
|
disp_open(); /* initialize display */
|
|||
|
|
msm_init(); /* initialize mouse */
|
|||
|
|
|
|||
|
|
/* Mouse driver sometimes gets the number of screen rows wrong, */
|
|||
|
|
/* so here we force it to whatever disp_open() discovered. */
|
|||
|
|
msm_setareay(0,(disp_numrows - 1) * 8);
|
|||
|
|
|
|||
|
|
msm_showcursor(); /* turn mouse cursor on */
|
|||
|
|
|
|||
|
|
result = 0;
|
|||
|
|
do
|
|||
|
|
{
|
|||
|
|
if (key_avail()) /* wait for keyboard input */
|
|||
|
|
{ key_read(); /* throw away key value */
|
|||
|
|
result = menu_enter(&testmenu,10,10);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (msm_getstatus(&x,&y) & 2) /* if right button is down */
|
|||
|
|
{ mouse_tocursor(&x,&y); /* translate to cursor coords */
|
|||
|
|
result = menu_enter(&testmenu,y,x);
|
|||
|
|
}
|
|||
|
|
} while (result == 0);
|
|||
|
|
|
|||
|
|
msm_hidecursor(); /* turn mouse cursor off */
|
|||
|
|
msm_term(); /* terminate use of mouse */
|
|||
|
|
disp_printf("Value returned is %d\n",result);
|
|||
|
|
disp_close(); /* terminate use of display */
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#endif /* TEST */
|