Mercurial > hg > xemacs-beta

diff src/event-msw.c @ 355:182f72e8cd0d r21-1-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-7
author cvs
date Mon, 13 Aug 2007 10:56:21 +0200
parents 03446687b7cc
children 4711e16a8e49
line wrap: on
line diff
--- a/src/event-msw.c	Mon Aug 13 10:55:35 2007 +0200
+++ b/src/event-msw.c	Mon Aug 13 10:56:21 2007 +0200
@@ -2089,6 +2089,23 @@
       UNGCPRO;
       break;     
     }
+
+  case WM_MOUSEWHEEL:
+  {
+	  int keys = LOWORD (wParam);				/* Modifier key flags */
+	  int delta = (short) HIWORD (wParam);		/* Wheel rotation amount */
+      struct gcpro gcpro1, gcpro2;
+
+      if (mswindows_handle_mousewheel_event (mswindows_find_frame (hwnd), keys,  delta))
+	  {
+		  GCPRO2 (emacs_event, fobj);
+		  mswindows_pump_outstanding_events ();	/* Can GC */
+		  UNGCPRO;
+	  }
+	  else
+		  goto defproc;
+      break;     
+  }
 #endif
 
 #ifdef HAVE_MENUBARS