Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
354:3729bef672e0 355:182f72e8cd0d
2087 SendMessage (hwndScrollBar, WM_CANCELMODE, 0, 0); 2087 SendMessage (hwndScrollBar, WM_CANCELMODE, 0, 0);
2088 } 2088 }
2089 UNGCPRO; 2089 UNGCPRO;
2090 break; 2090 break;
2091 } 2091 }
2092
2093 case WM_MOUSEWHEEL:
2094 {
2095 int keys = LOWORD (wParam); /* Modifier key flags */
2096 int delta = (short) HIWORD (wParam); /* Wheel rotation amount */
2097 struct gcpro gcpro1, gcpro2;
2098
2099 if (mswindows_handle_mousewheel_event (mswindows_find_frame (hwnd), keys, delta))
2100 {
2101 GCPRO2 (emacs_event, fobj);
2102 mswindows_pump_outstanding_events (); /* Can GC */
2103 UNGCPRO;
2104 }
2105 else
2106 goto defproc;
2107 break;
2108 }
2092 #endif 2109 #endif
2093 2110
2094 #ifdef HAVE_MENUBARS 2111 #ifdef HAVE_MENUBARS
2095 case WM_INITMENU: 2112 case WM_INITMENU:
2096 if (UNBOUNDP (mswindows_handle_wm_initmenu ( 2113 if (UNBOUNDP (mswindows_handle_wm_initmenu (