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
42static bool
43is_readonly(DIALOG_FORMITEM * item)
44{
45    return ((item->type & 2) != 0) || (item->text_flen <= 0);
46}
47
48static bool
49is_hidden(DIALOG_FORMITEM * item)
50{
51    return ((item->type & 1) != 0);
52}
53
54static bool
55in_window(WINDOW *win, int scrollamt, int y)
56{
57    return (y >= scrollamt && y - scrollamt < getmaxy(win));
58}
59
60static bool
61ok_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
67static void
68move_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 */
77static int
78print_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 */
134static void
135print_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
150static int
151set_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 */
177static int
178form_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
191static int
192is_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
205static int
206is_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 */
222static bool
223tab_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 */
287static bool
288scroll_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 */
341static int
342real_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 */
354static void
355make_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
406int
407dlg_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
427static int
428next_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
436static int
437prev_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 */
459int
460dlg_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 */
874void
875dlg_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 */
892int
893dlg_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
903int
904dialog_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