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
is_readonly(DIALOG_FORMITEM * item)43 is_readonly(DIALOG_FORMITEM * item)
44 {
45 return ((item->type & 2) != 0) || (item->text_flen <= 0);
46 }
47
48 static bool
is_hidden(DIALOG_FORMITEM * item)49 is_hidden(DIALOG_FORMITEM * item)
50 {
51 return ((item->type & 1) != 0);
52 }
53
54 static bool
in_window(WINDOW * win,int scrollamt,int y)55 in_window(WINDOW *win, int scrollamt, int y)
56 {
57 return (y >= scrollamt && y - scrollamt < getmaxy(win));
58 }
59
60 static bool
ok_move(WINDOW * win,int scrollamt,int y,int x)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
move_past(WINDOW * win,int y,int x)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
print_item(WINDOW * win,DIALOG_FORMITEM * item,int scrollamt,bool choice)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
print_form(WINDOW * win,DIALOG_FORMITEM * item,int total,int scrollamt,int choice)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
set_choice(DIALOG_FORMITEM item[],int choice,int item_no,bool * noneditable)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
form_limit(DIALOG_FORMITEM item[])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
is_first_field(DIALOG_FORMITEM item[],int choice)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
is_last_field(DIALOG_FORMITEM item[],int choice,int item_no)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
tab_next(WINDOW * win,DIALOG_FORMITEM item[],int item_no,int stepsize,int * choice,int * scrollamt)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
scroll_next(WINDOW * win,DIALOG_FORMITEM item[],int stepsize,int * choice,int * scrollamt)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
real_length(DIALOG_FORMITEM * item)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
make_FORM_ELTs(DIALOG_FORMITEM * item,int item_no,int * min_height,int * min_width)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
dlg_default_formitem(DIALOG_FORMITEM * items)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
next_valid_buttonindex(int state,int extra,bool non_editable)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
prev_valid_buttonindex(int state,int extra,bool non_editable)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
dlg_form(const char * title,const char * cprompt,int height,int width,int form_height,int item_no,DIALOG_FORMITEM * items,int * current_item)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
dlg_free_formitems(DIALOG_FORMITEM * items)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
dlg_ordinate(const char * s)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
dialog_form(const char * title,const char * cprompt,int height,int width,int form_height,int item_no,char ** items)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