static int
init_object(BOX * data,
WINDOW *parent,
int x, int y,
int width, int height,
BOX_DRAW box_draw,
int code)
{
data->parent = parent;
data->x = x;
data->y = y;
data->width = width;
data->height = height;
data->box_draw = box_draw;
data->window = derwin(data->parent,
data->height, data->width,
data->y, data->x);
if (data->window == 0)
return -1;
(void) keypad(data->window, TRUE);
mouse_setbase(getbegx(parent), getbegy(parent));
if (code == 'D') {
mouse_mkbigregion(y + 1, x + MON_WIDE, height - 1, width - MON_WIDE,
KEY_MAX, 1, MON_WIDE, 3);
} else {
mouse_mkregion(y, x, height, width, code);
}
return 0;
}
static int
init_object(BOX * data,
WINDOW *parent,
int x, int y,
int width, int height,
int period, int value,
int code)
{
data->parent = parent;
data->x = x;
data->y = y;
data->width = width;
data->height = height;
data->period = period;
data->value = value % period;
data->window = derwin(data->parent,
data->height, data->width,
data->y, data->x);
if (data->window == 0)
return -1;
(void) keypad(data->window, TRUE);
mouse_setbase(getbegx(parent), getbegy(parent));
mouse_mkregion(y, x, height, width, code);
return 0;
}
/*
* Display a dialog box with a list of options that can be turned on or off
* The `flag' parameter is used to select between radiolist and checklist.
*/
int
dialog_checklist(const char *title, const char *cprompt, int height, int width,
int list_height, int item_no, char **items, int flag,
int separate_output)
{
int i, j, key2, found, x, y, cur_x, cur_y, box_x, box_y;
int key = 0, fkey;
int button = 0;
int choice = 0;
int scrollamt = 0;
int max_choice, *status;
int use_width, name_width, text_width;
int result = DLG_EXIT_UNKNOWN;
WINDOW *dialog, *list;
char *prompt = strclone(cprompt);
const char **buttons = dlg_ok_labels();
tab_correct_str(prompt);
if (list_height == 0) {
use_width = calc_listw(item_no, items, CHECKBOX_TAGS) + 10;
/* calculate height without items (4) */
auto_size(title, prompt, &height, &width, 4, MAX(26, use_width));
calc_listh(&height, &list_height, item_no);
} else {
auto_size(title, prompt, &height, &width, 4 + list_height, 26);
}
print_size(height, width);
ctl_size(height, width);
checkflag = flag;
/* Allocate space for storing item on/off status */
status = malloc(sizeof(int) * item_no);
assert_ptr(status, "dialog_checklist");
/* Initializes status */
for (i = 0; i < item_no; i++)
status[i] = !dlg_strcmp(ItemStatus(i), "on");
max_choice = MIN(list_height, item_no);
x = box_x_ordinate(width);
y = box_y_ordinate(height);
dialog = new_window(height, width, y, x);
mouse_setbase(x, y);
draw_box(dialog, 0, 0, height, width, dialog_attr, border_attr);
draw_bottom_box(dialog);
draw_title(dialog, title);
wattrset(dialog, dialog_attr);
print_autowrap(dialog, prompt, height, width);
list_width = width - 6;
getyx(dialog, cur_y, cur_x);
box_y = cur_y + 1;
box_x = (width - list_width) / 2 - 1;
/* create new window for the list */
list = sub_window(dialog, list_height, list_width,
y + box_y + 1, x + box_x + 1);
/* draw a box around the list items */
draw_box(dialog, box_y, box_x,
list_height + 2 * MARGIN,
list_width + 2 * MARGIN,
menubox_border_attr, menubox_attr);
text_width = 0;
name_width = 0;
/* Find length of longest item to center checklist */
for (i = 0; i < item_no; i++) {
text_width = MAX(text_width, (int) strlen(ItemText(i)));
name_width = MAX(name_width, (int) strlen(ItemName(i)));
}
/* If the name+text is wider than the list is allowed, then truncate
* one or both of them. If the name is no wider than 1/4 of the list,
* leave it intact.
*/
use_width = (list_width - 6);
if (text_width + name_width > use_width) {
int need = 0.25 * use_width;
if (name_width > need) {
int want = use_width * ((double) name_width) / (text_width + name_width);
name_width = (want > need) ? want : need;
}
text_width = use_width - name_width;
}
check_x = (use_width - (text_width + name_width)) / 2;
item_x = name_width + check_x + 6;
/* Print the list */
for (i = 0; i < max_choice; i++)
print_item(list,
ItemData(i),
status[i], i, i == choice);
(void) wnoutrefresh(list);
/* register the new window, along with its borders */
mouse_mkbigregion(box_y + 1, box_x, list_height, list_width + 2,
KEY_MAX, 1, 1, 1 /* by lines */ );
dlg_draw_arrows(dialog, scrollamt,
scrollamt + max_choice < item_no - 1,
box_x + check_x + 5,
box_y,
box_y + list_height + 1);
dlg_draw_buttons(dialog, height - 2, 0, buttons, 0, FALSE, width);
wtimeout(dialog, WTIMEOUT_VAL);
while (result == DLG_EXIT_UNKNOWN) {
key = mouse_wgetch(dialog, &fkey);
if (fkey && (key >= (M_EVENT + KEY_MAX))) {
getyx(dialog, cur_y, cur_x);
/* De-highlight current item */
print_item(list,
ItemData(scrollamt + choice),
status[scrollamt + choice], choice, FALSE);
/* Highlight new item */
choice = (key - (M_EVENT + KEY_MAX));
print_item(list,
ItemData(scrollamt + choice),
status[scrollamt + choice], choice, TRUE);
(void) wnoutrefresh(list);
(void) wmove(dialog, cur_y, cur_x);
key = ' '; /* force the selected item to toggle */
fkey = FALSE;
}
/*
* A space toggles the item status. We handle either a checklist
* (any number of items can be selected) or radio list (zero or one
* items can be selected).
*/
if (key == ' ') {
getyx(dialog, cur_y, cur_x);
if (flag == FLAG_CHECK) { /* checklist? */
status[scrollamt + choice] = !status[scrollamt + choice];
print_item(list,
ItemData(scrollamt + choice),
status[scrollamt + choice], choice, TRUE);
} else { /* radiolist */
if (!status[scrollamt + choice]) {
for (i = 0; i < item_no; i++)
status[i] = FALSE;
status[scrollamt + choice] = TRUE;
for (i = 0; i < max_choice; i++)
print_item(list,
ItemData(scrollamt + i),
status[scrollamt + i], i, i == choice);
}
}
(void) wnoutrefresh(list);
(void) wmove(dialog, cur_y, cur_x);
wrefresh(dialog);
continue; /* wait for another key press */
} else if (key == ESC) {
result = DLG_EXIT_ESC;
continue;
}
if (!fkey) {
fkey = TRUE;
switch (key) {
case '\n':
case '\r':
key = KEY_ENTER;
break;
case '-':
key = KEY_UP;
break;
case '+':
key = KEY_DOWN;
break;
case TAB:
key = KEY_RIGHT;
break;
default:
fkey = FALSE;
break;
}
}
/*
* Check if key pressed matches first character of any item tag in
* list. If there is more than one match, we will cycle through
* each one as the same key is pressed repeatedly.
*/
found = FALSE;
if (!fkey) {
for (j = scrollamt + choice + 1; j < item_no; j++) {
if (dlg_match_char(dlg_last_getc(), ItemName(j))) {
found = TRUE;
i = j - scrollamt;
break;
}
}
if (!found) {
for (j = 0; j <= scrollamt + choice; j++) {
if (dlg_match_char(dlg_last_getc(), ItemName(j))) {
found = TRUE;
i = j - scrollamt;
break;
}
}
}
if (found)
dlg_flush_getc();
}
/*
* A single digit (1-9) positions the selection to that line in the
* current screen.
*/
if (!found
&& (key <= '9')
&& (key > '0')
&& (key - '1' < max_choice)) {
found = TRUE;
i = key - '1';
}
if (!found) {
if (fkey) {
found = TRUE;
switch (key) {
case KEY_HOME:
i = -scrollamt;
break;
case KEY_LL:
case KEY_END:
i = item_no - 1 - scrollamt;
break;
case M_EVENT + KEY_PPAGE:
case KEY_PPAGE:
if (choice)
i = 0;
else if (scrollamt != 0)
i = -MIN(scrollamt, max_choice);
else
continue;
break;
case M_EVENT + KEY_NPAGE:
case KEY_NPAGE:
i = MIN(choice + max_choice, item_no - scrollamt - 1);
break;
case KEY_UP:
i = choice - 1;
if (choice == 0 && scrollamt == 0)
continue;
break;
case KEY_DOWN:
i = choice + 1;
if (scrollamt + choice >= item_no - 1)
continue;
break;
default:
found = FALSE;
break;
}
}
}
if (found) {
if (i != choice) {
getyx(dialog, cur_y, cur_x);
if (i < 0 || i >= max_choice) {
#if defined(NCURSES_VERSION_MAJOR) && NCURSES_VERSION_MAJOR < 5
/*
* Using wscrl to assist ncurses scrolling is not needed
* in version 5.x
*/
if (i == -1) {
if (list_height > 1) {
/* De-highlight current first item */
print_item(list,
ItemData(scrollamt),
status[scrollamt], 0, FALSE);
scrollok(list, TRUE);
wscrl(list, -1);
scrollok(list, FALSE);
}
scrollamt--;
print_item(list,
ItemData(scrollamt),
status[scrollamt], 0, TRUE);
} else if (i == max_choice) {
if (list_height > 1) {
/* De-highlight current last item before scrolling up */
print_item(list,
ItemData(scrollamt + max_choice - 1),
status[scrollamt + max_choice - 1],
max_choice - 1, FALSE);
scrollok(list, TRUE);
wscrl(list, 1);
scrollok(list, FALSE);
}
scrollamt++;
print_item(list,
ItemData(scrollamt + max_choice - 1),
status[scrollamt + max_choice - 1],
max_choice - 1, TRUE);
} else
#endif
{
if (i < 0) {
scrollamt += i;
choice = 0;
} else {
choice = max_choice - 1;
scrollamt += (i - max_choice + 1);
}
for (i = 0; i < max_choice; i++) {
print_item(list,
ItemData(scrollamt + i),
status[scrollamt + i], i, i == choice);
}
}
(void) wnoutrefresh(list);
dlg_draw_arrows(dialog, scrollamt,
scrollamt + choice < item_no - 1,
box_x + check_x + 5,
box_y,
box_y + list_height + 1);
} else {
/* De-highlight current item */
print_item(list,
ItemData(scrollamt + choice),
status[scrollamt + choice], choice, FALSE);
/* Highlight new item */
choice = i;
print_item(list,
ItemData(scrollamt + choice),
status[scrollamt + choice], choice, TRUE);
(void) wnoutrefresh(list);
(void) wmove(dialog, cur_y, cur_x);
wrefresh(dialog);
}
}
continue; /* wait for another key press */
}
if (fkey) {
switch (key) {
case KEY_ENTER:
result = dlg_ok_buttoncode(button);
break;
case KEY_BTAB:
case KEY_LEFT:
button = dlg_prev_button(buttons, button);
dlg_draw_buttons(dialog, height - 2, 0, buttons, button,
FALSE, width);
break;
case KEY_RIGHT:
button = dlg_next_button(buttons, button);
dlg_draw_buttons(dialog, height - 2, 0, buttons, button,
FALSE, width);
break;
default:
if (key >= M_EVENT) {
if ((key2 = dlg_ok_buttoncode(key - M_EVENT)) >= 0) {
result = key2;
break;
}
beep();
}
}
} else {
beep();
}
}
del_window(dialog);
switch (result) {
case DLG_EXIT_OK: /* FALLTHRU */
case DLG_EXIT_EXTRA:
for (i = 0; i < item_no; i++) {
if (status[i]) {
if (flag == FLAG_CHECK) {
if (separate_output) {
dlg_add_result(ItemName(i));
dlg_add_result("\n");
} else {
dlg_add_result("\"");
dlg_add_result(ItemName(i));
dlg_add_result("\" ");
}
} else {
dlg_add_result(ItemName(i));
}
}
}
break;
case DLG_EXIT_HELP:
dlg_add_result("HELP ");
if (USE_ITEM_HELP(ItemHelp(scrollamt + choice))) {
dlg_add_result(ItemHelp(scrollamt + choice));
result = DLG_EXIT_OK; /* this is inconsistent */
} else {
dlg_add_result(ItemName(scrollamt + choice));
}
break;
}
mouse_free_regions();
free(status);
free(prompt);
return result;
}
/*
* Display text from a file in a dialog box.
*/
int
dialog_textbox (const char *title, const char *file, int height, int width)
{
int i, x, y, cur_x, cur_y, fpos, key = 0, dir, temp, temp1;
#ifdef HAVE_LIBNCURSES
int passed_end;
#endif
char search_term[MAX_LEN + 1], *tempptr, *found;
WINDOW *dialog, *text;
search_term[0] = '\0'; /* no search term entered yet */
/* Open input file for reading */
if ((fd = open (file, O_RDONLY)) == -1) {
endwin ();
fprintf (stderr,
"\nCan't open input file in dialog_textbox().\n");
exit (-1);
}
/* Get file size. Actually, 'file_size' is the real file size - 1,
since it's only the last byte offset from the beginning */
if ((file_size = lseek (fd, 0, SEEK_END)) == -1) {
endwin ();
fprintf (stderr, "\nError getting file size in dialog_textbox().\n");
exit (-1);
}
/* Restore file pointer to beginning of file after getting file size */
if (lseek (fd, 0, SEEK_SET) == -1) {
endwin ();
fprintf (stderr, "\nError moving file pointer in dialog_textbox().\n");
exit (-1);
}
/* Allocate space for read buffer */
if ((buf = malloc (BUF_SIZE + 1)) == NULL) {
endwin ();
fprintf (stderr, "\nCan't allocate memory in dialog_textbox().\n");
exit (-1);
}
if ((bytes_read = read (fd, buf, BUF_SIZE)) == -1) {
endwin ();
fprintf (stderr, "\nError reading file in dialog_textbox().\n");
exit (-1);
}
buf[bytes_read] = '\0'; /* mark end of valid data */
page = buf; /* page is pointer to start of page to be displayed */
/* center dialog box on screen */
x = (COLS - width) / 2;
y = (LINES - height) / 2;
#ifdef HAVE_LIBNCURSES
if (use_shadow)
draw_shadow (stdscr, y, x, height, width);
#endif
dialog = newwin (height, width, y, x);
mouse_setbase (x, y);
keypad (dialog, TRUE);
/* Create window for text region, used for scrolling text */
text = subwin (dialog, height - 4, width - 2, y + 1, x + 1);
keypad (text, TRUE);
/* register the new window, along with its borders */
mouse_mkbigregion (0, 0, height - 2, width, 1, 0, 2 /* not normal */ );
draw_box (dialog, 0, 0, height, width, dialog_attr, border_attr);
wattrset (dialog, border_attr);
wmove (dialog, height - 3, 0);
waddch (dialog, ACS_LTEE);
for (i = 0; i < width - 2; i++)
waddch (dialog, ACS_HLINE);
wattrset (dialog, dialog_attr);
waddch (dialog, ACS_RTEE);
wmove (dialog, height - 2, 1);
for (i = 0; i < width - 2; i++)
waddch (dialog, ' ');
if (title != NULL) {
wattrset (dialog, title_attr);
wmove (dialog, 0, (width - strlen (title)) / 2 - 1);
waddch (dialog, ' ');
waddstr (dialog, title);
waddch (dialog, ' ');
}
print_button (dialog, " EXIT ", height - 2, width / 2 - 4, TRUE);
wnoutrefresh (dialog);
getyx (dialog, cur_y, cur_x); /* Save cursor position */
/* Print first page of text */
attr_clear (text, height - 4, width - 2, dialog_attr);
print_page (text, height - 4, width - 2);
print_position (dialog, height, width);
wmove (dialog, cur_y, cur_x); /* Restore cursor position */
wrefresh (dialog);
while ((key != ESC) && (key != '\n')) {
key = mouse_wgetch (dialog);
switch (key) {
case M_EVENT + 'E':
case 'E': /* Exit */
case 'e':
delwin (dialog);
free (buf);
close (fd);
return 0;
case 'g': /* First page */
case KEY_HOME:
if (!begin_reached) {
begin_reached = 1;
/* First page not in buffer? */
if ((fpos = lseek (fd, 0, SEEK_CUR)) == -1) {
endwin ();
fprintf (stderr,
"\nError moving file pointer in dialog_textbox().\n");
exit (-1);
}
if (fpos > bytes_read) { /* Yes, we have to read it in */
if (lseek (fd, 0, SEEK_SET) == -1) {
endwin ();
fprintf (stderr, "\nError moving file pointer in "
"dialog_textbox().\n");
exit (-1);
}
if ((bytes_read = read (fd, buf, BUF_SIZE)) == -1) {
endwin ();
fprintf (stderr,
"\nError reading file in dialog_textbox().\n");
exit (-1);
}
buf[bytes_read] = '\0';
}
page = buf;
print_page (text, height - 4, width - 2);
print_position (dialog, height, width);
wmove (dialog, cur_y, cur_x); /* Restore cursor position */
wrefresh (dialog);
}
break;
case 'G': /* Last page */
#ifdef HAVE_LIBNCURSES
case KEY_END:
#endif
end_reached = 1;
/* Last page not in buffer? */
if ((fpos = lseek (fd, 0, SEEK_CUR)) == -1) {
endwin ();
fprintf (stderr,
"\nError moving file pointer in dialog_textbox().\n");
exit (-1);
}
if (fpos < file_size) { /* Yes, we have to read it in */
if (lseek (fd, -BUF_SIZE, SEEK_END) == -1) {
endwin ();
fprintf (stderr,
"\nError moving file pointer in dialog_textbox().\n");
exit (-1);
}
if ((bytes_read = read (fd, buf, BUF_SIZE)) == -1) {
endwin ();
fprintf (stderr,
"\nError reading file in dialog_textbox().\n");
exit (-1);
}
buf[bytes_read] = '\0';
}
page = buf + bytes_read;
back_lines (height - 4);
print_page (text, height - 4, width - 2);
print_position (dialog, height, width);
wmove (dialog, cur_y, cur_x); /* Restore cursor position */
wrefresh (dialog);
break;
case 'K': /* Previous line */
case 'k':
case KEY_UP:
if (!begin_reached) {
back_lines (page_length + 1);
#ifdef HAVE_LIBNCURSES
/* We don't call print_page() here but use scrolling to ensure
faster screen update. However, 'end_reached' and
'page_length' should still be updated, and 'page' should
point to start of next page. This is done by calling
get_line() in the following 'for' loop. */
scrollok (text, TRUE);
wscrl (text, -1); /* Scroll text region down one line */
scrollok (text, FALSE);
page_length = 0;
passed_end = 0;
for (i = 0; i < height - 4; i++) {
if (!i) {
/* print first line of page */
print_line (text, 0, width - 2);
wnoutrefresh (text);
} else
/* Called to update 'end_reached' and 'page' */
get_line ();
if (!passed_end)
page_length++;
if (end_reached && !passed_end)
passed_end = 1;
}
#else
print_page (text, height - 4, width - 2);
#endif
print_position (dialog, height, width);
wmove (dialog, cur_y, cur_x); /* Restore cursor position */
wrefresh (dialog);
}
break;
case 'B': /* Previous page */
case 'b':
case KEY_PPAGE:
if (begin_reached)
break;
back_lines (page_length + height - 4);
print_page (text, height - 4, width - 2);
print_position (dialog, height, width);
wmove (dialog, cur_y, cur_x);
wrefresh (dialog);
break;
case 'J': /* Next line */
case 'j':
case KEY_DOWN:
if (!end_reached) {
begin_reached = 0;
scrollok (text, TRUE);
scroll (text); /* Scroll text region up one line */
scrollok (text, FALSE);
print_line (text, height - 5, width - 2);
#ifndef HAVE_LIBNCURSES
wmove (text, height - 5, 0);
waddch (text, ' ');
wmove (text, height - 5, width - 3);
waddch (text, ' ');
#endif
wnoutrefresh (text);
print_position (dialog, height, width);
wmove (dialog, cur_y, cur_x); /* Restore cursor position */
wrefresh (dialog);
}
break;
case ' ': /* Next page */
case KEY_NPAGE:
if (end_reached)
break;
begin_reached = 0;
print_page (text, height - 4, width - 2);
print_position (dialog, height, width);
wmove (dialog, cur_y, cur_x);
wrefresh (dialog);
break;
case '0': /* Beginning of line */
case 'H': /* Scroll left */
case 'h':
case KEY_LEFT:
if (hscroll <= 0)
break;
if (key == '0')
hscroll = 0;
else
hscroll--;
/* Reprint current page to scroll horizontally */
back_lines (page_length);
print_page (text, height - 4, width - 2);
wmove (dialog, cur_y, cur_x);
wrefresh (dialog);
break;
case 'L': /* Scroll right */
case 'l':
case KEY_RIGHT:
if (hscroll >= MAX_LEN)
break;
hscroll++;
/* Reprint current page to scroll horizontally */
back_lines (page_length);
print_page (text, height - 4, width - 2);
wmove (dialog, cur_y, cur_x);
wrefresh (dialog);
break;
case '/': /* Forward search */
case 'n': /* Repeat forward search */
case '?': /* Backward search */
case 'N': /* Repeat backward search */
/* set search direction */
dir = (key == '/' || key == 'n') ? 1 : 0;
if (dir ? !end_reached : !begin_reached) {
if (key == 'n' || key == 'N') {
if (search_term[0] == '\0') { /* No search term yet */
fprintf (stderr, "\a"); /* beep */
break;
}
} else
/* Get search term from user */
if (get_search_term (text, search_term, height - 4,
width - 2) == -1) {
/* ESC pressed in get_search_term().
Reprint page to clear box */
wattrset (text, dialog_attr);
back_lines (page_length);
print_page (text, height - 4, width - 2);
wmove (dialog, cur_y, cur_x);
wrefresh (dialog);
break;
}
/* Save variables for restoring in case search term
can't be found */
tempptr = page;
temp = begin_reached;
temp1 = end_reached;
if ((fpos = lseek (fd, 0, SEEK_CUR)) == -1) {
endwin ();
fprintf (stderr, "\nError moving file pointer in "
"dialog_textbox().\n");
exit (-1);
}
fpos -= bytes_read;
/* update 'page' to point to next (previous) line before
forward (backward) searching */
back_lines (dir ? page_length - 1 : page_length + 1);
found = NULL;
if (dir) /* Forward search */
while ((found = strstr (get_line (), search_term))
== NULL) {
if (end_reached)
break;
} else /* Backward search */
while ((found = strstr (get_line (), search_term))
== NULL) {
if (begin_reached)
break;
back_lines (2);
}
if (found == NULL) { /* not found */
fprintf (stderr, "\a"); /* beep */
/* Restore program state to that before searching */
if (lseek (fd, fpos, SEEK_SET) == -1) {
endwin ();
fprintf (stderr, "\nError moving file pointer in "
"dialog_textbox().\n");
exit (-1);
}
if ((bytes_read = read (fd, buf, BUF_SIZE)) == -1) {
endwin ();
fprintf (stderr, "\nError reading file in "
"dialog_textbox().\n");
exit (-1);
}
buf[bytes_read] = '\0';
page = tempptr;
begin_reached = temp;
end_reached = temp1;
/* move 'page' to point to start of current page in order to
re-print current page. Note that 'page' always points to
start of next page, so this is necessary */
back_lines (page_length);
} else /* Search term found */
back_lines (1);
/* Reprint page */
wattrset (text, dialog_attr);
print_page (text, height - 4, width - 2);
if (found != NULL)
print_position (dialog, height, width);
wmove (dialog, cur_y, cur_x); /* Restore cursor position */
wrefresh (dialog);
} else /* no need to find */
fprintf (stderr, "\a"); /* beep */
break;
case ESC:
break;
}
}
delwin (dialog);
free (buf);
close (fd);
return -1; /* ESC pressed */
}
/*
* Display a menu for choosing among a number of options
*/
int
dialog_menu(const char *title, const char *cprompt, int height, int width,
int menu_height, int item_no, const char **items)
{
int i, j, x, y, cur_x, cur_y, box_x, box_y;
int key = 0;
int button = 0;
int choice = dlg_default_item(items, MENUBOX_TAGS);
int scrollamt = 0;
int max_choice, min_width;
int found;
int use_width, name_width, text_width;
WINDOW *dialog, *menu;
char *prompt = strclone(cprompt);
const char **buttons = dlg_ok_labels();
tab_correct_str(prompt);
if (menu_height == 0) {
min_width = calc_listw(item_no, items, MENUBOX_TAGS) + 10;
/* calculate height without items (4) */
auto_size(title, prompt, &height, &width, 4, MAX(26, min_width));
calc_listh(&height, &menu_height, item_no);
} else {
auto_size(title, prompt, &height, &width, 4 + menu_height, 26);
}
print_size(height, width);
ctl_size(height, width);
max_choice = MIN(menu_height, item_no);
x = box_x_ordinate(width);
y = box_y_ordinate(height);
dialog = new_window(height, width, y, x);
mouse_setbase(x, y);
draw_box(dialog, 0, 0, height, width, dialog_attr, border_attr);
draw_bottom_box(dialog);
draw_title(dialog, title);
wattrset(dialog, dialog_attr);
print_autowrap(dialog, prompt, height, width);
menu_width = width - 6;
getyx(dialog, cur_y, cur_x);
box_y = cur_y + 1;
box_x = (width - menu_width) / 2 - 1;
/* create new window for the menu */
menu = sub_window(dialog, menu_height, menu_width, y + box_y + 1,
x + box_x + 1);
/* draw a box around the menu items */
draw_box(dialog, box_y, box_x, menu_height + 2, menu_width + 2,
menubox_border_attr, menubox_attr);
name_width = 0;
text_width = 0;
/* Find length of longest item to center menu */
for (i = 0; i < item_no; i++) {
name_width = MAX(name_width, (int) strlen(ItemName(i)));
text_width = MAX(text_width, (int) strlen(ItemText(i)));
}
/* If the name+text is wider than the list is allowed, then truncate
* one or both of them. If the name is no wider than 1/4 of the list,
* leave it intact.
*/
use_width = (menu_width - 2);
if (text_width + name_width > use_width) {
int need = 0.25 * use_width;
if (name_width > need) {
int want = use_width * ((double) name_width) / (text_width + name_width);
name_width = (want > need) ? want : need;
}
text_width = use_width - name_width;
}
tag_x = (use_width - text_width - name_width) / 2;
item_x = name_width + tag_x + 2;
if (choice - scrollamt >= max_choice) {
scrollamt = choice - (max_choice - 1);
choice = max_choice - 1;
}
/* Print the menu */
for (i = 0; i < max_choice; i++)
print_item(menu, ItemData(i + scrollamt), i, i == choice);
(void) wnoutrefresh(menu);
/* register the new window, along with its borders */
mouse_mkbigregion(box_y, box_x, menu_height + 2, menu_width + 2,
item_no, item_x, /* the threshold */
1 /* dirty mode */ );
dlg_draw_arrows(dialog, scrollamt,
scrollamt + max_choice < item_no,
box_x + tag_x + 1,
box_y,
box_y + menu_height + 1);
dlg_draw_buttons(dialog, height - 2, 0, buttons, button, FALSE, width);
wtimeout(dialog, WTIMEOUT_VAL);
while (key != ESC) {
key = mouse_wgetch(dialog);
/* Check if key pressed matches first character of any
item tag in menu */
for (i = 0; i < max_choice; i++)
if (toupper(key) == toupper(UCH(ItemName(scrollamt + i)[0])))
break;
/*
* Check if key pressed matches first character of any item tag in
* list. If there is more than one match, we will cycle through
* each one as the same key is pressed repeatedly.
*/
found = FALSE;
for (j = scrollamt + choice + 1; j < item_no; j++) {
if (toupper(key) ==
toupper(UCH(ItemName(j)[0]))) {
found = TRUE;
i = j - scrollamt;
break;
}
}
if (!found) {
for (j = 0; j <= scrollamt + choice; j++) {
if (toupper(key) ==
toupper(UCH(ItemName(j)[0]))) {
found = TRUE;
i = j - scrollamt;
break;
}
}
}
/*
* A single digit (1-9) positions the selection to that line in the
* current screen.
*/
if (!found
&& (key <= '9')
&& (key > '0')
&& (key - '1' <= max_choice)) {
found = TRUE;
i = key - '1';
}
if (!found) {
found = TRUE;
switch (key) {
case KEY_HOME:
i = -scrollamt;
break;
case KEY_LL:
case KEY_END:
i = item_no - 1 - scrollamt;
break;
case KEY_PPAGE:
if (choice)
i = 0;
else if (scrollamt != 0)
i = -MIN(scrollamt, max_choice);
else
continue;
break;
case KEY_NPAGE:
i = MIN(choice + max_choice, item_no - scrollamt - 1);
break;
case KEY_UP:
case '-':
i = choice - 1;
if (choice == 0 && scrollamt == 0)
continue;
break;
case KEY_DOWN:
case '+':
i = choice + 1;
if (scrollamt + choice >= item_no - 1)
continue;
break;
default:
found = FALSE;
break;
}
}
if (found) {
if (i != choice) {
getyx(dialog, cur_y, cur_x);
if (i < 0 || i >= max_choice) {
#if defined(NCURSES_VERSION_MAJOR) && NCURSES_VERSION_MAJOR < 5
/*
* Using wscrl to assist ncurses scrolling is not needed
* in version 5.x
*/
if (i == -1) {
if (menu_height > 1) {
/* De-highlight current first item */
print_item(menu, ItemData(scrollamt), 0, FALSE);
scrollok(menu, TRUE);
wscrl(menu, -1);
scrollok(menu, FALSE);
}
scrollamt--;
print_item(menu, ItemData(scrollamt), 0, TRUE);
} else if (i == max_choice) {
if (menu_height > 1) {
/* De-highlight current last item before scrolling up */
print_item(menu,
ItemData(scrollamt + max_choice - 1),
max_choice - 1, FALSE);
scrollok(menu, TRUE);
wscrl(menu, 1);
scrollok(menu, FALSE);
}
scrollamt++;
print_item(menu,
ItemData(scrollamt + max_choice - 1),
max_choice - 1, TRUE);
} else
#endif
{
if (i < 0) {
scrollamt += i;
choice = 0;
} else {
choice = max_choice - 1;
scrollamt += (i - max_choice + 1);
}
for (i = 0; i < max_choice; i++) {
print_item(menu,
ItemData(scrollamt + i),
i, i == choice);
}
}
(void) wnoutrefresh(menu);
dlg_draw_arrows(dialog, scrollamt,
scrollamt + choice < item_no - 1,
box_x + tag_x + 1,
box_y,
box_y + menu_height + 1);
} else {
/* De-highlight current item */
print_item(menu,
ItemData(scrollamt + choice),
choice, FALSE);
/* Highlight new item */
choice = i;
print_item(menu,
ItemData(scrollamt + choice),
choice, TRUE);
(void) wnoutrefresh(menu);
(void) wmove(dialog, cur_y, cur_x);
wrefresh(dialog);
}
}
continue; /* wait for another key press */
}
switch (key) {
case M_EVENT + 'O':
del_window(dialog);
return scrollamt + choice;
case M_EVENT + 'C':
del_window(dialog);
return -2;
case M_EVENT + 'o': /* mouse enter... */
case M_EVENT + 'c': /* use the code for toggling */
button = (key == M_EVENT + 'o');
/* FALLTHRU */
case ' ':
case KEY_BTAB:
case TAB:
case KEY_LEFT:
case KEY_RIGHT:
if (!dialog_vars.nocancel)
button = !button;
dlg_draw_buttons(dialog, height - 2, 0, buttons, button, FALSE, width);
break;
case '\n':
del_window(dialog);
return (button ? -2 : (scrollamt + choice));
}
}
del_window(dialog);
return -1; /* ESC pressed */
}
/*
* Display a menu for choosing among a number of options
*/
int
dialog_menu(const char *title, const char *cprompt, int height, int width,
int menu_height, int item_no, char **items)
{
int i, j, x, y, cur_x, cur_y, box_x, box_y;
int key = 0, fkey;
int button = 0;
int choice = dlg_default_item(items, MENUBOX_TAGS);
int result = DLG_EXIT_UNKNOWN;
int scrollamt = 0;
int max_choice, min_width;
int found;
int use_width, name_width, text_width;
WINDOW *dialog, *menu;
char *prompt = strclone(cprompt);
const char **buttons = dlg_ok_labels();
tab_correct_str(prompt);
if (menu_height == 0) {
min_width = calc_listw(item_no, items, MENUBOX_TAGS) + 10;
/* calculate height without items (4) */
auto_size(title, prompt, &height, &width, 4, MAX(26, min_width));
calc_listh(&height, &menu_height, item_no);
} else {
auto_size(title, prompt, &height, &width, 4 + menu_height, 26);
}
print_size(height, width);
ctl_size(height, width);
/* Find out maximal number of displayable items at once. */
max_choice = MIN(menu_height,
RowHeight(item_no));
if (dialog_vars.input_menu)
max_choice /= INPUT_ROWS;
x = box_x_ordinate(width);
y = box_y_ordinate(height);
dialog = new_window(height, width, y, x);
mouse_setbase(x, y);
draw_box(dialog, 0, 0, height, width, dialog_attr, border_attr);
draw_bottom_box(dialog);
draw_title(dialog, title);
wattrset(dialog, dialog_attr);
print_autowrap(dialog, prompt, height, width);
menu_width = width - 6;
getyx(dialog, cur_y, cur_x);
box_y = cur_y + 1;
box_x = (width - menu_width) / 2 - 1;
/* create new window for the menu */
menu = sub_window(dialog, menu_height, menu_width,
y + box_y + 1,
x + box_x + 1);
/* draw a box around the menu items */
draw_box(dialog, box_y, box_x, menu_height + 2, menu_width + 2,
menubox_border_attr, menubox_attr);
name_width = 0;
text_width = 0;
/* Find length of longest item to center menu *
* only if --menu was given, using --inputmenu *
* won't be centered. */
for (i = 0; i < item_no; i++) {
name_width = MAX(name_width, dlg_count_columns(ItemName(i)));
text_width = MAX(text_width, dlg_count_columns(ItemText(i)));
}
/* If the name+text is wider than the list is allowed, then truncate
* one or both of them. If the name is no wider than 1/4 of the list,
* leave it intact.
*/
use_width = (menu_width - GUTTER);
if (text_width + name_width > use_width) {
int need = 0.25 * use_width;
if (name_width > need) {
int want = use_width * ((double) name_width) / (text_width + name_width);
name_width = (want > need) ? want : need;
}
text_width = use_width - name_width;
}
tag_x = (dialog_vars.input_menu
? 0
: (use_width - text_width - name_width) / 2);
item_x = name_width + tag_x + GUTTER;
if (choice - scrollamt >= max_choice) {
scrollamt = choice - (max_choice - 1);
choice = max_choice - 1;
}
/* Print the menu */
for (i = 0; i < max_choice; i++)
print_item(menu, ItemData(i + scrollamt), i, i == choice);
(void) wnoutrefresh(menu);
/* register the new window, along with its borders */
mouse_mkbigregion(box_y + 1, box_x, menu_height + 2, menu_width + 2,
KEY_MAX, 1, 1, 1 /* by lines */ );
dlg_draw_arrows(dialog, scrollamt,
scrollamt + max_choice < item_no,
box_x + tag_x + 1,
box_y,
box_y + menu_height + 1);
dlg_draw_buttons(dialog, height - 2, 0, buttons, button, FALSE, width);
wtimeout(dialog, WTIMEOUT_VAL);
while (result == DLG_EXIT_UNKNOWN) {
key = mouse_wgetch(dialog, &fkey);
if (!fkey) {
fkey = TRUE;
switch (key) {
case '\n':
case '\r':
key = KEY_ENTER;
break;
case '-':
key = KEY_UP;
break;
case '+':
key = KEY_DOWN;
break;
case ' ':
case TAB:
key = KEY_RIGHT;
break;
case ESC:
result = DLG_EXIT_ESC;
continue;
default:
fkey = FALSE;
break;
}
}
found = FALSE;
if (fkey) {
/*
* Allow a mouse-click on a box to switch selection to that box.
* Handling a button click is a little more complicated, since we
* push a KEY_ENTER back onto the input stream so we'll put the
* cursor at the right place before handling the "keypress".
*/
if (key >= (M_EVENT + KEY_MAX)) {
key -= (M_EVENT + KEY_MAX);
i = RowToItem(key);
found = TRUE;
} else if (key >= M_EVENT
&& dlg_ok_buttoncode(key - M_EVENT) >= 0) {
button = (key - M_EVENT);
ungetch('\n');
continue;
}
} else {
/*
* Check if key pressed matches first character of any item tag in
* list. If there is more than one match, we will cycle through
* each one as the same key is pressed repeatedly.
*/
for (j = scrollamt + choice + 1; j < item_no; j++) {
if (dlg_match_char(dlg_last_getc(), ItemName(j))) {
found = TRUE;
i = j - scrollamt;
break;
}
}
if (!found) {
for (j = 0; j <= scrollamt + choice; j++) {
if (dlg_match_char(dlg_last_getc(), ItemName(j))) {
found = TRUE;
i = j - scrollamt;
break;
}
}
}
if (found)
dlg_flush_getc();
/*
* A single digit (1-9) positions the selection to that line in the
* current screen.
*/
if (!found
&& (key <= '9')
&& (key > '0')
&& (key - '1' < max_choice)) {
found = TRUE;
i = key - '1';
}
}
if (!found && fkey) {
found = TRUE;
switch (key) {
case KEY_HOME:
i = -scrollamt;
break;
case KEY_LL:
case KEY_END:
i = item_no - 1 - scrollamt;
break;
case M_EVENT + KEY_PPAGE:
case KEY_PPAGE:
if (choice)
i = 0;
else if (scrollamt != 0)
i = -MIN(scrollamt, max_choice);
else
continue;
break;
case M_EVENT + KEY_NPAGE:
case KEY_NPAGE:
i = MIN(choice + max_choice, item_no - scrollamt - 1);
break;
case KEY_UP:
i = choice - 1;
if (choice == 0 && scrollamt == 0)
continue;
break;
case KEY_DOWN:
i = choice + 1;
if (scrollamt + choice >= item_no - 1)
continue;
break;
default:
found = FALSE;
break;
}
}
if (found) {
if (i != choice) {
getyx(dialog, cur_y, cur_x);
if (i < 0 || i >= max_choice) {
#if defined(NCURSES_VERSION_MAJOR) && NCURSES_VERSION_MAJOR < 5
/*
* Using wscrl to assist ncurses scrolling is not needed
* in version 5.x
*/
if (i == -1) {
if (menu_height > 1) {
/* De-highlight current first item */
print_item(menu, ItemData(scrollamt), 0, FALSE);
scrollok(menu, TRUE);
wscrl(menu, -RowHeight(1));
scrollok(menu, FALSE);
}
scrollamt--;
print_item(menu, ItemData(scrollamt), 0, TRUE);
} else if (i == max_choice) {
if (menu_height > 1) {
/* De-highlight current last item before scrolling up */
print_item(menu,
ItemData(scrollamt + max_choice - 1),
max_choice - 1, FALSE);
scrollok(menu, TRUE);
wscrl(menu, RowHeight(1));
scrollok(menu, FALSE);
}
scrollamt++;
print_item(menu,
ItemData(scrollamt + max_choice - 1),
max_choice - 1, TRUE);
} else
#endif
{
if (i < 0) {
scrollamt += i;
choice = 0;
} else {
choice = max_choice - 1;
scrollamt += (i - max_choice + 1);
}
for (i = 0; i < max_choice; i++) {
print_item(menu,
ItemData(scrollamt + i),
i, i == choice);
}
}
/* Clean bottom lines */
if (dialog_vars.input_menu) {
int spare_lines, x_count;
spare_lines = menu_height % INPUT_ROWS;
wattrset(menu, menubox_attr);
for (; spare_lines; spare_lines--) {
wmove(menu, menu_height - spare_lines, 0);
for (x_count = 0; x_count < menu_width;
x_count++) {
waddch(menu, ' ');
}
}
}
(void) wnoutrefresh(menu);
dlg_draw_arrows(dialog, scrollamt,
scrollamt + choice < item_no - 1,
box_x + tag_x + 1,
box_y,
box_y + menu_height + 1);
} else {
/* De-highlight current item */
print_item(menu,
ItemData(scrollamt + choice),
choice, FALSE);
/* Highlight new item */
choice = i;
print_item(menu,
ItemData(scrollamt + choice),
choice, TRUE);
(void) wnoutrefresh(menu);
(void) wmove(dialog, cur_y, cur_x);
wrefresh(dialog);
}
}
continue; /* wait for another key press */
}
if (fkey) {
switch (key) {
case KEY_BTAB:
case KEY_LEFT:
button = dlg_prev_button(buttons, button);
dlg_draw_buttons(dialog, height - 2, 0, buttons, button,
FALSE, width);
break;
case KEY_RIGHT:
button = dlg_next_button(buttons, button);
dlg_draw_buttons(dialog, height - 2, 0, buttons, button,
FALSE, width);
break;
case KEY_ENTER:
del_window(dialog);
result = handle_button(dlg_ok_buttoncode(button),
items,
scrollamt + choice);
if (dialog_vars.input_menu && result == DLG_EXIT_EXTRA) {
char *tmp;
tmp = input_menu_edit(menu, ItemData(scrollamt + choice),
choice);
dialog_vars.input_result[0] = '\0';
dlg_add_result("RENAMED ");
dlg_add_result(ItemName(scrollamt + choice));
dlg_add_result(" ");
dlg_add_result(tmp);
free(tmp);
dlg_draw_buttons(dialog, height - 2, 0,
buttons, button, FALSE, width);
}
break;
default:
flash();
break;
}
}
}
mouse_free_regions();
del_window(dialog);
free(prompt);
return result;
}
