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