contrib/dialog/formbox.c

   1 /*
   2  *  $Id: formbox.c,v 1.73 2011/06/29 09:48:08 tom Exp $
   3  *
   4  *  formbox.c -- implements the form (i.e, some pairs label/editbox)
   5  *
   6  *  Copyright 2003-2010,2011    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 /*
 192  * Tab to the next field.
 193  */
 194 static bool
 195 tab_next(WINDOW *win,
 196          DIALOG_FORMITEM item[],
 197          int item_no,
 198          int stepsize,
 199          int *choice,
 200          int *scrollamt)
 201 {
 202     int old_choice = *choice;
 203     int old_scroll = *scrollamt;
 204     bool wrapped = FALSE;
 205
 206     do {
 207         do {
 208             *choice += stepsize;
 209             if (*choice < 0) {
 210                 *choice = item_no - 1;
 211                 wrapped = TRUE;
 212             } else if (*choice >= item_no) {
 213                 *choice = 0;
 214                 wrapped = TRUE;
 215             }
 216         } while ((*choice != old_choice) && is_readonly(&(item[*choice])));
 217
 218         if (item[*choice].text_flen > 0) {
 219             int lo = MIN(item[*choice].name_y, item[*choice].text_y);
 220             int hi = MAX(item[*choice].name_y, item[*choice].text_y);
 221
 222             if (old_choice == *choice)
 223                 break;
 224             print_item(win, item + old_choice, *scrollamt, FALSE);
 225
 226             if (*scrollamt < lo + 1 - getmaxy(win))
 227                 *scrollamt = lo + 1 - getmaxy(win);
 228             if (*scrollamt > hi)
 229                 *scrollamt = hi;
 230             /*
 231              * If we have to scroll to show a wrap-around, it does get
 232              * confusing.  Just give up rather than scroll.  Tab'ing to the
 233              * next field in a multi-column form is a different matter.  Scroll
 234              * for that.
 235              */
 236             if (*scrollamt != old_scroll) {
 237                 if (wrapped) {
 238                     beep();
 239                     *scrollamt = old_scroll;
 240                     *choice = old_choice;
 241                 } else {
 242                     scrollok(win, TRUE);
 243                     wscrl(win, *scrollamt - old_scroll);
 244                     scrollok(win, FALSE);
 245                 }
 246             }
 247             break;
 248         }
 249     } while (*choice != old_choice);
 250
 251     return (old_choice != *choice) || (old_scroll != *scrollamt);
 252 }
 253
 254 /*
 255  * Scroll to the next page, putting the choice at the first editable field
 256  * in that page.  Note that fields are not necessarily in top-to-bottom order,
 257  * nor is there necessarily a field on each row of the window.
 258  */
 259 static bool
 260 scroll_next(WINDOW *win, DIALOG_FORMITEM item[], int stepsize, int *choice, int *scrollamt)
 261 {
 262     int old_choice = *choice;
 263     int old_scroll = *scrollamt;
 264     int old_row = MIN(item[old_choice].text_y, item[old_choice].name_y);
 265     int target = old_scroll + stepsize;
 266     int n;
 267
 268     if (stepsize < 0) {
 269         if (old_row != old_scroll)
 270             target = old_scroll;
 271         else
 272             target = old_scroll + stepsize;
 273         if (target < 0)
 274             target = 0;
 275     } else {
 276         int limit = form_limit(item);
 277         if (target > limit)
 278             target = limit;
 279     }
 280
 281     for (n = 0; item[n].name != 0; ++n) {
 282         if (item[n].text_flen > 0) {
 283             int new_row = MIN(item[n].text_y, item[n].name_y);
 284             if (abs(new_row - target) < abs(old_row - target)) {
 285                 old_row = new_row;
 286                 *choice = n;
 287             }
 288         }
 289     }
 290
 291     if (old_choice != *choice)
 292         print_item(win, item + old_choice, *scrollamt, FALSE);
 293
 294     *scrollamt = *choice;
 295     if (*scrollamt != old_scroll) {
 296         scrollok(win, TRUE);
 297         wscrl(win, *scrollamt - old_scroll);
 298         scrollok(win, FALSE);
 299     }
 300     return (old_choice != *choice) || (old_scroll != *scrollamt);
 301 }
 302
 303 /*
 304  * Do a sanity check on the field length, and return the "right" value.
 305  */
 306 static int
 307 real_length(DIALOG_FORMITEM * item)
 308 {
 309     return (item->text_flen > 0
 310             ? item->text_flen
 311             : (item->text_flen < 0
 312                ? -item->text_flen
 313                : item->text_len));
 314 }
 315
 316 /*
 317  * Compute the form size, setup field buffers.
 318  */
 319 static void
 320 make_FORM_ELTs(DIALOG_FORMITEM * item,
 321                int item_no,
 322                int *min_height,
 323                int *min_width)
 324 {
 325     int i;
 326     int min_w = 0;
 327     int min_h = 0;
 328
 329     for (i = 0; i < item_no; ++i) {
 330         int real_len = real_length(item + i);
 331
 332         /*
 333          * Special value '0' for text_flen: no input allowed
 334          * Special value '0' for text_ilen: 'be the same as text_flen'
 335          */
 336         if (item[i].text_ilen == 0)
 337             item[i].text_ilen = real_len;
 338
 339         min_h = MAX(min_h, item[i].name_y + 1);
 340         min_h = MAX(min_h, item[i].text_y + 1);
 341         min_w = MAX(min_w, item[i].name_x + 1 + item[i].name_len);
 342         min_w = MAX(min_w, item[i].text_x + 1 + real_len);
 343
 344         item[i].text_len = real_length(item + i);
 345
 346         /*
 347          * We do not know the actual length of .text, so we allocate it here
 348          * to ensure it is big enough.
 349          */
 350         if (item[i].text_flen > 0) {
 351             int max_len = dlg_max_input(MAX(item[i].text_ilen + 1, MAX_LEN));
 352             char *old_text = item[i].text;
 353
 354             item[i].text = dlg_malloc(char, (size_t) max_len + 1);
 355             assert_ptr(item[i].text, "make_FORM_ELTs");
 356
 357             sprintf(item[i].text, "%.*s", item[i].text_ilen, old_text);
 358
 359             if (item[i].text_free) {
 360                 item[i].text_free = FALSE;
 361                 free(old_text);
 362             }
 363             item[i].text_free = TRUE;
 364         }
 365     }
 366
 367     *min_height = min_h;
 368     *min_width = min_w;
 369 }
 370
 371 int
 372 dlg_default_formitem(DIALOG_FORMITEM * items)
 373 {
 374     int result = 0;
 375
 376     if (dialog_vars.default_item != 0) {
 377         int count = 0;
 378         while (items->name != 0) {
 379             if (!strcmp(dialog_vars.default_item, items->name)) {
 380                 result = count;
 381                 break;
 382             }
 383             ++items;
 384             count++;
 385         }
 386     }
 387     return result;
 388 }
 389
 390 #define sTEXT -1
 391
 392 static int
 393 next_valid_buttonindex(int state, int extra, bool non_editable)
 394 {
 395     state = dlg_next_ok_buttonindex(state, extra);
 396     while (non_editable && state == sTEXT)
 397         state = dlg_next_ok_buttonindex(state, sTEXT);
 398     return state;
 399 }
 400
 401 static int
 402 prev_valid_buttonindex(int state, int extra, bool non_editable)
 403 {
 404     state = dlg_prev_ok_buttonindex(state, extra);
 405     while (non_editable && state == sTEXT)
 406         state = dlg_prev_ok_buttonindex(state, sTEXT);
 407     return state;
 408 }
 409
 410 #define NAVIGATE_BINDINGS \
 411         DLG_KEYS_DATA( DLGK_FIELD_NEXT, TAB ), \
 412         DLG_KEYS_DATA( DLGK_FIELD_PREV, KEY_BTAB ), \
 413         DLG_KEYS_DATA( DLGK_ITEM_NEXT,  CHR_NEXT ), \
 414         DLG_KEYS_DATA( DLGK_ITEM_NEXT,  KEY_DOWN ), \
 415         DLG_KEYS_DATA( DLGK_ITEM_NEXT,  KEY_NEXT ), \
 416         DLG_KEYS_DATA( DLGK_ITEM_PREV,  CHR_PREVIOUS ), \
 417         DLG_KEYS_DATA( DLGK_ITEM_PREV,  KEY_PREVIOUS ), \
 418         DLG_KEYS_DATA( DLGK_ITEM_PREV,  KEY_UP ), \
 419         DLG_KEYS_DATA( DLGK_PAGE_NEXT,  KEY_NPAGE ), \
 420         DLG_KEYS_DATA( DLGK_PAGE_PREV,  KEY_PPAGE )
 421 /*
 422  * Display a form for fulfill a number of fields
 423  */
 424 int
 425 dlg_form(const char *title,
 426          const char *cprompt,
 427          int height,
 428          int width,
 429          int form_height,
 430          int item_no,
 431          DIALOG_FORMITEM * items,
 432          int *current_item)
 433 {
 434     /* *INDENT-OFF* */
 435     static DLG_KEYS_BINDING binding[] = {
 436         HELPKEY_BINDINGS,
 437         ENTERKEY_BINDINGS,
 438         NAVIGATE_BINDINGS,
 439         END_KEYS_BINDING
 440     };
 441     static DLG_KEYS_BINDING binding2[] = {
 442         INPUTSTR_BINDINGS,
 443         HELPKEY_BINDINGS,
 444         ENTERKEY_BINDINGS,
 445         NAVIGATE_BINDINGS,
 446         END_KEYS_BINDING
 447     };
 448     /* *INDENT-ON* */
 449
 450 #ifdef KEY_RESIZE
 451     int old_height = height;
 452     int old_width = width;
 453 #endif
 454
 455     int form_width;
 456     int first = TRUE;
 457     int chr_offset = 0;
 458     int state = dialog_vars.defaultno ? dlg_defaultno_button() : sTEXT;
 459     int x, y, cur_x, cur_y, box_x, box_y;
 460     int code;
 461     int key = 0;
 462     int fkey;
 463     int choice = dlg_default_formitem(items);
 464     int new_choice, new_scroll;
 465     int scrollamt = 0;
 466     int result = DLG_EXIT_UNKNOWN;
 467     int min_width = 0, min_height = 0;
 468     bool was_autosize = (height == 0 || width == 0);
 469     bool show_buttons = FALSE;
 470     bool scroll_changed = FALSE;
 471     bool field_changed = FALSE;
 472     bool non_editable = FALSE;
 473     WINDOW *dialog, *form;
 474     char *prompt = dlg_strclone(cprompt);
 475     const char **buttons = dlg_ok_labels();
 476     DIALOG_FORMITEM *current;
 477
 478     make_FORM_ELTs(items, item_no, &min_height, &min_width);
 479     dlg_button_layout(buttons, &min_width);
 480     dlg_does_output();
 481     dlg_tab_correct_str(prompt);
 482
 483 #ifdef KEY_RESIZE
 484   retry:
 485 #endif
 486
 487     dlg_auto_size(title, prompt, &height, &width,
 488                   1 + 3 * MARGIN,
 489                   MAX(26, 2 + min_width));
 490
 491     if (form_height == 0)
 492         form_height = min_height;
 493
 494     if (was_autosize) {
 495         form_height = MIN(SLINES - height, form_height);
 496         height += form_height;
 497     } else {
 498         int thigh = 0;
 499         int twide = 0;
 500         dlg_auto_size(title, prompt, &thigh, &twide, 0, width);
 501         thigh = SLINES - (height - (thigh + 1 + 3 * MARGIN));
 502         form_height = MIN(thigh, form_height);
 503     }
 504
 505     dlg_print_size(height, width);
 506     dlg_ctl_size(height, width);
 507
 508     x = dlg_box_x_ordinate(width);
 509     y = dlg_box_y_ordinate(height);
 510
 511     dialog = dlg_new_window(height, width, y, x);
 512     dlg_register_window(dialog, "formbox", binding);
 513     dlg_register_window(dialog, "formfield", binding2);
 514     dlg_register_buttons(dialog, "formbox", buttons);
 515
 516     dlg_mouse_setbase(x, y);
 517
 518     dlg_draw_box(dialog, 0, 0, height, width, dialog_attr, border_attr);
 519     dlg_draw_bottom_box(dialog);
 520     dlg_draw_title(dialog, title);
 521
 522     wattrset(dialog, dialog_attr);
 523     dlg_print_autowrap(dialog, prompt, height, width);
 524
 525     form_width = width - 6;
 526     getyx(dialog, cur_y, cur_x);
 527     box_y = cur_y + 1;
 528     box_x = (width - form_width) / 2 - 1;
 529
 530     /* create new window for the form */
 531     form = dlg_sub_window(dialog, form_height, form_width, y + box_y + 1,
 532                           x + box_x + 1);
 533
 534     /* draw a box around the form items */
 535     dlg_draw_box(dialog, box_y, box_x, form_height + 2, form_width + 2,
 536                  menubox_border_attr, menubox_attr);
 537
 538     /* register the new window, along with its borders */
 539     dlg_mouse_mkbigregion(getbegy(form) - getbegy(dialog),
 540                           getbegx(form) - getbegx(dialog),
 541                           getmaxy(form),
 542                           getmaxx(form),
 543                           KEY_MAX, 1, 1, 3 /* by cells */ );
 544
 545     show_buttons = TRUE;
 546     scroll_changed = TRUE;
 547
 548     choice = set_choice(items, choice, item_no, &non_editable);
 549     current = &items[choice];
 550     if (non_editable)
 551         state = next_valid_buttonindex(state, sTEXT, non_editable);
 552
 553     while (result == DLG_EXIT_UNKNOWN) {
 554         int edit = FALSE;
 555
 556         if (scroll_changed) {
 557             print_form(form, items, item_no, scrollamt, choice);
 558             dlg_draw_scrollbar(dialog,
 559                                scrollamt,
 560                                scrollamt,
 561                                scrollamt + form_height + 1,
 562                                min_height,
 563                                box_x + 1,
 564                                box_x + form_width,
 565                                box_y,
 566                                box_y + form_height + 1,
 567                                menubox_attr,
 568                                menubox_border_attr);
 569             scroll_changed = FALSE;
 570         }
 571
 572         if (show_buttons) {
 573             dlg_item_help("");
 574             dlg_draw_buttons(dialog, height - 2, 0, buttons,
 575                              ((state < 0)
 576                               ? 1000    /* no such button, not highlighted */
 577                               : state),
 578                              FALSE, width);
 579             show_buttons = FALSE;
 580         }
 581
 582         if (field_changed || state == sTEXT) {
 583             if (field_changed)
 584                 chr_offset = 0;
 585             current = &items[choice];
 586             dialog_vars.max_input = current->text_ilen;
 587             dlg_item_help(current->help);
 588             dlg_show_string(form, current->text, chr_offset,
 589                             form_active_text_attr,
 590                             current->text_y - scrollamt,
 591                             current->text_x,
 592                             current->text_len,
 593                             is_hidden(current), first);
 594             field_changed = FALSE;
 595         }
 596
 597         key = dlg_mouse_wgetch(dialog, &fkey);
 598         if (dlg_result_key(key, fkey, &result))
 599             break;
 600
 601         /* handle non-functionkeys */
 602         if (!fkey) {
 603             if (state != sTEXT) {
 604                 code = dlg_char_to_button(key, buttons);
 605                 if (code >= 0) {
 606                     dlg_del_window(dialog);
 607                     result = dlg_ok_buttoncode(code);
 608                     continue;
 609                 }
 610                 if (key == ' ') {
 611                     fkey = TRUE;
 612                     key = DLGK_ENTER;
 613                 }
 614             }
 615         }
 616
 617         /* handle functionkeys */
 618         if (fkey) {
 619             bool do_scroll = FALSE;
 620             bool do_tab = FALSE;
 621             int move_by = 0;
 622
 623             switch (key) {
 624             case DLGK_MOUSE(KEY_PPAGE):
 625             case DLGK_PAGE_PREV:
 626                 do_scroll = TRUE;
 627                 move_by = -form_height;
 628                 break;
 629
 630             case DLGK_MOUSE(KEY_NPAGE):
 631             case DLGK_PAGE_NEXT:
 632                 do_scroll = TRUE;
 633                 move_by = form_height;
 634                 break;
 635
 636             case DLGK_ENTER:
 637                 dlg_del_window(dialog);
 638                 result = (state >= 0) ? dlg_enter_buttoncode(state) : DLG_EXIT_OK;
 639                 continue;
 640
 641             case DLGK_GRID_LEFT:
 642                 if (state == sTEXT)
 643                     break;
 644                 /* FALLTHRU */
 645             case DLGK_ITEM_PREV:
 646                 if (state == sTEXT) {
 647                     do_tab = TRUE;
 648                     move_by = -1;
 649                     break;
 650                 } else {
 651                     state = prev_valid_buttonindex(state, 0, non_editable);
 652                     show_buttons = TRUE;
 653                     continue;
 654                 }
 655
 656             case DLGK_FIELD_PREV:
 657                 state = prev_valid_buttonindex(state, sTEXT, non_editable);
 658                 show_buttons = TRUE;
 659                 continue;
 660
 661             case DLGK_FIELD_NEXT:
 662                 state = next_valid_buttonindex(state, sTEXT, non_editable);
 663                 show_buttons = TRUE;
 664                 continue;
 665
 666             case DLGK_GRID_RIGHT:
 667                 if (state == sTEXT)
 668                     break;
 669                 /* FALLTHRU */
 670
 671             case DLGK_ITEM_NEXT:
 672                 if (state == sTEXT) {
 673                     do_tab = TRUE;
 674                     move_by = 1;
 675                     break;
 676                 } else {
 677                     state = next_valid_buttonindex(state, 0, non_editable);
 678                     show_buttons = TRUE;
 679                     continue;
 680                 }
 681
 682 #ifdef KEY_RESIZE
 683             case KEY_RESIZE:
 684                 /* reset data */
 685                 height = old_height;
 686                 width = old_width;
 687                 /* repaint */
 688                 dlg_clear();
 689                 dlg_del_window(dialog);
 690                 refresh();
 691                 dlg_mouse_free_regions();
 692                 goto retry;
 693 #endif
 694             default:
 695 #if USE_MOUSE
 696                 if (is_DLGK_MOUSE(key)) {
 697                     if (key >= DLGK_MOUSE(KEY_MAX)) {
 698                         int cell = key - DLGK_MOUSE(KEY_MAX);
 699                         int row = (cell / getmaxx(form)) + scrollamt;
 700                         int col = (cell % getmaxx(form));
 701                         int n;
 702
 703                         for (n = 0; n < item_no; ++n) {
 704                             if (items[n].name_y == row
 705                                 && items[n].name_x <= col
 706                                 && (items[n].name_x + items[n].name_len > col
 707                                     || (items[n].name_y == items[n].text_y
 708                                         && items[n].text_x > col))) {
 709                                 if (!is_readonly(&(items[n]))) {
 710                                     field_changed = TRUE;
 711                                     break;
 712                                 }
 713                             }
 714                             if (items[n].text_y == row
 715                                 && items[n].text_x <= col
 716                                 && items[n].text_x + items[n].text_ilen > col) {
 717                                 if (!is_readonly(&(items[n]))) {
 718                                     field_changed = TRUE;
 719                                     break;
 720                                 }
 721                             }
 722                         }
 723                         if (field_changed) {
 724                             print_item(form, items + choice, scrollamt, FALSE);
 725                             choice = n;
 726                             continue;
 727                         }
 728                         beep();
 729                     } else if ((code = dlg_ok_buttoncode(key - M_EVENT)) >= 0) {
 730                         result = code;
 731                     }
 732                     continue;
 733                 }
 734 #endif
 735                 break;
 736             }
 737
 738             new_scroll = scrollamt;
 739             new_choice = choice;
 740             if (do_scroll) {
 741                 if (scroll_next(form, items, move_by, &new_choice, &new_scroll)) {
 742                     if (choice != new_choice) {
 743                         choice = new_choice;
 744                         field_changed = TRUE;
 745                     }
 746                     if (scrollamt != new_scroll) {
 747                         scrollamt = new_scroll;
 748                         scroll_changed = TRUE;
 749                     }
 750                 }
 751                 continue;
 752             }
 753             if (do_tab) {
 754                 if (tab_next(form, items, item_no, move_by, &new_choice, &new_scroll)) {
 755                     if (choice != new_choice) {
 756                         choice = new_choice;
 757                         field_changed = TRUE;
 758                     }
 759                     if (scrollamt != new_scroll) {
 760                         scrollamt = new_scroll;
 761                         scroll_changed = TRUE;
 762                     }
 763                 }
 764                 continue;
 765             }
 766         }
 767
 768         if (state == sTEXT) {   /* Input box selected */
 769             if (!is_readonly(current))
 770                 edit = dlg_edit_string(current->text, &chr_offset, key,
 771                                        fkey, first);
 772             if (edit) {
 773                 dlg_show_string(form, current->text, chr_offset,
 774                                 form_active_text_attr,
 775                                 current->text_y - scrollamt,
 776                                 current->text_x,
 777                                 current->text_len,
 778                                 is_hidden(current), first);
 779                 continue;
 780             }
 781         }
 782
 783     }
 784
 785     dlg_mouse_free_regions();
 786     dlg_del_window(dialog);
 787     free(prompt);
 788
 789     *current_item = choice;
 790     return result;
 791 }
 792
 793 /*
 794  * Free memory owned by a list of DIALOG_FORMITEM's.
 795  */
 796 void
 797 dlg_free_formitems(DIALOG_FORMITEM * items)
 798 {
 799     int n;
 800     for (n = 0; items[n].name != 0; ++n) {
 801         if (items[n].name_free)
 802             free(items[n].name);
 803         if (items[n].text_free)
 804             free(items[n].text);
 805         if (items[n].help_free && items[n].help != dlg_strempty())
 806             free(items[n].help);
 807     }
 808     free(items);
 809 }
 810
 811 /*
 812  * The script accepts values beginning at 1, while curses starts at 0.
 813  */
 814 int
 815 dlg_ordinate(const char *s)
 816 {
 817     int result = atoi(s);
 818     if (result > 0)
 819         --result;
 820     else
 821         result = 0;
 822     return result;
 823 }
 824
 825 int
 826 dialog_form(const char *title,
 827             const char *cprompt,
 828             int height,
 829             int width,
 830             int form_height,
 831             int item_no,
 832             char **items)
 833 {
 834     int result;
 835     int choice;
 836     int i;
 837     DIALOG_FORMITEM *listitems;
 838     DIALOG_VARS save_vars;
 839     bool show_status = FALSE;
 840
 841     dlg_save_vars(&save_vars);
 842     dialog_vars.separate_output = TRUE;
 843
 844     listitems = dlg_calloc(DIALOG_FORMITEM, (size_t) item_no + 1);
 845     assert_ptr(listitems, "dialog_form");
 846
 847     for (i = 0; i < item_no; ++i) {
 848         listitems[i].type = dialog_vars.formitem_type;
 849         listitems[i].name = ItemName(i);
 850         listitems[i].name_len = (int) strlen(ItemName(i));
 851         listitems[i].name_y = dlg_ordinate(ItemNameY(i));
 852         listitems[i].name_x = dlg_ordinate(ItemNameX(i));
 853         listitems[i].text = ItemText(i);
 854         listitems[i].text_len = (int) strlen(ItemText(i));
 855         listitems[i].text_y = dlg_ordinate(ItemTextY(i));
 856         listitems[i].text_x = dlg_ordinate(ItemTextX(i));
 857         listitems[i].text_flen = atoi(ItemTextFLen(i));
 858         listitems[i].text_ilen = atoi(ItemTextILen(i));
 859         listitems[i].help = ((dialog_vars.item_help)
 860                              ? ItemHelp(i)
 861                              : dlg_strempty());
 862     }
 863
 864     result = dlg_form(title,
 865                       cprompt,
 866                       height,
 867                       width,
 868                       form_height,
 869                       item_no,
 870                       listitems,
 871                       &choice);
 872
 873     switch (result) {
 874     case DLG_EXIT_OK:           /* FALLTHRU */
 875     case DLG_EXIT_EXTRA:
 876         show_status = TRUE;
 877         break;
 878     case DLG_EXIT_HELP:
 879         dlg_add_result("HELP ");
 880         show_status = dialog_vars.help_status;
 881         if (USE_ITEM_HELP(listitems[choice].help)) {
 882             dlg_add_string(listitems[choice].help);
 883             result = DLG_EXIT_ITEM_HELP;
 884         } else {
 885             dlg_add_string(listitems[choice].name);
 886         }
 887         if (show_status)
 888             dlg_add_separator();
 889         break;
 890     }
 891     if (show_status) {
 892         for (i = 0; i < item_no; i++) {
 893             if (listitems[i].text_flen > 0) {
 894                 dlg_add_string(listitems[i].text);
 895                 dlg_add_separator();
 896             }
 897         }
 898     }
 899
 900     dlg_free_formitems(listitems);
 901     dlg_restore_vars(&save_vars);
 902
 903     return result;
 904 }