1 /* 2 * $Id: formbox.c,v 1.87 2013/09/02 17:02:05 tom Exp $ 3 * 4 * formbox.c -- implements the form (i.e, some pairs label/editbox) 5 * 6 * Copyright 2003-2012,2013 Thomas E. Dickey 7 * 8 * This program is free software; you can redistribute it and/or modify 9 * it under the terms of the GNU Lesser General Public License, version 2.1 10 * as published by the Free Software Foundation. 11 * 12 * This program is distributed in the hope that it will be useful, but 13 * WITHOUT ANY WARRANTY; without even the implied warranty of 14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15 * Lesser General Public License for more details. 16 * 17 * You should have received a copy of the GNU Lesser General Public 18 * License along with this program; if not, write to 19 * Free Software Foundation, Inc. 20 * 51 Franklin St., Fifth Floor 21 * Boston, MA 02110, USA. 22 * 23 * This is adapted from source contributed by 24 * Valery Reznic (valery_reznic@users.sourceforge.net) 25 */ 26 27 #include <dialog.h> 28 #include <dlg_keys.h> 29 30 #define LLEN(n) ((n) * FORMBOX_TAGS) 31 32 #define ItemName(i) items[LLEN(i) + 0] 33 #define ItemNameY(i) items[LLEN(i) + 1] 34 #define ItemNameX(i) items[LLEN(i) + 2] 35 #define ItemText(i) items[LLEN(i) + 3] 36 #define ItemTextY(i) items[LLEN(i) + 4] 37 #define ItemTextX(i) items[LLEN(i) + 5] 38 #define ItemTextFLen(i) items[LLEN(i) + 6] 39 #define ItemTextILen(i) items[LLEN(i) + 7] 40 #define ItemHelp(i) (dialog_vars.item_help ? items[LLEN(i) + 8] : dlg_strempty()) 41 42 static bool 43 is_readonly(DIALOG_FORMITEM * item) 44 { 45 return ((item->type & 2) != 0) || (item->text_flen <= 0); 46 } 47 48 static bool 49 is_hidden(DIALOG_FORMITEM * item) 50 { 51 return ((item->type & 1) != 0); 52 } 53 54 static bool 55 in_window(WINDOW *win, int scrollamt, int y) 56 { 57 return (y >= scrollamt && y - scrollamt < getmaxy(win)); 58 } 59 60 static bool 61 ok_move(WINDOW *win, int scrollamt, int y, int x) 62 { 63 return in_window(win, scrollamt, y) 64 && (wmove(win, y - scrollamt, x) != ERR); 65 } 66 67 static void 68 move_past(WINDOW *win, int y, int x) 69 { 70 if (wmove(win, y, x) == ERR) 71 wmove(win, y, getmaxx(win) - 1); 72 } 73 74 /* 75 * Print form item 76 */ 77 static int 78 print_item(WINDOW *win, DIALOG_FORMITEM * item, int scrollamt, bool choice) 79 { 80 int count = 0; 81 int len; 82 83 if (ok_move(win, scrollamt, item->name_y, item->name_x)) { 84 len = item->name_len; 85 len = MIN(len, getmaxx(win) - item->name_x); 86 if (len > 0) { 87 dlg_show_string(win, 88 item->name, 89 0, 90 menubox_attr, 91 item->name_y - scrollamt, 92 item->name_x, 93 len, 94 FALSE, 95 FALSE); 96 move_past(win, item->name_y - scrollamt, item->name_x + len); 97 count = 1; 98 } 99 } 100 if (item->text_len && ok_move(win, scrollamt, item->text_y, item->text_x)) { 101 chtype this_item_attribute; 102 103 len = item->text_len; 104 len = MIN(len, getmaxx(win) - item->text_x); 105 106 if (!is_readonly(item)) { 107 this_item_attribute = choice 108 ? form_active_text_attr 109 : form_text_attr; 110 } else { 111 this_item_attribute = form_item_readonly_attr; 112 } 113 114 if (len > 0) { 115 dlg_show_string(win, 116 item->text, 117 0, 118 this_item_attribute, 119 item->text_y - scrollamt, 120 item->text_x, 121 len, 122 is_hidden(item), 123 FALSE); 124 move_past(win, item->text_y - scrollamt, item->text_x + len); 125 count = 1; 126 } 127 } 128 return count; 129 } 130 131 /* 132 * Print the entire form. 133 */ 134 static void 135 print_form(WINDOW *win, DIALOG_FORMITEM * item, int total, int scrollamt, int choice) 136 { 137 int n; 138 int count = 0; 139 140 for (n = 0; n < total; ++n) { 141 count += print_item(win, item + n, scrollamt, n == choice); 142 } 143 if (count) { 144 wbkgdset(win, menubox_attr | ' '); 145 wclrtobot(win); 146 (void) wnoutrefresh(win); 147 } 148 } 149 150 static int 151 set_choice(DIALOG_FORMITEM item[], int choice, int item_no, bool * noneditable) 152 { 153 int result = -1; 154 int i; 155 156 *noneditable = FALSE; 157 if (!is_readonly(&item[choice])) { 158 result = choice; 159 } else { 160 for (i = 0; i < item_no; i++) { 161 if (!is_readonly(&(item[i]))) { 162 result = i; 163 break; 164 } 165 } 166 if (result < 0) { 167 *noneditable = TRUE; 168 result = 0; 169 } 170 } 171 return result; 172 } 173 174 /* 175 * Find the last y-value in the form. 176 */ 177 static int 178 form_limit(DIALOG_FORMITEM item[]) 179 { 180 int n; 181 int limit = 0; 182 for (n = 0; item[n].name != 0; ++n) { 183 if (limit < item[n].name_y) 184 limit = item[n].name_y; 185 if (limit < item[n].text_y) 186 limit = item[n].text_y; 187 } 188 return limit; 189 } 190 191 static int 192 is_first_field(DIALOG_FORMITEM item[], int choice) 193 { 194 int count = 0; 195 while (choice >= 0) { 196 if (item[choice].text_flen > 0) { 197 ++count; 198 } 199 --choice; 200 } 201 202 return (count == 1); 203 } 204 205 static int 206 is_last_field(DIALOG_FORMITEM item[], int choice, int item_no) 207 { 208 int count = 0; 209 while (choice < item_no) { 210 if (item[choice].text_flen > 0) { 211 ++count; 212 } 213 ++choice; 214 } 215 216 return (count == 1); 217 } 218 219 /* 220 * Tab to the next field. 221 */ 222 static bool 223 tab_next(WINDOW *win, 224 DIALOG_FORMITEM item[], 225 int item_no, 226 int stepsize, 227 int *choice, 228 int *scrollamt) 229 { 230 int old_choice = *choice; 231 int old_scroll = *scrollamt; 232 bool wrapped = FALSE; 233 234 do { 235 do { 236 *choice += stepsize; 237 if (*choice < 0) { 238 *choice = item_no - 1; 239 wrapped = TRUE; 240 } else if (*choice >= item_no) { 241 *choice = 0; 242 wrapped = TRUE; 243 } 244 } while ((*choice != old_choice) && is_readonly(&(item[*choice]))); 245 246 if (item[*choice].text_flen > 0) { 247 int lo = MIN(item[*choice].name_y, item[*choice].text_y); 248 int hi = MAX(item[*choice].name_y, item[*choice].text_y); 249 250 if (old_choice == *choice) 251 break; 252 print_item(win, item + old_choice, *scrollamt, FALSE); 253 254 if (*scrollamt < lo + 1 - getmaxy(win)) 255 *scrollamt = lo + 1 - getmaxy(win); 256 if (*scrollamt > hi) 257 *scrollamt = hi; 258 /* 259 * If we have to scroll to show a wrap-around, it does get 260 * confusing. Just give up rather than scroll. Tab'ing to the 261 * next field in a multi-column form is a different matter. Scroll 262 * for that. 263 */ 264 if (*scrollamt != old_scroll) { 265 if (wrapped) { 266 beep(); 267 *scrollamt = old_scroll; 268 *choice = old_choice; 269 } else { 270 scrollok(win, TRUE); 271 wscrl(win, *scrollamt - old_scroll); 272 scrollok(win, FALSE); 273 } 274 } 275 break; 276 } 277 } while (*choice != old_choice); 278 279 return (old_choice != *choice) || (old_scroll != *scrollamt); 280 } 281 282 /* 283 * Scroll to the next page, putting the choice at the first editable field 284 * in that page. Note that fields are not necessarily in top-to-bottom order, 285 * nor is there necessarily a field on each row of the window. 286 */ 287 static bool 288 scroll_next(WINDOW *win, DIALOG_FORMITEM item[], int stepsize, int *choice, int *scrollamt) 289 { 290 bool result = TRUE; 291 int old_choice = *choice; 292 int old_scroll = *scrollamt; 293 int old_row = MIN(item[old_choice].text_y, item[old_choice].name_y); 294 int target = old_scroll + stepsize; 295 int n; 296 297 if (stepsize < 0) { 298 if (old_row != old_scroll) 299 target = old_scroll; 300 else 301 target = old_scroll + stepsize; 302 if (target < 0) { 303 result = FALSE; 304 } 305 } else { 306 if (target > form_limit(item)) { 307 result = FALSE; 308 } 309 } 310 311 if (result) { 312 for (n = 0; item[n].name != 0; ++n) { 313 if (item[n].text_flen > 0) { 314 int new_row = MIN(item[n].text_y, item[n].name_y); 315 if (abs(new_row - target) < abs(old_row - target)) { 316 old_row = new_row; 317 *choice = n; 318 } 319 } 320 } 321 322 if (old_choice != *choice) 323 print_item(win, item + old_choice, *scrollamt, FALSE); 324 325 *scrollamt = *choice; 326 if (*scrollamt != old_scroll) { 327 scrollok(win, TRUE); 328 wscrl(win, *scrollamt - old_scroll); 329 scrollok(win, FALSE); 330 } 331 result = (old_choice != *choice) || (old_scroll != *scrollamt); 332 } 333 if (!result) 334 beep(); 335 return result; 336 } 337 338 /* 339 * Do a sanity check on the field length, and return the "right" value. 340 */ 341 static int 342 real_length(DIALOG_FORMITEM * item) 343 { 344 return (item->text_flen > 0 345 ? item->text_flen 346 : (item->text_flen < 0 347 ? -item->text_flen 348 : item->text_len)); 349 } 350 351 /* 352 * Compute the form size, setup field buffers. 353 */ 354 static void 355 make_FORM_ELTs(DIALOG_FORMITEM * item, 356 int item_no, 357 int *min_height, 358 int *min_width) 359 { 360 int i; 361 int min_w = 0; 362 int min_h = 0; 363 364 for (i = 0; i < item_no; ++i) { 365 int real_len = real_length(item + i); 366 367 /* 368 * Special value '0' for text_flen: no input allowed 369 * Special value '0' for text_ilen: 'be the same as text_flen' 370 */ 371 if (item[i].text_ilen == 0) 372 item[i].text_ilen = real_len; 373 374 min_h = MAX(min_h, item[i].name_y + 1); 375 min_h = MAX(min_h, item[i].text_y + 1); 376 min_w = MAX(min_w, item[i].name_x + 1 + item[i].name_len); 377 min_w = MAX(min_w, item[i].text_x + 1 + real_len); 378 379 item[i].text_len = real_length(item + i); 380 381 /* 382 * We do not know the actual length of .text, so we allocate it here 383 * to ensure it is big enough. 384 */ 385 if (item[i].text_flen > 0) { 386 int max_len = dlg_max_input(MAX(item[i].text_ilen + 1, MAX_LEN)); 387 char *old_text = item[i].text; 388 389 item[i].text = dlg_malloc(char, (size_t) max_len + 1); 390 assert_ptr(item[i].text, "make_FORM_ELTs"); 391 392 sprintf(item[i].text, "%.*s", item[i].text_ilen, old_text); 393 394 if (item[i].text_free) { 395 item[i].text_free = FALSE; 396 free(old_text); 397 } 398 item[i].text_free = TRUE; 399 } 400 } 401 402 *min_height = min_h; 403 *min_width = min_w; 404 } 405 406 int 407 dlg_default_formitem(DIALOG_FORMITEM * items) 408 { 409 int result = 0; 410 411 if (dialog_vars.default_item != 0) { 412 int count = 0; 413 while (items->name != 0) { 414 if (!strcmp(dialog_vars.default_item, items->name)) { 415 result = count; 416 break; 417 } 418 ++items; 419 count++; 420 } 421 } 422 return result; 423 } 424 425 #define sTEXT -1 426 427 static int 428 next_valid_buttonindex(int state, int extra, bool non_editable) 429 { 430 state = dlg_next_ok_buttonindex(state, extra); 431 while (non_editable && state == sTEXT) 432 state = dlg_next_ok_buttonindex(state, sTEXT); 433 return state; 434 } 435 436 static int 437 prev_valid_buttonindex(int state, int extra, bool non_editable) 438 { 439 state = dlg_prev_ok_buttonindex(state, extra); 440 while (non_editable && state == sTEXT) 441 state = dlg_prev_ok_buttonindex(state, sTEXT); 442 return state; 443 } 444 445 #define NAVIGATE_BINDINGS \ 446 DLG_KEYS_DATA( DLGK_FIELD_NEXT, TAB ), \ 447 DLG_KEYS_DATA( DLGK_FIELD_PREV, KEY_BTAB ), \ 448 DLG_KEYS_DATA( DLGK_ITEM_NEXT, CHR_NEXT ), \ 449 DLG_KEYS_DATA( DLGK_ITEM_NEXT, KEY_DOWN ), \ 450 DLG_KEYS_DATA( DLGK_ITEM_NEXT, KEY_NEXT ), \ 451 DLG_KEYS_DATA( DLGK_ITEM_PREV, CHR_PREVIOUS ), \ 452 DLG_KEYS_DATA( DLGK_ITEM_PREV, KEY_PREVIOUS ), \ 453 DLG_KEYS_DATA( DLGK_ITEM_PREV, KEY_UP ), \ 454 DLG_KEYS_DATA( DLGK_PAGE_NEXT, KEY_NPAGE ), \ 455 DLG_KEYS_DATA( DLGK_PAGE_PREV, KEY_PPAGE ) 456 /* 457 * Display a form for entering a number of fields 458 */ 459 int 460 dlg_form(const char *title, 461 const char *cprompt, 462 int height, 463 int width, 464 int form_height, 465 int item_no, 466 DIALOG_FORMITEM * items, 467 int *current_item) 468 { 469 /* *INDENT-OFF* */ 470 static DLG_KEYS_BINDING binding[] = { 471 HELPKEY_BINDINGS, 472 ENTERKEY_BINDINGS, 473 NAVIGATE_BINDINGS, 474 END_KEYS_BINDING 475 }; 476 static DLG_KEYS_BINDING binding2[] = { 477 INPUTSTR_BINDINGS, 478 HELPKEY_BINDINGS, 479 ENTERKEY_BINDINGS, 480 NAVIGATE_BINDINGS, 481 END_KEYS_BINDING 482 }; 483 /* *INDENT-ON* */ 484 485 #ifdef KEY_RESIZE 486 int old_height = height; 487 int old_width = width; 488 #endif 489 490 int form_width; 491 int first = TRUE; 492 int first_trace = TRUE; 493 int chr_offset = 0; 494 int state = dialog_vars.default_button >= 0 ? dlg_default_button() : sTEXT; 495 int x, y, cur_x, cur_y, box_x, box_y; 496 int code; 497 int key = 0; 498 int fkey; 499 int choice = dlg_default_formitem(items); 500 int new_choice, new_scroll; 501 int scrollamt = 0; 502 int result = DLG_EXIT_UNKNOWN; 503 int min_width = 0, min_height = 0; 504 bool was_autosize = (height == 0 || width == 0); 505 bool show_buttons = FALSE; 506 bool scroll_changed = FALSE; 507 bool field_changed = FALSE; 508 bool non_editable = FALSE; 509 WINDOW *dialog, *form; 510 char *prompt = dlg_strclone(cprompt); 511 const char **buttons = dlg_ok_labels(); 512 DIALOG_FORMITEM *current; 513 514 make_FORM_ELTs(items, item_no, &min_height, &min_width); 515 dlg_button_layout(buttons, &min_width); 516 dlg_does_output(); 517 dlg_tab_correct_str(prompt); 518 519 #ifdef KEY_RESIZE 520 retry: 521 #endif 522 523 dlg_auto_size(title, prompt, &height, &width, 524 1 + 3 * MARGIN, 525 MAX(26, 2 + min_width)); 526 527 if (form_height == 0) 528 form_height = min_height; 529 530 if (was_autosize) { 531 form_height = MIN(SLINES - height, form_height); 532 height += form_height; 533 } else { 534 int thigh = 0; 535 int twide = 0; 536 dlg_auto_size(title, prompt, &thigh, &twide, 0, width); 537 thigh = SLINES - (height - (thigh + 1 + 3 * MARGIN)); 538 form_height = MIN(thigh, form_height); 539 } 540 541 dlg_print_size(height, width); 542 dlg_ctl_size(height, width); 543 544 x = dlg_box_x_ordinate(width); 545 y = dlg_box_y_ordinate(height); 546 547 dialog = dlg_new_window(height, width, y, x); 548 dlg_register_window(dialog, "formbox", binding); 549 dlg_register_buttons(dialog, "formbox", buttons); 550 551 dlg_mouse_setbase(x, y); 552 553 dlg_draw_box2(dialog, 0, 0, height, width, dialog_attr, border_attr, border2_attr); 554 dlg_draw_bottom_box2(dialog, border_attr, border2_attr, dialog_attr); 555 dlg_draw_title(dialog, title); 556 557 (void) wattrset(dialog, dialog_attr); 558 dlg_print_autowrap(dialog, prompt, height, width); 559 560 form_width = width - 6; 561 getyx(dialog, cur_y, cur_x); 562 (void) cur_x; 563 box_y = cur_y + 1; 564 box_x = (width - form_width) / 2 - 1; 565 566 /* create new window for the form */ 567 form = dlg_sub_window(dialog, form_height, form_width, y + box_y + 1, 568 x + box_x + 1); 569 dlg_register_window(form, "formfield", binding2); 570 571 /* draw a box around the form items */ 572 dlg_draw_box(dialog, box_y, box_x, form_height + 2, form_width + 2, 573 menubox_border_attr, menubox_border2_attr); 574 575 /* register the new window, along with its borders */ 576 dlg_mouse_mkbigregion(getbegy(form) - getbegy(dialog), 577 getbegx(form) - getbegx(dialog), 578 getmaxy(form), 579 getmaxx(form), 580 KEY_MAX, 1, 1, 3 /* by cells */ ); 581 582 show_buttons = TRUE; 583 scroll_changed = TRUE; 584 585 choice = set_choice(items, choice, item_no, &non_editable); 586 current = &items[choice]; 587 if (non_editable) 588 state = next_valid_buttonindex(state, sTEXT, non_editable); 589 590 while (result == DLG_EXIT_UNKNOWN) { 591 int edit = FALSE; 592 593 if (scroll_changed) { 594 print_form(form, items, item_no, scrollamt, choice); 595 dlg_draw_scrollbar(dialog, 596 scrollamt, 597 scrollamt, 598 scrollamt + form_height + 1, 599 min_height, 600 box_x + 1, 601 box_x + form_width, 602 box_y, 603 box_y + form_height + 1, 604 menubox_border2_attr, 605 menubox_border_attr); 606 scroll_changed = FALSE; 607 } 608 609 if (show_buttons) { 610 dlg_item_help(""); 611 dlg_draw_buttons(dialog, height - 2, 0, buttons, 612 ((state < 0) 613 ? 1000 /* no such button, not highlighted */ 614 : state), 615 FALSE, width); 616 show_buttons = FALSE; 617 } 618 619 if (first_trace) { 620 first_trace = FALSE; 621 dlg_trace_win(dialog); 622 } 623 624 if (field_changed || state == sTEXT) { 625 if (field_changed) 626 chr_offset = 0; 627 current = &items[choice]; 628 dialog_vars.max_input = current->text_ilen; 629 dlg_item_help(current->help); 630 dlg_show_string(form, current->text, chr_offset, 631 form_active_text_attr, 632 current->text_y - scrollamt, 633 current->text_x, 634 current->text_len, 635 is_hidden(current), first); 636 wsyncup(form); 637 wcursyncup(form); 638 field_changed = FALSE; 639 } 640 641 key = dlg_mouse_wgetch((state == sTEXT) ? form : dialog, &fkey); 642 if (dlg_result_key(key, fkey, &result)) 643 break; 644 645 /* handle non-functionkeys */ 646 if (!fkey) { 647 if (state != sTEXT) { 648 code = dlg_char_to_button(key, buttons); 649 if (code >= 0) { 650 dlg_del_window(dialog); 651 result = dlg_ok_buttoncode(code); 652 continue; 653 } 654 if (key == ' ') { 655 fkey = TRUE; 656 key = DLGK_ENTER; 657 } 658 } 659 } 660 661 /* handle functionkeys */ 662 if (fkey) { 663 bool do_scroll = FALSE; 664 bool do_tab = FALSE; 665 int move_by = 0; 666 667 switch (key) { 668 case DLGK_MOUSE(KEY_PPAGE): 669 case DLGK_PAGE_PREV: 670 do_scroll = TRUE; 671 move_by = -form_height; 672 break; 673 674 case DLGK_MOUSE(KEY_NPAGE): 675 case DLGK_PAGE_NEXT: 676 do_scroll = TRUE; 677 move_by = form_height; 678 break; 679 680 case DLGK_ENTER: 681 dlg_del_window(dialog); 682 result = (state >= 0) ? dlg_enter_buttoncode(state) : DLG_EXIT_OK; 683 continue; 684 685 case DLGK_GRID_LEFT: 686 if (state == sTEXT) 687 break; 688 /* FALLTHRU */ 689 case DLGK_ITEM_PREV: 690 if (state == sTEXT) { 691 do_tab = TRUE; 692 move_by = -1; 693 break; 694 } else { 695 state = prev_valid_buttonindex(state, 0, non_editable); 696 show_buttons = TRUE; 697 continue; 698 } 699 700 case DLGK_FORM_PREV: 701 if (state == sTEXT && !is_first_field(items, choice)) { 702 do_tab = TRUE; 703 move_by = -1; 704 break; 705 } else { 706 int old_state = state; 707 state = prev_valid_buttonindex(state, sTEXT, non_editable); 708 show_buttons = TRUE; 709 if (old_state >= 0 && state == sTEXT) { 710 new_choice = item_no - 1; 711 if (choice != new_choice) { 712 print_item(form, items + choice, scrollamt, FALSE); 713 choice = new_choice; 714 } 715 } 716 continue; 717 } 718 719 case DLGK_FIELD_PREV: 720 state = prev_valid_buttonindex(state, sTEXT, non_editable); 721 show_buttons = TRUE; 722 continue; 723 724 case DLGK_FIELD_NEXT: 725 state = next_valid_buttonindex(state, sTEXT, non_editable); 726 show_buttons = TRUE; 727 continue; 728 729 case DLGK_GRID_RIGHT: 730 if (state == sTEXT) 731 break; 732 /* FALLTHRU */ 733 734 case DLGK_ITEM_NEXT: 735 if (state == sTEXT) { 736 do_tab = TRUE; 737 move_by = 1; 738 break; 739 } else { 740 state = next_valid_buttonindex(state, 0, non_editable); 741 show_buttons = TRUE; 742 continue; 743 } 744 745 case DLGK_FORM_NEXT: 746 if (state == sTEXT && !is_last_field(items, choice, item_no)) { 747 do_tab = TRUE; 748 move_by = 1; 749 break; 750 } else { 751 state = next_valid_buttonindex(state, sTEXT, non_editable); 752 show_buttons = TRUE; 753 if (state == sTEXT && choice) { 754 print_item(form, items + choice, scrollamt, FALSE); 755 choice = 0; 756 } 757 continue; 758 } 759 760 #ifdef KEY_RESIZE 761 case KEY_RESIZE: 762 /* reset data */ 763 height = old_height; 764 width = old_width; 765 /* repaint */ 766 dlg_clear(); 767 dlg_del_window(dialog); 768 refresh(); 769 dlg_mouse_free_regions(); 770 goto retry; 771 #endif 772 default: 773 #if USE_MOUSE 774 if (is_DLGK_MOUSE(key)) { 775 if (key >= DLGK_MOUSE(KEY_MAX)) { 776 int cell = key - DLGK_MOUSE(KEY_MAX); 777 int row = (cell / getmaxx(form)) + scrollamt; 778 int col = (cell % getmaxx(form)); 779 int n; 780 781 for (n = 0; n < item_no; ++n) { 782 if (items[n].name_y == row 783 && items[n].name_x <= col 784 && (items[n].name_x + items[n].name_len > col 785 || (items[n].name_y == items[n].text_y 786 && items[n].text_x > col))) { 787 if (!is_readonly(&(items[n]))) { 788 field_changed = TRUE; 789 break; 790 } 791 } 792 if (items[n].text_y == row 793 && items[n].text_x <= col 794 && items[n].text_x + items[n].text_ilen > col) { 795 if (!is_readonly(&(items[n]))) { 796 field_changed = TRUE; 797 break; 798 } 799 } 800 } 801 if (field_changed) { 802 print_item(form, items + choice, scrollamt, FALSE); 803 choice = n; 804 continue; 805 } 806 beep(); 807 } else if ((code = dlg_ok_buttoncode(key - M_EVENT)) >= 0) { 808 result = code; 809 } 810 continue; 811 } 812 #endif 813 break; 814 } 815 816 new_scroll = scrollamt; 817 new_choice = choice; 818 if (do_scroll) { 819 if (scroll_next(form, items, move_by, &new_choice, &new_scroll)) { 820 if (choice != new_choice) { 821 choice = new_choice; 822 field_changed = TRUE; 823 } 824 if (scrollamt != new_scroll) { 825 scrollamt = new_scroll; 826 scroll_changed = TRUE; 827 } 828 } 829 continue; 830 } 831 if (do_tab) { 832 if (tab_next(form, items, item_no, move_by, &new_choice, &new_scroll)) { 833 if (choice != new_choice) { 834 choice = new_choice; 835 field_changed = TRUE; 836 } 837 if (scrollamt != new_scroll) { 838 scrollamt = new_scroll; 839 scroll_changed = TRUE; 840 } 841 } 842 continue; 843 } 844 } 845 846 if (state == sTEXT) { /* Input box selected */ 847 if (!is_readonly(current)) 848 edit = dlg_edit_string(current->text, &chr_offset, key, 849 fkey, first); 850 if (edit) { 851 dlg_show_string(form, current->text, chr_offset, 852 form_active_text_attr, 853 current->text_y - scrollamt, 854 current->text_x, 855 current->text_len, 856 is_hidden(current), first); 857 continue; 858 } 859 } 860 861 } 862 863 dlg_mouse_free_regions(); 864 dlg_del_window(dialog); 865 free(prompt); 866 867 *current_item = choice; 868 return result; 869 } 870 871 /* 872 * Free memory owned by a list of DIALOG_FORMITEM's. 873 */ 874 void 875 dlg_free_formitems(DIALOG_FORMITEM * items) 876 { 877 int n; 878 for (n = 0; items[n].name != 0; ++n) { 879 if (items[n].name_free) 880 free(items[n].name); 881 if (items[n].text_free) 882 free(items[n].text); 883 if (items[n].help_free && items[n].help != dlg_strempty()) 884 free(items[n].help); 885 } 886 free(items); 887 } 888 889 /* 890 * The script accepts values beginning at 1, while curses starts at 0. 891 */ 892 int 893 dlg_ordinate(const char *s) 894 { 895 int result = atoi(s); 896 if (result > 0) 897 --result; 898 else 899 result = 0; 900 return result; 901 } 902 903 int 904 dialog_form(const char *title, 905 const char *cprompt, 906 int height, 907 int width, 908 int form_height, 909 int item_no, 910 char **items) 911 { 912 int result; 913 int choice; 914 int i; 915 DIALOG_FORMITEM *listitems; 916 DIALOG_VARS save_vars; 917 bool show_status = FALSE; 918 char *help_result; 919 920 dlg_save_vars(&save_vars); 921 dialog_vars.separate_output = TRUE; 922 923 listitems = dlg_calloc(DIALOG_FORMITEM, (size_t) item_no + 1); 924 assert_ptr(listitems, "dialog_form"); 925 926 for (i = 0; i < item_no; ++i) { 927 listitems[i].type = dialog_vars.formitem_type; 928 listitems[i].name = ItemName(i); 929 listitems[i].name_len = (int) strlen(ItemName(i)); 930 listitems[i].name_y = dlg_ordinate(ItemNameY(i)); 931 listitems[i].name_x = dlg_ordinate(ItemNameX(i)); 932 listitems[i].text = ItemText(i); 933 listitems[i].text_len = (int) strlen(ItemText(i)); 934 listitems[i].text_y = dlg_ordinate(ItemTextY(i)); 935 listitems[i].text_x = dlg_ordinate(ItemTextX(i)); 936 listitems[i].text_flen = atoi(ItemTextFLen(i)); 937 listitems[i].text_ilen = atoi(ItemTextILen(i)); 938 listitems[i].help = ((dialog_vars.item_help) 939 ? ItemHelp(i) 940 : dlg_strempty()); 941 } 942 943 result = dlg_form(title, 944 cprompt, 945 height, 946 width, 947 form_height, 948 item_no, 949 listitems, 950 &choice); 951 952 switch (result) { 953 case DLG_EXIT_OK: /* FALLTHRU */ 954 case DLG_EXIT_EXTRA: 955 show_status = TRUE; 956 break; 957 case DLG_EXIT_HELP: 958 dlg_add_help_formitem(&result, &help_result, &listitems[choice]); 959 show_status = dialog_vars.help_status; 960 dlg_add_string(help_result); 961 if (show_status) 962 dlg_add_separator(); 963 break; 964 } 965 if (show_status) { 966 for (i = 0; i < item_no; i++) { 967 if (listitems[i].text_flen > 0) { 968 dlg_add_string(listitems[i].text); 969 dlg_add_separator(); 970 } 971 } 972 dlg_add_last_key(-1); 973 } 974 975 dlg_free_formitems(listitems); 976 dlg_restore_vars(&save_vars); 977 978 return result; 979 } 980