2 * $Id: mousewget.c,v 1.25 2019/07/25 00:06:38 tom Exp $
4 * mousewget.c -- mouse/wgetch support for dialog
6 * Copyright 2000-2017,2019 Thomas E. Dickey
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.
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.
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.
28 mouse_wgetch(WINDOW *win, int *fkey, bool ignore_errs)
30 int mouse_err = FALSE;
35 key = dlg_getc(win, fkey);
40 if (key == KEY_MOUSE) {
43 if (getmouse(&event) != ERR) {
46 DLG_TRACE(("# mouse-click abs %d,%d (rel %d,%d)\n",
48 event.y - getbegy(win),
49 event.x - getbegx(win)));
50 if ((p = dlg_mouse_region(event.y, event.x)) != 0) {
51 key = DLGK_MOUSE(p->code);
52 } else if ((p = dlg_mouse_bigregion(event.y, event.x)) != 0) {
53 int x = event.x - p->x;
54 int y = event.y - p->y;
55 int row = (p->X - p->x) / p->step_x;
59 case 1: /* index by lines */
62 case 2: /* index by columns */
63 key += (x / p->step_x);
66 case 3: /* index by cells */
67 key += (x / p->step_x) + (y * row);
81 } while (ignore_errs && mouse_err);
87 dlg_mouse_wgetch(WINDOW *win, int *fkey)
89 return mouse_wgetch(win, fkey, TRUE);
93 dlg_mouse_wgetch_nowait(WINDOW *win, int *fkey)
95 return mouse_wgetch(win, fkey, FALSE);