Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 12:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(msh_mousewheel): Declare.

Browse source 
(w32_read_socket): Check for mousewheel events.
This commit is contained in:
Geoff Voelker 1998-04-30 17:20:53 +00:00
parent 93fbe8b746
commit e7efd97e0f
1 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/w32term.c
View file

@ -55,6 +55,8 @@ Boston, MA 02111-1307, USA. */
#define min(x, y) (((x) < (y)) ? (x) : (y))
#define max(x, y) (((x) > (y)) ? (x) : (y))
extern unsigned int msh_mousewheel;
extern void free_frame_menubar ();
extern Lisp_Object Vwindow_system;
@ -3205,6 +3207,31 @@ w32_read_socket (sd, bufp, numchars, expected)
check_visibility = 1;
break;
default:
/* Check for messages registered at runtime. */
if (msg.msg.message == msh_mousewheel)
{
if (dpyinfo->grabbed && last_mouse_frame
&& FRAME_LIVE_P (last_mouse_frame))
f = last_mouse_frame;
else
f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
if (f)
{
if ((!dpyinfo->w32_focus_frame
|| f == dpyinfo->w32_focus_frame)
&& (numchars >= 1))
{
construct_mouse_wheel (bufp, &msg, f);
bufp++;
count++;
numchars--;
}
}
}
break;
}
}