1251839Sbapt/* 2251839Sbapt * $Id: rangebox.c,v 1.17 2013/03/17 16:02:00 tom Exp $ 3251839Sbapt * 4251839Sbapt * rangebox.c -- implements the rangebox dialog 5251839Sbapt * 6251839Sbapt * Copyright 2012,2013 Thomas E. Dickey 7251839Sbapt * 8251839Sbapt * This program is free software; you can redistribute it and/or modify 9251839Sbapt * it under the terms of the GNU Lesser General Public License, version 2.1 10251839Sbapt * as published by the Free Software Foundation. 11251839Sbapt * 12251839Sbapt * This program is distributed in the hope that it will be useful, but 13251839Sbapt * WITHOUT ANY WARRANTY; without even the implied warranty of 14251839Sbapt * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15251839Sbapt * Lesser General Public License for more details. 16251839Sbapt * 17251839Sbapt * You should have received a copy of the GNU Lesser General Public 18251839Sbapt * License along with this program; if not, write to 19251839Sbapt * Free Software Foundation, Inc. 20251839Sbapt * 51 Franklin St., Fifth Floor 21251839Sbapt * Boston, MA 02110, USA. 22251839Sbapt */ 23251839Sbapt 24251839Sbapt#include <dialog.h> 25251839Sbapt#include <dlg_keys.h> 26251839Sbapt 27251839Sbapt#define ONE_HIGH 1 28251839Sbapt 29251839Sbapt#define MIN_HIGH (ONE_HIGH + 1 + (4 * MARGIN)) 30251839Sbapt#define MIN_WIDE (10 + 2 + (2 * MARGIN)) 31251839Sbapt 32251839Sbaptstruct _box; 33251839Sbapt 34251839Sbapttypedef struct _box { 35251839Sbapt WINDOW *parent; 36251839Sbapt WINDOW *window; 37251839Sbapt int x; 38251839Sbapt int y; 39251839Sbapt int width; 40251839Sbapt int height; 41251839Sbapt int period; 42251839Sbapt int value; 43251839Sbapt} BOX; 44251839Sbapt 45251839Sbapttypedef struct { 46251839Sbapt /* window in which the value and slider are drawn */ 47251839Sbapt WINDOW *window; 48251839Sbapt int min_value; 49251839Sbapt int max_value; 50251839Sbapt /* position and width of the numeric field */ 51251839Sbapt int value_x; 52251839Sbapt int value_len; 53251839Sbapt int value_col; 54251839Sbapt /* position and width of the slider field */ 55251839Sbapt int slide_x; 56251839Sbapt int slide_y; 57251839Sbapt int slide_len; 58251839Sbapt /* current value drawn */ 59251839Sbapt int current; 60251839Sbapt /* value to add to make slider move by one cell */ 61251839Sbapt int slide_inc; 62251839Sbapt} VALUE; 63251839Sbapt 64251839Sbaptstatic int 65251839Sbaptdigits_of(int value) 66251839Sbapt{ 67251839Sbapt char temp[80]; 68251839Sbapt sprintf(temp, "%d", value); 69251839Sbapt return (int) strlen(temp); 70251839Sbapt} 71251839Sbapt 72251839Sbaptstatic int 73251839Sbaptdigit_of(VALUE * data) 74251839Sbapt{ 75251839Sbapt int col = data->value_col; 76251839Sbapt int result = 1; 77251839Sbapt 78251839Sbapt while (++col < data->value_len) { 79251839Sbapt result *= 10; 80251839Sbapt } 81251839Sbapt return result; 82251839Sbapt} 83251839Sbapt 84251839Sbaptstatic bool 85251839Sbaptset_digit(VALUE * data, int chr) 86251839Sbapt{ 87251839Sbapt bool result = FALSE; 88251839Sbapt char buffer[80]; 89251839Sbapt long check; 90251839Sbapt char *next = 0; 91251839Sbapt 92251839Sbapt sprintf(buffer, "%*d", data->value_len, data->current); 93251839Sbapt buffer[data->value_col] = (char) chr; 94251839Sbapt check = strtol(buffer, &next, 10); 95251839Sbapt if (next == 0 || *next == '\0') { 96251839Sbapt if ((check <= (long) data->max_value) && 97251839Sbapt (check >= (long) data->min_value)) { 98251839Sbapt result = TRUE; 99251839Sbapt data->current = (int) check; 100251839Sbapt } 101251839Sbapt } 102251839Sbapt 103251839Sbapt return result; 104251839Sbapt} 105251839Sbapt 106251839Sbapt/* 107251839Sbapt * This is similar to the gauge code, but differs in the way the number 108251839Sbapt * is displayed, etc. 109251839Sbapt */ 110251839Sbaptstatic void 111251839Sbaptdraw_value(VALUE * data, int value) 112251839Sbapt{ 113251839Sbapt if (value != data->current) { 114251839Sbapt WINDOW *win = data->window; 115251839Sbapt int y, x; 116251839Sbapt int n; 117251839Sbapt int ranges = (data->max_value + 1 - data->min_value); 118251839Sbapt int offset = (value - data->min_value); 119251839Sbapt int scaled; 120251839Sbapt 121251839Sbapt getyx(win, y, x); 122251839Sbapt 123251839Sbapt if (ranges > data->slide_len) { 124251839Sbapt scaled = (offset + data->slide_inc) / data->slide_inc; 125251839Sbapt } else if (ranges < data->slide_len) { 126251839Sbapt scaled = (offset + 1) * data->slide_inc; 127251839Sbapt } else { 128251839Sbapt scaled = offset; 129251839Sbapt } 130251839Sbapt 131251839Sbapt (void) wattrset(win, gauge_attr); 132251839Sbapt wmove(win, data->slide_y, data->slide_x); 133251839Sbapt for (n = 0; n < data->slide_len; ++n) { 134251839Sbapt (void) waddch(win, ' '); 135251839Sbapt } 136251839Sbapt wmove(win, data->slide_y, data->value_x); 137251839Sbapt wprintw(win, "%*d", data->value_len, value); 138251839Sbapt if ((gauge_attr & A_REVERSE) != 0) { 139251839Sbapt wattroff(win, A_REVERSE); 140251839Sbapt } else { 141251839Sbapt (void) wattrset(win, A_REVERSE); 142251839Sbapt } 143251839Sbapt wmove(win, data->slide_y, data->slide_x); 144251839Sbapt for (n = 0; n < scaled; ++n) { 145251839Sbapt chtype ch2 = winch(win); 146251839Sbapt if (gauge_attr & A_REVERSE) { 147251839Sbapt ch2 &= ~A_REVERSE; 148251839Sbapt } 149251839Sbapt (void) waddch(win, ch2); 150251839Sbapt } 151251839Sbapt (void) wattrset(win, dialog_attr); 152251839Sbapt 153251839Sbapt wmove(win, y, x); 154251839Sbapt data->current = value; 155251839Sbapt 156251839Sbapt dlg_trace_msg("drew %d offset %d scaled %d limit %d inc %d\n", 157251839Sbapt value, 158251839Sbapt offset, 159251839Sbapt scaled, 160251839Sbapt data->slide_len, 161251839Sbapt data->slide_inc); 162251839Sbapt 163251839Sbapt dlg_trace_win(win); 164251839Sbapt } 165251839Sbapt} 166251839Sbapt 167251839Sbapt/* 168251839Sbapt * Allow the user to select from a range of values, e.g., using a slider. 169251839Sbapt */ 170251839Sbaptint 171251839Sbaptdialog_rangebox(const char *title, 172251839Sbapt const char *cprompt, 173251839Sbapt int height, 174251839Sbapt int width, 175251839Sbapt int min_value, 176251839Sbapt int max_value, 177251839Sbapt int default_value) 178251839Sbapt{ 179251839Sbapt /* *INDENT-OFF* */ 180251839Sbapt static DLG_KEYS_BINDING binding[] = { 181251839Sbapt DLG_KEYS_DATA( DLGK_DELETE_RIGHT,KEY_DC ), 182251839Sbapt HELPKEY_BINDINGS, 183251839Sbapt ENTERKEY_BINDINGS, 184251839Sbapt DLG_KEYS_DATA( DLGK_ENTER, ' ' ), 185251839Sbapt DLG_KEYS_DATA( DLGK_FIELD_NEXT, CHR_NEXT ), 186251839Sbapt DLG_KEYS_DATA( DLGK_FIELD_NEXT, KEY_RIGHT ), 187251839Sbapt DLG_KEYS_DATA( DLGK_FIELD_NEXT, TAB ), 188251839Sbapt DLG_KEYS_DATA( DLGK_FIELD_PREV, CHR_BACKSPACE ), 189251839Sbapt DLG_KEYS_DATA( DLGK_FIELD_PREV, CHR_PREVIOUS ), 190251839Sbapt DLG_KEYS_DATA( DLGK_FIELD_PREV, KEY_BTAB ), 191251839Sbapt DLG_KEYS_DATA( DLGK_FIELD_PREV, KEY_LEFT ), 192251839Sbapt DLG_KEYS_DATA( DLGK_ITEM_FIRST, KEY_HOME), 193251839Sbapt DLG_KEYS_DATA( DLGK_ITEM_LAST, KEY_END), 194251839Sbapt DLG_KEYS_DATA( DLGK_ITEM_LAST, KEY_LL ), 195251839Sbapt DLG_KEYS_DATA( DLGK_ITEM_NEXT, '+'), 196251839Sbapt DLG_KEYS_DATA( DLGK_ITEM_NEXT, KEY_DOWN), 197251839Sbapt DLG_KEYS_DATA( DLGK_ITEM_PREV, '-' ), 198251839Sbapt DLG_KEYS_DATA( DLGK_ITEM_PREV, KEY_UP ), 199251839Sbapt DLG_KEYS_DATA( DLGK_PAGE_NEXT, KEY_NEXT), 200251839Sbapt DLG_KEYS_DATA( DLGK_PAGE_NEXT, KEY_NPAGE), 201251839Sbapt DLG_KEYS_DATA( DLGK_PAGE_PREV, KEY_PPAGE ), 202251839Sbapt DLG_KEYS_DATA( DLGK_PAGE_PREV, KEY_PREVIOUS ), 203251839Sbapt END_KEYS_BINDING 204251839Sbapt }; 205251839Sbapt /* *INDENT-ON* */ 206251839Sbapt 207251839Sbapt#ifdef KEY_RESIZE 208251839Sbapt int old_height = height; 209251839Sbapt int old_width = width; 210251839Sbapt#endif 211251839Sbapt VALUE data; 212251839Sbapt int key = 0, key2, fkey; 213251839Sbapt int button; 214251839Sbapt int result = DLG_EXIT_UNKNOWN; 215251839Sbapt WINDOW *dialog; 216251839Sbapt int state = dlg_default_button(); 217251839Sbapt const char **buttons = dlg_ok_labels(); 218251839Sbapt char *prompt = dlg_strclone(cprompt); 219251839Sbapt char buffer[MAX_LEN]; 220251839Sbapt int cur_value = default_value; 221251839Sbapt int usable; 222251839Sbapt int ranges; 223251839Sbapt int yorg, xorg; 224251839Sbapt 225251839Sbapt if (max_value < min_value) 226251839Sbapt max_value = min_value; 227251839Sbapt if (cur_value > max_value) 228251839Sbapt cur_value = max_value; 229251839Sbapt if (cur_value < min_value) 230251839Sbapt cur_value = min_value; 231251839Sbapt 232251839Sbapt dlg_does_output(); 233251839Sbapt 234251839Sbapt#ifdef KEY_RESIZE 235251839Sbapt retry: 236251839Sbapt#endif 237251839Sbapt 238251839Sbapt dlg_auto_size(title, prompt, &height, &width, 0, 0); 239251839Sbapt height += MIN_HIGH; 240251839Sbapt if (width < MIN_WIDE) 241251839Sbapt width = MIN_WIDE; 242251839Sbapt dlg_button_layout(buttons, &width); 243251839Sbapt dlg_print_size(height, width); 244251839Sbapt dlg_ctl_size(height, width); 245251839Sbapt 246251839Sbapt dialog = dlg_new_window(height, width, 247251839Sbapt yorg = dlg_box_y_ordinate(height), 248251839Sbapt xorg = dlg_box_x_ordinate(width)); 249251839Sbapt 250251839Sbapt data.window = dialog; 251251839Sbapt 252251839Sbapt data.min_value = min_value; 253251839Sbapt data.max_value = max_value; 254251839Sbapt 255251839Sbapt usable = (width - 2 - 4 * MARGIN); 256251839Sbapt ranges = max_value - min_value + 1; 257251839Sbapt 258251839Sbapt /* 259251839Sbapt * Center the number after allowing for its maximum number of digits. 260251839Sbapt */ 261251839Sbapt data.value_len = digits_of(max_value); 262251839Sbapt if (digits_of(min_value) > data.value_len) 263251839Sbapt data.value_len = digits_of(min_value); 264251839Sbapt data.value_x = (usable - data.value_len) / 2 + MARGIN; 265251839Sbapt data.value_col = data.value_len - 1; 266251839Sbapt 267251839Sbapt /* 268251839Sbapt * The slider is scaled, to try to use the width of the dialog. 269251839Sbapt */ 270251839Sbapt if (ranges > usable) { 271251839Sbapt data.slide_inc = (ranges + usable - 1) / usable; 272251839Sbapt data.slide_len = 1 + ranges / data.slide_inc; 273251839Sbapt } else if (ranges < usable) { 274251839Sbapt data.slide_inc = usable / ranges; 275251839Sbapt data.slide_len = ranges * data.slide_inc; 276251839Sbapt } else { 277251839Sbapt data.slide_inc = 1; 278251839Sbapt data.slide_len = usable; 279251839Sbapt } 280251839Sbapt data.slide_x = (usable - data.slide_len) / 2 + MARGIN + 2; 281251839Sbapt data.slide_y = height - 5; 282251839Sbapt 283251839Sbapt data.current = cur_value - 1; 284251839Sbapt 285251839Sbapt dlg_register_window(dialog, "rangebox", binding); 286251839Sbapt dlg_register_buttons(dialog, "rangebox", buttons); 287251839Sbapt 288251839Sbapt dlg_draw_box2(dialog, 0, 0, height, width, dialog_attr, border_attr, border2_attr); 289251839Sbapt dlg_mouse_setbase(xorg, yorg); 290251839Sbapt dlg_mouse_mkregion(data.slide_y - 1, data.slide_x - 1, 3, usable + 2, 'i'); 291251839Sbapt dlg_draw_box2(dialog, 292251839Sbapt height - 6, data.slide_x - MARGIN, 293251839Sbapt 2 + MARGIN, data.slide_len + 2 * MARGIN, 294251839Sbapt dialog_attr, 295251839Sbapt border_attr, 296251839Sbapt border2_attr); 297251839Sbapt dlg_draw_bottom_box2(dialog, border_attr, border2_attr, dialog_attr); 298251839Sbapt dlg_draw_title(dialog, title); 299251839Sbapt dlg_draw_helpline(dialog, FALSE); 300251839Sbapt 301251839Sbapt (void) wattrset(dialog, dialog_attr); 302251839Sbapt dlg_print_autowrap(dialog, prompt, height, width); 303251839Sbapt 304251839Sbapt dlg_trace_win(dialog); 305251839Sbapt while (result == DLG_EXIT_UNKNOWN) { 306251839Sbapt draw_value(&data, cur_value); 307251839Sbapt button = (state < 0) ? 0 : state; 308251839Sbapt dlg_draw_buttons(dialog, height - 2, 0, buttons, button, FALSE, width); 309251839Sbapt if (state < 0) { 310251839Sbapt data.value_col = data.value_len + state; 311251839Sbapt wmove(dialog, data.slide_y, data.value_x + data.value_col); 312251839Sbapt } 313251839Sbapt 314251839Sbapt key = dlg_mouse_wgetch(dialog, &fkey); 315251839Sbapt if (dlg_result_key(key, fkey, &result)) 316251839Sbapt break; 317251839Sbapt 318251839Sbapt if ((key2 = dlg_char_to_button(key, buttons)) >= 0) { 319251839Sbapt result = key2; 320251839Sbapt } else { 321251839Sbapt /* handle function-keys */ 322251839Sbapt if (fkey) { 323251839Sbapt switch (key) { 324251839Sbapt case DLGK_ENTER: 325251839Sbapt result = dlg_ok_buttoncode(button); 326251839Sbapt break; 327251839Sbapt case DLGK_FIELD_PREV: 328251839Sbapt if (state < 0 && state > -data.value_len) { 329251839Sbapt --state; 330251839Sbapt } else { 331251839Sbapt state = dlg_prev_ok_buttonindex(state, -data.value_len); 332251839Sbapt } 333251839Sbapt break; 334251839Sbapt case DLGK_FIELD_NEXT: 335251839Sbapt if (state < 0) { 336251839Sbapt ++state; 337251839Sbapt } else { 338251839Sbapt state = dlg_next_ok_buttonindex(state, -data.value_len); 339251839Sbapt } 340251839Sbapt break; 341251839Sbapt case DLGK_ITEM_FIRST: 342251839Sbapt cur_value = min_value; 343251839Sbapt break; 344251839Sbapt case DLGK_ITEM_LAST: 345251839Sbapt cur_value = max_value; 346251839Sbapt break; 347251839Sbapt case DLGK_ITEM_PREV: 348251839Sbapt if (state < 0) { 349251839Sbapt cur_value -= digit_of(&data); 350251839Sbapt } else { 351251839Sbapt cur_value -= 1; 352251839Sbapt } 353251839Sbapt if (cur_value < min_value) 354251839Sbapt cur_value = min_value; 355251839Sbapt break; 356251839Sbapt case DLGK_ITEM_NEXT: 357251839Sbapt if (state < 0) { 358251839Sbapt cur_value += digit_of(&data); 359251839Sbapt } else { 360251839Sbapt cur_value += 1; 361251839Sbapt } 362251839Sbapt if (cur_value > max_value) 363251839Sbapt cur_value = max_value; 364251839Sbapt break; 365251839Sbapt case DLGK_PAGE_PREV: 366251839Sbapt cur_value -= data.slide_inc; 367251839Sbapt if (cur_value < min_value) 368251839Sbapt cur_value = min_value; 369251839Sbapt break; 370251839Sbapt case DLGK_PAGE_NEXT: 371251839Sbapt cur_value += data.slide_inc; 372251839Sbapt if (cur_value > max_value) 373251839Sbapt cur_value = max_value; 374251839Sbapt break; 375251839Sbapt#ifdef KEY_RESIZE 376251839Sbapt case KEY_RESIZE: 377251839Sbapt /* reset data */ 378251839Sbapt height = old_height; 379251839Sbapt width = old_width; 380251839Sbapt /* repaint */ 381251839Sbapt dlg_clear(); 382251839Sbapt dlg_del_window(dialog); 383251839Sbapt refresh(); 384251839Sbapt dlg_mouse_free_regions(); 385251839Sbapt goto retry; 386251839Sbapt#endif 387251839Sbapt case DLGK_MOUSE('i'): 388251839Sbapt state = -data.value_len; 389251839Sbapt break; 390251839Sbapt default: 391251839Sbapt if (is_DLGK_MOUSE(key)) { 392251839Sbapt result = dlg_ok_buttoncode(key - M_EVENT); 393251839Sbapt if (result < 0) 394251839Sbapt result = DLG_EXIT_OK; 395251839Sbapt } 396251839Sbapt break; 397251839Sbapt } 398251839Sbapt } else if (isdigit(key) && state < 0) { 399251839Sbapt if (set_digit(&data, key)) { 400251839Sbapt cur_value = data.current; 401251839Sbapt data.current--; 402251839Sbapt } 403251839Sbapt } else { 404251839Sbapt beep(); 405251839Sbapt } 406251839Sbapt } 407251839Sbapt } 408251839Sbapt 409251839Sbapt sprintf(buffer, "%d", cur_value); 410251839Sbapt dlg_add_result(buffer); 411251839Sbapt dlg_add_separator(); 412251839Sbapt dlg_add_last_key(-1); 413251839Sbapt 414251839Sbapt dlg_del_window(dialog); 415251839Sbapt dlg_mouse_free_regions(); 416251839Sbapt free(prompt); 417251839Sbapt 418251839Sbapt return result; 419251839Sbapt} 420