xref: /freebsd/contrib/dialog/mousewget.c (revision 8df8b2d3e51d1b816201d8a1fe8bc29fe192e562)
1 /*
2  * $Id: mousewget.c,v 1.24 2017/01/31 00:27:21 tom Exp $
3  *
4  * mousewget.c -- mouse/wgetch support for dialog
5  *
6  * Copyright 2000-2016,2017   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 
24 #include <dialog.h>
25 #include <dlg_keys.h>
26 
27 static int
28 mouse_wgetch(WINDOW *win, int *fkey, bool ignore_errs)
29 {
30     int mouse_err = FALSE;
31     int key;
32 
33     do {
34 
35 	key = dlg_getc(win, fkey);
36 
37 #if USE_MOUSE
38 
39 	mouse_err = FALSE;
40 	if (key == KEY_MOUSE) {
41 	    MEVENT event;
42 	    mseRegion *p;
43 
44 	    if (getmouse(&event) != ERR) {
45 		DLG_TRACE(("# mouse-click abs %d,%d (rel %d,%d)\n",
46 			   event.y, event.x,
47 			   event.y - getbegy(win),
48 			   event.x - getbegx(win)));
49 		if ((p = dlg_mouse_region(event.y, event.x)) != 0) {
50 		    key = DLGK_MOUSE(p->code);
51 		} else if ((p = dlg_mouse_bigregion(event.y, event.x)) != 0) {
52 		    int x = event.x - p->x;
53 		    int y = event.y - p->y;
54 		    int row = (p->X - p->x) / p->step_x;
55 
56 		    key = -(p->code);
57 		    switch (p->mode) {
58 		    case 1:	/* index by lines */
59 			key += y;
60 			break;
61 		    case 2:	/* index by columns */
62 			key += (x / p->step_x);
63 			break;
64 		    default:
65 		    case 3:	/* index by cells */
66 			key += (x / p->step_x) + (y * row);
67 			break;
68 		    }
69 		} else {
70 		    (void) beep();
71 		    mouse_err = TRUE;
72 		}
73 	    } else {
74 		(void) beep();
75 		mouse_err = TRUE;
76 	    }
77 	}
78 #endif
79 
80     } while (ignore_errs && mouse_err);
81 
82     return key;
83 }
84 
85 int
86 dlg_mouse_wgetch(WINDOW *win, int *fkey)
87 {
88     return mouse_wgetch(win, fkey, TRUE);
89 }
90 
91 int
92 dlg_mouse_wgetch_nowait(WINDOW *win, int *fkey)
93 {
94     return mouse_wgetch(win, fkey, FALSE);
95 }
96