Removing some Windows-specific function prototypes from "freeglut_internal.h"
[freeglut] / src / mswin / freeglut_main_mswin.c
1 /*\r
2  * freeglut_main_mswin.c\r
3  *\r
4  * The Windows-specific mouse cursor related stuff.\r
5  *\r
6  * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved.\r
7  * Written by John F. Fay, <fayjf@sourceforge.net>\r
8  * Creation date: Sat Jan 21, 2012\r
9  *\r
10  * Permission is hereby granted, free of charge, to any person obtaining a\r
11  * copy of this software and associated documentation files (the "Software"),\r
12  * to deal in the Software without restriction, including without limitation\r
13  * the rights to use, copy, modify, merge, publish, distribute, sublicense,\r
14  * and/or sell copies of the Software, and to permit persons to whom the\r
15  * Software is furnished to do so, subject to the following conditions:\r
16  *\r
17  * The above copyright notice and this permission notice shall be included\r
18  * in all copies or substantial portions of the Software.\r
19  *\r
20  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS\r
21  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r
22  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL\r
23  * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r
24  * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r
25  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
26  */\r
27 \r
28 #include <GL/freeglut.h>\r
29 #include "freeglut_internal_mswin.h"\r
30 \r
31 \r
32 extern void fghRedrawWindow ( SFG_Window *window );\r
33 \r
34 extern void fgNewWGLCreateContext( SFG_Window* window );\r
35 extern GLboolean fgSetupPixelFormat( SFG_Window* window, GLboolean checkOnly,\r
36                                      unsigned char layer_type );\r
37 \r
38 #ifdef WM_TOUCH\r
39 typedef BOOL (WINAPI *pGetTouchInputInfo)(HTOUCHINPUT,UINT,PTOUCHINPUT,int);\r
40 typedef BOOL (WINAPI *pCloseTouchInputHandle)(HTOUCHINPUT);\r
41 static pGetTouchInputInfo fghGetTouchInputInfo = (pGetTouchInputInfo)0xDEADBEEF;\r
42 static pCloseTouchInputHandle fghCloseTouchInputHandle = (pCloseTouchInputHandle)0xDEADBEEF;\r
43 #endif\r
44 \r
45 /* \r
46  * Helper functions for getting client area from the window rect\r
47  * and the window rect from the client area given the style of the window\r
48  * (or a valid window pointer from which the style can be queried).\r
49  */\r
50 extern void fghComputeWindowRectFromClientArea_QueryWindow( const SFG_Window *window, RECT *clientRect, BOOL posIsOutside );\r
51 extern RECT fghGetClientArea                              ( const SFG_Window *window,                   BOOL wantPosOutside );\r
52 \r
53 \r
54 void fgPlatformReshapeWindow ( SFG_Window *window, int width, int height )\r
55 {\r
56     RECT windowRect;\r
57 \r
58     /*\r
59      * For windowed mode, get the current position of the\r
60      * window and resize taking the size of the frame\r
61      * decorations into account.\r
62      */\r
63 \r
64     /* "GetWindowRect" returns the pixel coordinates of the outside of the window */\r
65     GetWindowRect( window->Window.Handle, &windowRect );\r
66 \r
67     /* Create rect in FreeGLUT format, (X,Y) topleft outside window, WxH of client area */\r
68     windowRect.right    = windowRect.left+width;\r
69     windowRect.bottom   = windowRect.top+height;\r
70 \r
71     if (window->Parent == NULL)\r
72         /* get the window rect from this to feed to SetWindowPos, correct for window decorations */\r
73         fghComputeWindowRectFromClientArea_QueryWindow(window,&windowRect,TRUE);\r
74     else\r
75     {\r
76         /* correct rect for position client area of parent window\r
77          * (SetWindowPos input for child windows is in coordinates\r
78          * relative to the parent's client area).\r
79          * Child windows don't have decoration, so no need to correct\r
80          * for them.\r
81          */\r
82         RECT parentRect;\r
83         parentRect = fghGetClientArea( window->Parent, FALSE );\r
84         windowRect.left   -= parentRect.left;\r
85         windowRect.right  -= parentRect.left;\r
86         windowRect.top    -= parentRect.top;\r
87         windowRect.bottom -= parentRect.top;\r
88     }\r
89     \r
90     /* Do the actual resizing */\r
91     SetWindowPos( window->Window.Handle,\r
92                   HWND_TOP,\r
93                   windowRect.left, windowRect.top,\r
94                   windowRect.right - windowRect.left,\r
95                   windowRect.bottom- windowRect.top,\r
96                   SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING |\r
97                   SWP_NOZORDER\r
98     );\r
99 }\r
100 \r
101 \r
102 void fgPlatformDisplayWindow ( SFG_Window *window )\r
103 {\r
104     RedrawWindow(\r
105         window->Window.Handle, NULL, NULL,\r
106         RDW_NOERASE | RDW_INTERNALPAINT | RDW_INVALIDATE | RDW_UPDATENOW\r
107     );\r
108 }\r
109 \r
110 \r
111 void fgPlatformSleepForEvents( long msec )\r
112 {\r
113     MsgWaitForMultipleObjects( 0, NULL, FALSE, msec, QS_ALLINPUT );\r
114 }\r
115 \r
116 \r
117 void fgPlatformProcessSingleEvent ( void )\r
118 {\r
119     MSG stMsg;\r
120 \r
121     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" );\r
122 \r
123     while( PeekMessage( &stMsg, NULL, 0, 0, PM_NOREMOVE ) )\r
124     {\r
125         if( GetMessage( &stMsg, NULL, 0, 0 ) == 0 )\r
126         {\r
127             if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )\r
128             {\r
129                 fgDeinitialize( );\r
130                 exit( 0 );\r
131             }\r
132             else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )\r
133                 fgState.ExecState = GLUT_EXEC_STATE_STOP;\r
134 \r
135             return;\r
136         }\r
137 \r
138         TranslateMessage( &stMsg );\r
139         DispatchMessage( &stMsg );\r
140     }\r
141 }\r
142 \r
143 \r
144 \r
145 void fgPlatformMainLoopPreliminaryWork ( void )\r
146 {\r
147     SFG_Window *window = (SFG_Window *)fgStructure.Windows.First ;\r
148 \r
149     /*\r
150      * Processing before the main loop:  If there is a window which is open and\r
151      * which has a visibility callback, call it.  I know this is an ugly hack,\r
152      * but I'm not sure what else to do about it.  Ideally we should leave\r
153      * something uninitialized in the create window code and initialize it in\r
154      * the main loop, and have that initialization create a "WM_ACTIVATE"\r
155      * message.  Then we would put the visibility callback code in the\r
156      * "case WM_ACTIVATE" block below.         - John Fay -- 10/24/02\r
157      */\r
158     while( window )\r
159     {\r
160         if ( FETCH_WCB( *window, Visibility ) )\r
161         {\r
162             SFG_Window *current_window = fgStructure.CurrentWindow ;\r
163 \r
164             INVOKE_WCB( *window, Visibility, ( window->State.Visible ) );\r
165             fgSetWindow( current_window );\r
166         }\r
167 \r
168         window = (SFG_Window *)window->Node.Next ;\r
169     }\r
170 }\r
171 \r
172 \r
173 /*\r
174  * Determine a GLUT modifer mask based on MS-WINDOWS system info.\r
175  */\r
176 static int fgPlatformGetModifiers (void)\r
177 {\r
178     return\r
179         ( ( ( GetKeyState( VK_LSHIFT   ) < 0 ) ||\r
180             ( GetKeyState( VK_RSHIFT   ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |\r
181         ( ( ( GetKeyState( VK_LCONTROL ) < 0 ) ||\r
182             ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL  : 0 ) |\r
183         ( ( ( GetKeyState( VK_LMENU    ) < 0 ) ||\r
184             ( GetKeyState( VK_RMENU    ) < 0 )) ? GLUT_ACTIVE_ALT   : 0 );\r
185 }\r
186 \r
187 /*\r
188  * The window procedure for handling Win32 events\r
189  */\r
190 LRESULT CALLBACK fgPlatformWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam,\r
191                                        LPARAM lParam )\r
192 {\r
193     static unsigned char lControl = 0, rControl = 0, lShift = 0,\r
194                          rShift = 0, lAlt = 0, rAlt = 0;\r
195 \r
196     SFG_Window* window;\r
197     PAINTSTRUCT ps;\r
198     LRESULT lRet = 1;\r
199 \r
200     FREEGLUT_INTERNAL_ERROR_EXIT_IF_NOT_INITIALISED ( "Event Handler" ) ;\r
201 \r
202     window = fgWindowByHandle( hWnd );\r
203 \r
204     if ( ( window == NULL ) && ( uMsg != WM_CREATE ) )\r
205       return DefWindowProc( hWnd, uMsg, wParam, lParam );\r
206 \r
207     /* printf ( "Window %3d message <%04x> %12d %12d\n", window?window->ID:0,\r
208              uMsg, wParam, lParam ); */\r
209 \r
210     if ( window )\r
211     {\r
212       /* Checking for CTRL, ALT, and SHIFT key positions:  Key Down! */\r
213       if ( !lControl && GetAsyncKeyState ( VK_LCONTROL ) )\r
214       {\r
215           INVOKE_WCB    ( *window, Special,\r
216                         ( GLUT_KEY_CTRL_L, window->State.MouseX, window->State.MouseY )\r
217                       );\r
218 \r
219           lControl = 1;\r
220       }\r
221 \r
222       if ( !rControl && GetAsyncKeyState ( VK_RCONTROL ) )\r
223       {\r
224           INVOKE_WCB ( *window, Special,\r
225                        ( GLUT_KEY_CTRL_R, window->State.MouseX, window->State.MouseY )\r
226                      );\r
227 \r
228           rControl = 1;\r
229       }\r
230 \r
231       if ( !lShift && GetAsyncKeyState ( VK_LSHIFT ) )\r
232       {\r
233           INVOKE_WCB ( *window, Special,\r
234                        ( GLUT_KEY_SHIFT_L, window->State.MouseX, window->State.MouseY )\r
235                      );\r
236 \r
237           lShift = 1;\r
238       }\r
239 \r
240       if ( !rShift && GetAsyncKeyState ( VK_RSHIFT ) )\r
241       {\r
242           INVOKE_WCB ( *window, Special,\r
243                        ( GLUT_KEY_SHIFT_R, window->State.MouseX, window->State.MouseY )\r
244                      );\r
245 \r
246           rShift = 1;\r
247       }\r
248 \r
249       if ( !lAlt && GetAsyncKeyState ( VK_LMENU ) )\r
250       {\r
251           INVOKE_WCB ( *window, Special,\r
252                        ( GLUT_KEY_ALT_L, window->State.MouseX, window->State.MouseY )\r
253                      );\r
254 \r
255           lAlt = 1;\r
256       }\r
257 \r
258       if ( !rAlt && GetAsyncKeyState ( VK_RMENU ) )\r
259       {\r
260           INVOKE_WCB ( *window, Special,\r
261                        ( GLUT_KEY_ALT_R, window->State.MouseX, window->State.MouseY )\r
262                      );\r
263 \r
264           rAlt = 1;\r
265       }\r
266 \r
267       /* Checking for CTRL, ALT, and SHIFT key positions:  Key Up! */\r
268       if ( lControl && !GetAsyncKeyState ( VK_LCONTROL ) )\r
269       {\r
270           INVOKE_WCB ( *window, SpecialUp,\r
271                        ( GLUT_KEY_CTRL_L, window->State.MouseX, window->State.MouseY )\r
272                      );\r
273 \r
274           lControl = 0;\r
275       }\r
276 \r
277       if ( rControl && !GetAsyncKeyState ( VK_RCONTROL ) )\r
278       {\r
279           INVOKE_WCB ( *window, SpecialUp,\r
280                        ( GLUT_KEY_CTRL_R, window->State.MouseX, window->State.MouseY )\r
281                      );\r
282 \r
283           rControl = 0;\r
284       }\r
285 \r
286       if ( lShift && !GetAsyncKeyState ( VK_LSHIFT ) )\r
287       {\r
288           INVOKE_WCB ( *window, SpecialUp,\r
289                        ( GLUT_KEY_SHIFT_L, window->State.MouseX, window->State.MouseY )\r
290                      );\r
291 \r
292           lShift = 0;\r
293       }\r
294 \r
295       if ( rShift && !GetAsyncKeyState ( VK_RSHIFT ) )\r
296       {\r
297           INVOKE_WCB ( *window, SpecialUp,\r
298                        ( GLUT_KEY_SHIFT_R, window->State.MouseX, window->State.MouseY )\r
299                      );\r
300 \r
301           rShift = 0;\r
302       }\r
303 \r
304       if ( lAlt && !GetAsyncKeyState ( VK_LMENU ) )\r
305       {\r
306           INVOKE_WCB ( *window, SpecialUp,\r
307                        ( GLUT_KEY_ALT_L, window->State.MouseX, window->State.MouseY )\r
308                      );\r
309 \r
310           lAlt = 0;\r
311       }\r
312 \r
313       if ( rAlt && !GetAsyncKeyState ( VK_RMENU ) )\r
314       {\r
315           INVOKE_WCB ( *window, SpecialUp,\r
316                        ( GLUT_KEY_ALT_R, window->State.MouseX, window->State.MouseY )\r
317                      );\r
318 \r
319           rAlt = 0;\r
320       }\r
321     }\r
322 \r
323     switch( uMsg )\r
324     {\r
325     case WM_CREATE:\r
326         /* The window structure is passed as the creation structure parameter... */\r
327         window = (SFG_Window *) (((LPCREATESTRUCT) lParam)->lpCreateParams);\r
328         FREEGLUT_INTERNAL_ERROR_EXIT ( ( window != NULL ), "Cannot create window",\r
329                                        "fgPlatformWindowProc" );\r
330 \r
331         window->Window.Handle = hWnd;\r
332         window->Window.Device = GetDC( hWnd );\r
333         if( window->IsMenu )\r
334         {\r
335             unsigned int current_DisplayMode = fgState.DisplayMode;\r
336             fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH;\r
337 #if !defined(_WIN32_WCE)\r
338             fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );\r
339 #endif\r
340             fgState.DisplayMode = current_DisplayMode;\r
341 \r
342             if( fgStructure.MenuContext )\r
343                 wglMakeCurrent( window->Window.Device,\r
344                                 fgStructure.MenuContext->MContext\r
345                 );\r
346             else\r
347             {\r
348                 fgStructure.MenuContext =\r
349                     (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) );\r
350                 fgStructure.MenuContext->MContext =\r
351                     wglCreateContext( window->Window.Device );\r
352             }\r
353 \r
354             /* window->Window.Context = wglGetCurrentContext ();   */\r
355             window->Window.Context = wglCreateContext( window->Window.Device );\r
356         }\r
357         else\r
358         {\r
359 #if !defined(_WIN32_WCE)\r
360             fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );\r
361 #endif\r
362 \r
363             if( ! fgState.UseCurrentContext )\r
364                 window->Window.Context =\r
365                     wglCreateContext( window->Window.Device );\r
366             else\r
367             {\r
368                 window->Window.Context = wglGetCurrentContext( );\r
369                 if( ! window->Window.Context )\r
370                     window->Window.Context =\r
371                         wglCreateContext( window->Window.Device );\r
372             }\r
373 \r
374 #if !defined(_WIN32_WCE)\r
375             fgNewWGLCreateContext( window );\r
376 #endif\r
377         }\r
378 \r
379         window->State.NeedToResize = GL_TRUE;\r
380         /* if we used CW_USEDEFAULT (thats a negative value) for the size\r
381          * of the window, query the window now for the size at which it\r
382          * was created.\r
383          */\r
384         if( ( window->State.Width < 0 ) || ( window->State.Height < 0 ) )\r
385         {\r
386             SFG_Window *current_window = fgStructure.CurrentWindow;\r
387 \r
388             fgSetWindow( window );\r
389             window->State.Width = glutGet( GLUT_WINDOW_WIDTH );\r
390             window->State.Height = glutGet( GLUT_WINDOW_HEIGHT );\r
391             fgSetWindow( current_window );\r
392         }\r
393 \r
394         ReleaseDC( window->Window.Handle, window->Window.Device );\r
395 \r
396 #if defined(_WIN32_WCE)\r
397         /* Take over button handling */\r
398         {\r
399             HINSTANCE dxDllLib=LoadLibrary(_T("gx.dll"));\r
400             if (dxDllLib)\r
401             {\r
402                 GXGetDefaultKeys_=(GXGETDEFAULTKEYS)GetProcAddress(dxDllLib, _T("?GXGetDefaultKeys@@YA?AUGXKeyList@@H@Z"));\r
403                 GXOpenInput_=(GXOPENINPUT)GetProcAddress(dxDllLib, _T("?GXOpenInput@@YAHXZ"));\r
404             }\r
405 \r
406             if(GXOpenInput_)\r
407                 (*GXOpenInput_)();\r
408             if(GXGetDefaultKeys_)\r
409                 gxKeyList = (*GXGetDefaultKeys_)(GX_LANDSCAPEKEYS);\r
410         }\r
411 \r
412 #endif /* defined(_WIN32_WCE) */\r
413         break;\r
414 \r
415     case WM_SIZE:\r
416         /*\r
417          * If the window is visible, then it is the user manually resizing it.\r
418          * If it is not, then it is the system sending us a dummy resize with\r
419          * zero dimensions on a "glutIconifyWindow" call.\r
420          */\r
421         if( window->State.Visible )\r
422         {\r
423             window->State.NeedToResize = GL_TRUE;\r
424 #if defined(_WIN32_WCE)\r
425             window->State.Width  = HIWORD(lParam);\r
426             window->State.Height = LOWORD(lParam);\r
427 #else\r
428             window->State.Width  = LOWORD(lParam);\r
429             window->State.Height = HIWORD(lParam);\r
430 #endif /* defined(_WIN32_WCE) */\r
431         }\r
432 \r
433         break;\r
434 \r
435     case WM_SETFOCUS:\r
436 /*        printf("WM_SETFOCUS: %p\n", window ); */\r
437         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
438         INVOKE_WCB( *window, Entry, ( GLUT_ENTERED ) );\r
439         break;\r
440 \r
441     case WM_KILLFOCUS:\r
442 /*        printf("WM_KILLFOCUS: %p\n", window ); */\r
443         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
444         INVOKE_WCB( *window, Entry, ( GLUT_LEFT ) );\r
445 \r
446         if( window->IsMenu &&\r
447             window->ActiveMenu && window->ActiveMenu->IsActive )\r
448             fgUpdateMenuHighlight( window->ActiveMenu );\r
449 \r
450         break;\r
451 \r
452 #if 0\r
453     case WM_ACTIVATE:\r
454         if (LOWORD(wParam) != WA_INACTIVE)\r
455         {\r
456 /*            printf("WM_ACTIVATE: fgSetCursor( %p, %d)\n", window,\r
457                    window->State.Cursor ); */\r
458             fgSetCursor( window, window->State.Cursor );\r
459         }\r
460 \r
461         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
462         break;\r
463 #endif\r
464 \r
465     case WM_SETCURSOR:\r
466 /*      printf ( "Cursor event %x %x %x %x\n", window, window->State.Cursor, lParam, wParam ) ; */\r
467         if( LOWORD( lParam ) == HTCLIENT )\r
468             fgSetCursor ( window, window->State.Cursor ) ;\r
469         else\r
470             lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
471         break;\r
472 \r
473     case WM_SHOWWINDOW:\r
474         window->State.Visible = GL_TRUE;\r
475         window->State.Redisplay = GL_TRUE;\r
476         break;\r
477 \r
478     case WM_PAINT:\r
479         /* Turn on the visibility in case it was turned off somehow */\r
480         window->State.Visible = GL_TRUE;\r
481         BeginPaint( hWnd, &ps );\r
482         fghRedrawWindow( window );\r
483         EndPaint( hWnd, &ps );\r
484         break;\r
485 \r
486     case WM_CLOSE:\r
487         fgDestroyWindow ( window );\r
488         if ( fgState.ActionOnWindowClose != GLUT_ACTION_CONTINUE_EXECUTION )\r
489             PostQuitMessage(0);\r
490         break;\r
491 \r
492     case WM_DESTROY:\r
493         /*\r
494          * The window already got destroyed, so don't bother with it.\r
495          */\r
496         return 0;\r
497 \r
498     case WM_MOUSEMOVE:\r
499     {\r
500 #if defined(_WIN32_WCE)\r
501         window->State.MouseX = 320-HIWORD( lParam );\r
502         window->State.MouseY = LOWORD( lParam );\r
503 #else\r
504         window->State.MouseX = LOWORD( lParam );\r
505         window->State.MouseY = HIWORD( lParam );\r
506 #endif /* defined(_WIN32_WCE) */\r
507         /* Restrict to [-32768, 32767] to match X11 behaviour       */\r
508         /* See comment in "freeglut_developer" mailing list 10/4/04 */\r
509         if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;\r
510         if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;\r
511 \r
512         if ( window->ActiveMenu )\r
513         {\r
514             fgUpdateMenuHighlight( window->ActiveMenu );\r
515             break;\r
516         }\r
517         SetFocus(window->Window.Handle);\r
518 \r
519         fgState.Modifiers = fgPlatformGetModifiers( );\r
520 \r
521         if( ( wParam & MK_LBUTTON ) ||\r
522             ( wParam & MK_MBUTTON ) ||\r
523             ( wParam & MK_RBUTTON ) )\r
524             INVOKE_WCB( *window, Motion, ( window->State.MouseX,\r
525                                            window->State.MouseY ) );\r
526         else\r
527             INVOKE_WCB( *window, Passive, ( window->State.MouseX,\r
528                                             window->State.MouseY ) );\r
529 \r
530         fgState.Modifiers = INVALID_MODIFIERS;\r
531     }\r
532     break;\r
533 \r
534     case WM_LBUTTONDOWN:\r
535     case WM_MBUTTONDOWN:\r
536     case WM_RBUTTONDOWN:\r
537     case WM_LBUTTONUP:\r
538     case WM_MBUTTONUP:\r
539     case WM_RBUTTONUP:\r
540     {\r
541         GLboolean pressed = GL_TRUE;\r
542         int button;\r
543 \r
544 #if defined(_WIN32_WCE)\r
545         window->State.MouseX = 320-HIWORD( lParam );\r
546         window->State.MouseY = LOWORD( lParam );\r
547 #else\r
548         window->State.MouseX = LOWORD( lParam );\r
549         window->State.MouseY = HIWORD( lParam );\r
550 #endif /* defined(_WIN32_WCE) */\r
551 \r
552         /* Restrict to [-32768, 32767] to match X11 behaviour       */\r
553         /* See comment in "freeglut_developer" mailing list 10/4/04 */\r
554         if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;\r
555         if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;\r
556 \r
557         switch( uMsg )\r
558         {\r
559         case WM_LBUTTONDOWN:\r
560             pressed = GL_TRUE;\r
561             button = GLUT_LEFT_BUTTON;\r
562             break;\r
563         case WM_MBUTTONDOWN:\r
564             pressed = GL_TRUE;\r
565             button = GLUT_MIDDLE_BUTTON;\r
566             break;\r
567         case WM_RBUTTONDOWN:\r
568             pressed = GL_TRUE;\r
569             button = GLUT_RIGHT_BUTTON;\r
570             break;\r
571         case WM_LBUTTONUP:\r
572             pressed = GL_FALSE;\r
573             button = GLUT_LEFT_BUTTON;\r
574             break;\r
575         case WM_MBUTTONUP:\r
576             pressed = GL_FALSE;\r
577             button = GLUT_MIDDLE_BUTTON;\r
578             break;\r
579         case WM_RBUTTONUP:\r
580             pressed = GL_FALSE;\r
581             button = GLUT_RIGHT_BUTTON;\r
582             break;\r
583         default:\r
584             pressed = GL_FALSE;\r
585             button = -1;\r
586             break;\r
587         }\r
588 \r
589 #if !defined(_WIN32_WCE)\r
590         if( GetSystemMetrics( SM_SWAPBUTTON ) )\r
591         {\r
592             if( button == GLUT_LEFT_BUTTON )\r
593                 button = GLUT_RIGHT_BUTTON;\r
594             else\r
595                 if( button == GLUT_RIGHT_BUTTON )\r
596                     button = GLUT_LEFT_BUTTON;\r
597         }\r
598 #endif /* !defined(_WIN32_WCE) */\r
599 \r
600         if( button == -1 )\r
601             return DefWindowProc( hWnd, uMsg, lParam, wParam );\r
602 \r
603         /*\r
604          * Do not execute the application's mouse callback if a menu\r
605          * is hooked to this button.  In that case an appropriate\r
606          * private call should be generated.\r
607          */\r
608         if( fgCheckActiveMenu( window, button, pressed,\r
609                                window->State.MouseX, window->State.MouseY ) )\r
610             break;\r
611 \r
612         /* Set capture so that the window captures all the mouse messages */\r
613         /*\r
614          * XXX - Multiple button support:  Under X11, the mouse is not released\r
615          * XXX - from the window until all buttons have been released, even if the\r
616          * XXX - user presses a button in another window.  This will take more\r
617          * XXX - code changes than I am up to at the moment (10/5/04).  The present\r
618          * XXX - is a 90 percent solution.\r
619          */\r
620         if ( pressed == GL_TRUE )\r
621           SetCapture ( window->Window.Handle ) ;\r
622         else\r
623           ReleaseCapture () ;\r
624 \r
625         if( ! FETCH_WCB( *window, Mouse ) )\r
626             break;\r
627 \r
628         fgSetWindow( window );\r
629         fgState.Modifiers = fgPlatformGetModifiers( );\r
630 \r
631         INVOKE_WCB(\r
632             *window, Mouse,\r
633             ( button,\r
634               pressed ? GLUT_DOWN : GLUT_UP,\r
635               window->State.MouseX,\r
636               window->State.MouseY\r
637             )\r
638         );\r
639 \r
640         fgState.Modifiers = INVALID_MODIFIERS;\r
641     }\r
642     break;\r
643 \r
644     case 0x020a:\r
645         /* Should be WM_MOUSEWHEEL but my compiler doesn't recognize it */\r
646     {\r
647         int wheel_number = LOWORD( wParam );\r
648         short ticks = ( short )HIWORD( wParam );\r
649                 fgState.MouseWheelTicks += ticks;\r
650 \r
651         /*\r
652          * XXX Should use WHEEL_DELTA instead of 120\r
653          */\r
654                 if ( abs ( fgState.MouseWheelTicks ) > 120 )\r
655                 {\r
656                         int direction = ( fgState.MouseWheelTicks > 0 ) ? 1 : -1;\r
657 \r
658             if( ! FETCH_WCB( *window, MouseWheel ) &&\r
659                 ! FETCH_WCB( *window, Mouse ) )\r
660                 break;\r
661 \r
662             fgSetWindow( window );\r
663             fgState.Modifiers = fgPlatformGetModifiers( );\r
664 \r
665             /*\r
666              * XXX Should use WHEEL_DELTA instead of 120\r
667              */\r
668             while( abs ( fgState.MouseWheelTicks ) > 120 )\r
669                         {\r
670                 if( FETCH_WCB( *window, MouseWheel ) )\r
671                     INVOKE_WCB( *window, MouseWheel,\r
672                                 ( wheel_number,\r
673                                   direction,\r
674                                   window->State.MouseX,\r
675                                   window->State.MouseY\r
676                                 )\r
677                     );\r
678                 else  /* No mouse wheel, call the mouse button callback twice */\r
679                                 {\r
680                     /*\r
681                      * Map wheel zero to button 3 and 4; +1 to 3, -1 to 4\r
682                      *  "    "   one                     +1 to 5, -1 to 6, ...\r
683                      *\r
684                      * XXX The below assumes that you have no more than 3 mouse\r
685                      * XXX buttons.  Sorry.\r
686                      */\r
687                     int button = wheel_number * 2 + 3;\r
688                     if( direction < 0 )\r
689                         ++button;\r
690                     INVOKE_WCB( *window, Mouse,\r
691                                 ( button, GLUT_DOWN,\r
692                                   window->State.MouseX, window->State.MouseY )\r
693                     );\r
694                     INVOKE_WCB( *window, Mouse,\r
695                                 ( button, GLUT_UP,\r
696                                   window->State.MouseX, window->State.MouseY )\r
697                     );\r
698                                 }\r
699 \r
700                 /*\r
701                  * XXX Should use WHEEL_DELTA instead of 120\r
702                  */\r
703                                 fgState.MouseWheelTicks -= 120 * direction;\r
704                         }\r
705 \r
706             fgState.Modifiers = INVALID_MODIFIERS;\r
707                 }\r
708     }\r
709     break ;\r
710 \r
711     case WM_SYSKEYDOWN:\r
712     case WM_KEYDOWN:\r
713     {\r
714         int keypress = -1;\r
715         POINT mouse_pos ;\r
716 \r
717         if( ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE ) && (HIWORD(lParam) & KF_REPEAT) )\r
718             break;\r
719 \r
720         /*\r
721          * Remember the current modifiers state. This is done here in order\r
722          * to make sure the VK_DELETE keyboard callback is executed properly.\r
723          */\r
724         fgState.Modifiers = fgPlatformGetModifiers( );\r
725 \r
726         GetCursorPos( &mouse_pos );\r
727         ScreenToClient( window->Window.Handle, &mouse_pos );\r
728 \r
729         window->State.MouseX = mouse_pos.x;\r
730         window->State.MouseY = mouse_pos.y;\r
731 \r
732         /* Convert the Win32 keystroke codes to GLUTtish way */\r
733 #       define KEY(a,b) case a: keypress = b; break;\r
734 \r
735         switch( wParam )\r
736         {\r
737             KEY( VK_F1,     GLUT_KEY_F1        );\r
738             KEY( VK_F2,     GLUT_KEY_F2        );\r
739             KEY( VK_F3,     GLUT_KEY_F3        );\r
740             KEY( VK_F4,     GLUT_KEY_F4        );\r
741             KEY( VK_F5,     GLUT_KEY_F5        );\r
742             KEY( VK_F6,     GLUT_KEY_F6        );\r
743             KEY( VK_F7,     GLUT_KEY_F7        );\r
744             KEY( VK_F8,     GLUT_KEY_F8        );\r
745             KEY( VK_F9,     GLUT_KEY_F9        );\r
746             KEY( VK_F10,    GLUT_KEY_F10       );\r
747             KEY( VK_F11,    GLUT_KEY_F11       );\r
748             KEY( VK_F12,    GLUT_KEY_F12       );\r
749             KEY( VK_PRIOR,  GLUT_KEY_PAGE_UP   );\r
750             KEY( VK_NEXT,   GLUT_KEY_PAGE_DOWN );\r
751             KEY( VK_HOME,   GLUT_KEY_HOME      );\r
752             KEY( VK_END,    GLUT_KEY_END       );\r
753             KEY( VK_LEFT,   GLUT_KEY_LEFT      );\r
754             KEY( VK_UP,     GLUT_KEY_UP        );\r
755             KEY( VK_RIGHT,  GLUT_KEY_RIGHT     );\r
756             KEY( VK_DOWN,   GLUT_KEY_DOWN      );\r
757             KEY( VK_INSERT, GLUT_KEY_INSERT    );\r
758             KEY( VK_LCONTROL, GLUT_KEY_CTRL_L  );\r
759             KEY( VK_RCONTROL, GLUT_KEY_CTRL_R  );\r
760             KEY( VK_LSHIFT, GLUT_KEY_SHIFT_L   );\r
761             KEY( VK_RSHIFT, GLUT_KEY_SHIFT_R   );\r
762             KEY( VK_LMENU,  GLUT_KEY_ALT_L     );\r
763             KEY( VK_RMENU,  GLUT_KEY_ALT_R     );\r
764 \r
765         case VK_DELETE:\r
766             /* The delete key should be treated as an ASCII keypress: */\r
767             INVOKE_WCB( *window, Keyboard,\r
768                         ( 127, window->State.MouseX, window->State.MouseY )\r
769             );\r
770         }\r
771 \r
772 #if defined(_WIN32_WCE)\r
773         if(!(lParam & 0x40000000)) /* Prevent auto-repeat */\r
774         {\r
775             if(wParam==(unsigned)gxKeyList.vkRight)\r
776                 keypress = GLUT_KEY_RIGHT;\r
777             else if(wParam==(unsigned)gxKeyList.vkLeft)\r
778                 keypress = GLUT_KEY_LEFT;\r
779             else if(wParam==(unsigned)gxKeyList.vkUp)\r
780                 keypress = GLUT_KEY_UP;\r
781             else if(wParam==(unsigned)gxKeyList.vkDown)\r
782                 keypress = GLUT_KEY_DOWN;\r
783             else if(wParam==(unsigned)gxKeyList.vkA)\r
784                 keypress = GLUT_KEY_F1;\r
785             else if(wParam==(unsigned)gxKeyList.vkB)\r
786                 keypress = GLUT_KEY_F2;\r
787             else if(wParam==(unsigned)gxKeyList.vkC)\r
788                 keypress = GLUT_KEY_F3;\r
789             else if(wParam==(unsigned)gxKeyList.vkStart)\r
790                 keypress = GLUT_KEY_F4;\r
791         }\r
792 #endif\r
793 \r
794         if( keypress != -1 )\r
795             INVOKE_WCB( *window, Special,\r
796                         ( keypress,\r
797                           window->State.MouseX, window->State.MouseY )\r
798             );\r
799 \r
800         fgState.Modifiers = INVALID_MODIFIERS;\r
801     }\r
802     break;\r
803 \r
804     case WM_SYSKEYUP:\r
805     case WM_KEYUP:\r
806     {\r
807         int keypress = -1;\r
808         POINT mouse_pos;\r
809 \r
810         /*\r
811          * Remember the current modifiers state. This is done here in order\r
812          * to make sure the VK_DELETE keyboard callback is executed properly.\r
813          */\r
814         fgState.Modifiers = fgPlatformGetModifiers( );\r
815 \r
816         GetCursorPos( &mouse_pos );\r
817         ScreenToClient( window->Window.Handle, &mouse_pos );\r
818 \r
819         window->State.MouseX = mouse_pos.x;\r
820         window->State.MouseY = mouse_pos.y;\r
821 \r
822         /*\r
823          * Convert the Win32 keystroke codes to GLUTtish way.\r
824          * "KEY(a,b)" was defined under "WM_KEYDOWN"\r
825          */\r
826 \r
827         switch( wParam )\r
828         {\r
829             KEY( VK_F1,     GLUT_KEY_F1        );\r
830             KEY( VK_F2,     GLUT_KEY_F2        );\r
831             KEY( VK_F3,     GLUT_KEY_F3        );\r
832             KEY( VK_F4,     GLUT_KEY_F4        );\r
833             KEY( VK_F5,     GLUT_KEY_F5        );\r
834             KEY( VK_F6,     GLUT_KEY_F6        );\r
835             KEY( VK_F7,     GLUT_KEY_F7        );\r
836             KEY( VK_F8,     GLUT_KEY_F8        );\r
837             KEY( VK_F9,     GLUT_KEY_F9        );\r
838             KEY( VK_F10,    GLUT_KEY_F10       );\r
839             KEY( VK_F11,    GLUT_KEY_F11       );\r
840             KEY( VK_F12,    GLUT_KEY_F12       );\r
841             KEY( VK_PRIOR,  GLUT_KEY_PAGE_UP   );\r
842             KEY( VK_NEXT,   GLUT_KEY_PAGE_DOWN );\r
843             KEY( VK_HOME,   GLUT_KEY_HOME      );\r
844             KEY( VK_END,    GLUT_KEY_END       );\r
845             KEY( VK_LEFT,   GLUT_KEY_LEFT      );\r
846             KEY( VK_UP,     GLUT_KEY_UP        );\r
847             KEY( VK_RIGHT,  GLUT_KEY_RIGHT     );\r
848             KEY( VK_DOWN,   GLUT_KEY_DOWN      );\r
849             KEY( VK_INSERT, GLUT_KEY_INSERT    );\r
850             KEY( VK_LCONTROL, GLUT_KEY_CTRL_L  );\r
851             KEY( VK_RCONTROL, GLUT_KEY_CTRL_R  );\r
852             KEY( VK_LSHIFT, GLUT_KEY_SHIFT_L   );\r
853             KEY( VK_RSHIFT, GLUT_KEY_SHIFT_R   );\r
854             KEY( VK_LMENU,  GLUT_KEY_ALT_L     );\r
855             KEY( VK_RMENU,  GLUT_KEY_ALT_R     );\r
856 \r
857           case VK_DELETE:\r
858               /* The delete key should be treated as an ASCII keypress: */\r
859               INVOKE_WCB( *window, KeyboardUp,\r
860                           ( 127, window->State.MouseX, window->State.MouseY )\r
861               );\r
862               break;\r
863 \r
864         default:\r
865         {\r
866 #if !defined(_WIN32_WCE)\r
867             BYTE state[ 256 ];\r
868             WORD code[ 2 ];\r
869 \r
870             GetKeyboardState( state );\r
871 \r
872             if( ToAscii( (UINT)wParam, 0, state, code, 0 ) == 1 )\r
873                 wParam=code[ 0 ];\r
874 \r
875             INVOKE_WCB( *window, KeyboardUp,\r
876                         ( (char)wParam,\r
877                           window->State.MouseX, window->State.MouseY )\r
878             );\r
879 #endif /* !defined(_WIN32_WCE) */\r
880         }\r
881         }\r
882 \r
883         if( keypress != -1 )\r
884             INVOKE_WCB( *window, SpecialUp,\r
885                         ( keypress,\r
886                           window->State.MouseX, window->State.MouseY )\r
887             );\r
888 \r
889         fgState.Modifiers = INVALID_MODIFIERS;\r
890     }\r
891     break;\r
892 \r
893     case WM_SYSCHAR:\r
894     case WM_CHAR:\r
895     {\r
896       if( (fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE) && (HIWORD(lParam) & KF_REPEAT) )\r
897             break;\r
898 \r
899         fgState.Modifiers = fgPlatformGetModifiers( );\r
900         INVOKE_WCB( *window, Keyboard,\r
901                     ( (char)wParam,\r
902                       window->State.MouseX, window->State.MouseY )\r
903         );\r
904         fgState.Modifiers = INVALID_MODIFIERS;\r
905     }\r
906     break;\r
907 \r
908     case WM_CAPTURECHANGED:\r
909         /* User has finished resizing the window, force a redraw */\r
910         INVOKE_WCB( *window, Display, ( ) );\r
911 \r
912         /*lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); */\r
913         break;\r
914 \r
915         /* Other messages that I have seen and which are not handled already */\r
916     case WM_SETTEXT:  /* 0x000c */\r
917         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
918         /* Pass it on to "DefWindowProc" to set the window text */\r
919         break;\r
920 \r
921     case WM_GETTEXT:  /* 0x000d */\r
922         /* Ideally we would copy the title of the window into "lParam" */\r
923         /* strncpy ( (char *)lParam, "Window Title", wParam );\r
924            lRet = ( wParam > 12 ) ? 12 : wParam;  */\r
925         /* the number of characters copied */\r
926         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
927         break;\r
928 \r
929     case WM_GETTEXTLENGTH:  /* 0x000e */\r
930         /* Ideally we would get the length of the title of the window */\r
931         lRet = 12;\r
932         /* the number of characters in "Window Title\0" (see above) */\r
933         break;\r
934 \r
935     case WM_ERASEBKGND:  /* 0x0014 */\r
936         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
937         break;\r
938 \r
939 #if !defined(_WIN32_WCE)\r
940     case WM_SYNCPAINT:  /* 0x0088 */\r
941         /* Another window has moved, need to update this one */\r
942         window->State.Redisplay = GL_TRUE;\r
943         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
944         /* Help screen says this message must be passed to "DefWindowProc" */\r
945         break;\r
946 \r
947     case WM_NCPAINT:  /* 0x0085 */\r
948       /* Need to update the border of this window */\r
949         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
950         /* Pass it on to "DefWindowProc" to repaint a standard border */\r
951         break;\r
952 \r
953     case WM_SYSCOMMAND :  /* 0x0112 */\r
954         {\r
955           /*\r
956            * We have received a system command message.  Try to act on it.\r
957            * The commands are passed in through the "wParam" parameter:\r
958            * The least significant digit seems to be which edge of the window\r
959            * is being used for a resize event:\r
960            *     4  3  5\r
961            *     1     2\r
962            *     7  6  8\r
963            * Congratulations and thanks to Richard Rauch for figuring this out..\r
964            */\r
965             switch ( wParam & 0xfff0 )\r
966             {\r
967             case SC_SIZE       :\r
968                 break ;\r
969 \r
970             case SC_MOVE       :\r
971                 break ;\r
972 \r
973             case SC_MINIMIZE   :\r
974                 /* User has clicked on the "-" to minimize the window */\r
975                 /* Turn off the visibility */\r
976                 window->State.Visible = GL_FALSE ;\r
977 \r
978                 break ;\r
979 \r
980             case SC_MAXIMIZE   :\r
981                 break ;\r
982 \r
983             case SC_NEXTWINDOW :\r
984                 break ;\r
985 \r
986             case SC_PREVWINDOW :\r
987                 break ;\r
988 \r
989             case SC_CLOSE      :\r
990                 /* Followed very closely by a WM_CLOSE message */\r
991                 break ;\r
992 \r
993             case SC_VSCROLL    :\r
994                 break ;\r
995 \r
996             case SC_HSCROLL    :\r
997                 break ;\r
998 \r
999             case SC_MOUSEMENU  :\r
1000                 break ;\r
1001 \r
1002             case SC_KEYMENU    :\r
1003                 break ;\r
1004 \r
1005             case SC_ARRANGE    :\r
1006                 break ;\r
1007 \r
1008             case SC_RESTORE    :\r
1009                 break ;\r
1010 \r
1011             case SC_TASKLIST   :\r
1012                 break ;\r
1013 \r
1014             case SC_SCREENSAVE :\r
1015                 break ;\r
1016 \r
1017             case SC_HOTKEY     :\r
1018                 break ;\r
1019 \r
1020 #if(WINVER >= 0x0400)\r
1021             case SC_DEFAULT    :\r
1022                 break ;\r
1023 \r
1024             case SC_MONITORPOWER    :\r
1025                 break ;\r
1026 \r
1027             case SC_CONTEXTHELP    :\r
1028                 break ;\r
1029 #endif /* WINVER >= 0x0400 */\r
1030 \r
1031             default:\r
1032 #if _DEBUG\r
1033                 fgWarning( "Unknown wParam type 0x%x", wParam );\r
1034 #endif\r
1035                 break;\r
1036             }\r
1037         }\r
1038 #endif /* !defined(_WIN32_WCE) */\r
1039 \r
1040         /* We need to pass the message on to the operating system as well */\r
1041         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
1042         break;\r
1043 \r
1044 #ifdef WM_TOUCH\r
1045         /* handle multi-touch messages */\r
1046         case WM_TOUCH:\r
1047         {\r
1048                 unsigned int numInputs = (unsigned int)wParam;\r
1049                 unsigned int i = 0;\r
1050                 TOUCHINPUT* ti = (TOUCHINPUT*)malloc( sizeof(TOUCHINPUT)*numInputs);\r
1051 \r
1052                 if (fghGetTouchInputInfo == (pGetTouchInputInfo)0xDEADBEEF) {\r
1053                     fghGetTouchInputInfo = (pGetTouchInputInfo)GetProcAddress(GetModuleHandle("user32"),"GetTouchInputInfo");\r
1054                     fghCloseTouchInputHandle = (pCloseTouchInputHandle)GetProcAddress(GetModuleHandle("user32"),"CloseTouchInputHandle");\r
1055                 }\r
1056 \r
1057                 if (!fghGetTouchInputInfo) { \r
1058                         free( (void*)ti );\r
1059                         break;\r
1060                 }\r
1061 \r
1062                 if (fghGetTouchInputInfo( (HTOUCHINPUT)lParam, numInputs, ti, sizeof(TOUCHINPUT) )) {\r
1063                         /* Handle each contact point */\r
1064                         for (i = 0; i < numInputs; ++i ) {\r
1065 \r
1066                                 POINT tp;\r
1067                                 tp.x = TOUCH_COORD_TO_PIXEL(ti[i].x);\r
1068                                 tp.y = TOUCH_COORD_TO_PIXEL(ti[i].y);\r
1069                                 ScreenToClient( hWnd, &tp );\r
1070 \r
1071                                 ti[i].dwID = ti[i].dwID * 2;\r
1072 \r
1073                                 if (ti[i].dwFlags & TOUCHEVENTF_DOWN) {\r
1074                                         INVOKE_WCB( *window, MultiEntry,  ( ti[i].dwID, GLUT_ENTERED ) );\r
1075                                         INVOKE_WCB( *window, MultiButton, ( ti[i].dwID, tp.x, tp.y, 0, GLUT_DOWN ) );\r
1076                                 } else if (ti[i].dwFlags & TOUCHEVENTF_MOVE) {\r
1077                                         INVOKE_WCB( *window, MultiMotion, ( ti[i].dwID, tp.x, tp.y ) );\r
1078                                 } else if (ti[i].dwFlags & TOUCHEVENTF_UP)   { \r
1079                                         INVOKE_WCB( *window, MultiButton, ( ti[i].dwID, tp.x, tp.y, 0, GLUT_UP ) );\r
1080                                         INVOKE_WCB( *window, MultiEntry,  ( ti[i].dwID, GLUT_LEFT ) );\r
1081                                 }\r
1082                         }\r
1083                 }\r
1084                 fghCloseTouchInputHandle((HTOUCHINPUT)lParam);\r
1085                 free( (void*)ti );\r
1086                 lRet = 0; /*DefWindowProc( hWnd, uMsg, wParam, lParam );*/\r
1087                 break;\r
1088         }\r
1089 #endif\r
1090     default:\r
1091         /* Handle unhandled messages */\r
1092         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );\r
1093         break;\r
1094     }\r
1095 \r
1096     return lRet;\r
1097 }\r