1 /*
2 * freeglut_main.c
3 *
4 * The windows message processing methods.
5 *
6 * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved.
7 * Written by Pawel W. Olszta, <olszta@sourceforge.net>
8 * Creation date: Fri Dec 3 1999
9 *
10 * Permission is hereby granted, free of charge, to any person obtaining a
11 * copy of this software and associated documentation files (the "Software"),
12 * to deal in the Software without restriction, including without limitation
13 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
14 * and/or sell copies of the Software, and to permit persons to whom the
15 * Software is furnished to do so, subject to the following conditions:
16 *
17 * The above copyright notice and this permission notice shall be included
18 * in all copies or substantial portions of the Software.
19 *
20 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
21 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
22 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
23 * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
24 * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
25 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
26 */
27
28 #include "freeglut.h"
29 #include "freeglut_internal.h"
30 #if HAVE_ERRNO
31 # include <errno.h>
32 #endif
33 #include <stdarg.h>
34 #if HAVE_VPRINTF
35 # define VFPRINTF(s,f,a) vfprintf((s),(f),(a))
36 #elif HAVE_DOPRNT
37 # define VFPRINTF(s,f,a) _doprnt((f),(a),(s))
38 #else
39 # define VFPRINTF(s,f,a)
40 #endif
41
42 #ifdef _WIN32_WCE
43
44 typedef struct GXDisplayProperties GXDisplayProperties;
45 typedef struct GXKeyList GXKeyList;
46 #include <gx.h>
47
48 typedef struct GXKeyList (*GXGETDEFAULTKEYS)(int);
49 typedef int (*GXOPENINPUT)();
50
51 GXGETDEFAULTKEYS GXGetDefaultKeys_ = NULL;
52 GXOPENINPUT GXOpenInput_ = NULL;
53
54 struct GXKeyList gxKeyList;
55
56 #endif /* _WIN32_WCE */
57
58 /*
59 * Try to get the maximum value allowed for ints, falling back to the minimum
60 * guaranteed by ISO C99 if there is no suitable header.
61 */
62 #if HAVE_LIMITS_H
63 # include <limits.h>
64 #endif
65 #ifndef INT_MAX
66 # define INT_MAX 32767
67 #endif
68
69 #ifndef MIN
70 # define MIN(a,b) (((a)<(b)) ? (a) : (b))
71 #endif
72
73
74 /*
75 * TODO BEFORE THE STABLE RELEASE:
76 *
77 * There are some issues concerning window redrawing under X11, and maybe
78 * some events are not handled. The Win32 version lacks some more features,
79 * but seems acceptable for not demanding purposes.
80 *
81 * Need to investigate why the X11 version breaks out with an error when
82 * closing a window (using the window manager, not glutDestroyWindow)...
83 */
84
85 /* -- PRIVATE FUNCTIONS ---------------------------------------------------- */
86
87 /*
88 * Handle a window configuration change. When no reshape
89 * callback is hooked, the viewport size is updated to
90 * match the new window size.
91 */
fghReshapeWindow(SFG_Window * window,int width,int height)92 static void fghReshapeWindow ( SFG_Window *window, int width, int height )
93 {
94 SFG_Window *current_window = fgStructure.CurrentWindow;
95
96 freeglut_return_if_fail( window != NULL );
97
98
99 #if TARGET_HOST_POSIX_X11
100
101 XResizeWindow( fgDisplay.Display, window->Window.Handle,
102 width, height );
103 XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
104
105 #elif TARGET_HOST_MS_WINDOWS && !defined(_WIN32_WCE)
106 {
107 RECT winRect;
108 int x, y, w, h;
109
110 /*
111 * For windowed mode, get the current position of the
112 * window and resize taking the size of the frame
113 * decorations into account.
114 */
115
116 /* "GetWindowRect" returns the pixel coordinates of the outside of the window */
117 GetWindowRect( window->Window.Handle, &winRect );
118 x = winRect.left;
119 y = winRect.top;
120 w = width;
121 h = height;
122
123 if ( window->Parent == NULL )
124 {
125 if ( ! window->IsMenu && (window != fgStructure.GameModeWindow) )
126 {
127 w += GetSystemMetrics( SM_CXSIZEFRAME ) * 2;
128 h += GetSystemMetrics( SM_CYSIZEFRAME ) * 2 +
129 GetSystemMetrics( SM_CYCAPTION );
130 }
131 }
132 else
133 {
134 RECT parentRect;
135 GetWindowRect( window->Parent->Window.Handle, &parentRect );
136 x -= parentRect.left + GetSystemMetrics( SM_CXSIZEFRAME ) * 2;
137 y -= parentRect.top + GetSystemMetrics( SM_CYSIZEFRAME ) * 2 +
138 GetSystemMetrics( SM_CYCAPTION );
139 }
140
141 /*
142 * SWP_NOACTIVATE Do not activate the window
143 * SWP_NOOWNERZORDER Do not change position in z-order
144 * SWP_NOSENDCHANGING Supress WM_WINDOWPOSCHANGING message
145 * SWP_NOZORDER Retains the current Z order (ignore 2nd param)
146 */
147
148 SetWindowPos( window->Window.Handle,
149 HWND_TOP,
150 x, y, w, h,
151 SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING |
152 SWP_NOZORDER
153 );
154 }
155 #endif
156
157 /*
158 * XXX Should update {window->State.OldWidth, window->State.OldHeight}
159 * XXX to keep in lockstep with POSIX_X11 code.
160 */
161 if( FETCH_WCB( *window, Reshape ) )
162 INVOKE_WCB( *window, Reshape, ( width, height ) );
163 else
164 {
165 fgSetWindow( window );
166 glViewport( 0, 0, width, height );
167 }
168
169 /*
170 * Force a window redraw. In Windows at least this is only a partial
171 * solution: if the window is increasing in size in either dimension,
172 * the already-drawn part does not get drawn again and things look funny.
173 * But without this we get this bad behaviour whenever we resize the
174 * window.
175 */
176 window->State.Redisplay = GL_TRUE;
177
178 if( window->IsMenu )
179 fgSetWindow( current_window );
180 }
181
182 /*
183 * Calls a window's redraw method. This is used when
184 * a redraw is forced by the incoming window messages.
185 */
fghRedrawWindow(SFG_Window * window)186 static void fghRedrawWindow ( SFG_Window *window )
187 {
188 SFG_Window *current_window = fgStructure.CurrentWindow;
189
190 freeglut_return_if_fail( window );
191 freeglut_return_if_fail( FETCH_WCB ( *window, Display ) );
192
193 window->State.Redisplay = GL_FALSE;
194
195 freeglut_return_if_fail( window->State.Visible );
196
197 fgSetWindow( window );
198
199 if( window->State.NeedToResize )
200 {
201 fghReshapeWindow(
202 window,
203 window->State.Width,
204 window->State.Height
205 );
206
207 window->State.NeedToResize = GL_FALSE;
208 }
209
210 INVOKE_WCB( *window, Display, ( ) );
211
212 fgSetWindow( current_window );
213 }
214
215 /*
216 * A static helper function to execute display callback for a window
217 */
fghcbDisplayWindow(SFG_Window * window,SFG_Enumerator * enumerator)218 static void fghcbDisplayWindow( SFG_Window *window,
219 SFG_Enumerator *enumerator )
220 {
221 if( window->State.Redisplay &&
222 window->State.Visible )
223 {
224 window->State.Redisplay = GL_FALSE;
225
226 #if TARGET_HOST_POSIX_X11
227 fghRedrawWindow ( window ) ;
228 #elif TARGET_HOST_MS_WINDOWS
229 RedrawWindow(
230 window->Window.Handle, NULL, NULL,
231 RDW_NOERASE | RDW_INTERNALPAINT | RDW_INVALIDATE | RDW_UPDATENOW
232 );
233 #endif
234 }
235
236 fgEnumSubWindows( window, fghcbDisplayWindow, enumerator );
237 }
238
239 /*
240 * Make all windows perform a display call
241 */
fghDisplayAll(void)242 static void fghDisplayAll( void )
243 {
244 SFG_Enumerator enumerator;
245
246 enumerator.found = GL_FALSE;
247 enumerator.data = NULL;
248
249 fgEnumWindows( fghcbDisplayWindow, &enumerator );
250 }
251
252 /*
253 * Window enumerator callback to check for the joystick polling code
254 */
fghcbCheckJoystickPolls(SFG_Window * window,SFG_Enumerator * enumerator)255 static void fghcbCheckJoystickPolls( SFG_Window *window,
256 SFG_Enumerator *enumerator )
257 {
258 long int checkTime = fgElapsedTime( );
259
260 if( window->State.JoystickLastPoll + window->State.JoystickPollRate <=
261 checkTime )
262 {
263 #if !defined(_WIN32_WCE)
264 fgJoystickPollWindow( window );
265 #endif /* !defined(_WIN32_WCE) */
266 window->State.JoystickLastPoll = checkTime;
267 }
268
269 fgEnumSubWindows( window, fghcbCheckJoystickPolls, enumerator );
270 }
271
272 /*
273 * Check all windows for joystick polling
274 */
fghCheckJoystickPolls(void)275 static void fghCheckJoystickPolls( void )
276 {
277 SFG_Enumerator enumerator;
278
279 enumerator.found = GL_FALSE;
280 enumerator.data = NULL;
281
282 fgEnumWindows( fghcbCheckJoystickPolls, &enumerator );
283 }
284
285 /*
286 * Check the global timers
287 */
fghCheckTimers(void)288 static void fghCheckTimers( void )
289 {
290 long checkTime = fgElapsedTime( );
291
292 while( fgState.Timers.First )
293 {
294 SFG_Timer *timer = fgState.Timers.First;
295
296 if( timer->TriggerTime > checkTime )
297 break;
298
299 fgListRemove( &fgState.Timers, &timer->Node );
300 fgListAppend( &fgState.FreeTimers, &timer->Node );
301
302 timer->Callback( timer->ID );
303 }
304 }
305
306
307 /* Platform-dependent time in milliseconds, as an unsigned 32-bit integer.
308 * This value wraps every 49.7 days, but integer overflows cancel
309 * when subtracting an initial start time, unless the total time exceeds
310 * 32-bit, where the GLUT API return value is also overflowed.
311 */
fgSystemTime(void)312 unsigned long fgSystemTime(void) {
313 #if TARGET_HOST_SOLARIS || HAVE_GETTIMEOFDAY
314 struct timeval now;
315 gettimeofday( &now, NULL );
316 return now.tv_usec/1000 + now.tv_sec*1000;
317 #elif TARGET_HOST_MS_WINDOWS
318 # if defined(_WIN32_WCE)
319 return GetTickCount();
320 # else
321 return timeGetTime();
322 # endif
323 #endif
324 }
325
326 /*
327 * Elapsed Time
328 */
fgElapsedTime(void)329 long fgElapsedTime( void )
330 {
331 return (long) (fgSystemTime() - fgState.Time);
332 }
333
334 /*
335 * Error Messages.
336 */
fgError(const char * fmt,...)337 void fgError( const char *fmt, ... )
338 {
339 va_list ap;
340
341 va_start( ap, fmt );
342
343 fprintf( stderr, "freeglut ");
344 if( fgState.ProgramName )
345 fprintf( stderr, "(%s): ", fgState.ProgramName );
346 VFPRINTF( stderr, fmt, ap );
347 fprintf( stderr, "\n" );
348
349 va_end( ap );
350
351 if ( fgState.Initialised )
352 fgDeinitialize ();
353
354 exit( 1 );
355 }
356
fgWarning(const char * fmt,...)357 void fgWarning( const char *fmt, ... )
358 {
359 va_list ap;
360
361 va_start( ap, fmt );
362
363 fprintf( stderr, "freeglut ");
364 if( fgState.ProgramName )
365 fprintf( stderr, "(%s): ", fgState.ProgramName );
366 VFPRINTF( stderr, fmt, ap );
367 fprintf( stderr, "\n" );
368
369 va_end( ap );
370 }
371
372 /*
373 * Indicates whether Joystick events are being used by ANY window.
374 *
375 * The current mechanism is to walk all of the windows and ask if
376 * there is a joystick callback. We have a short-circuit early
377 * return if we find any joystick handler registered.
378 *
379 * The real way to do this is to make use of the glutTimer() API
380 * to more cleanly re-implement the joystick API. Then, this code
381 * and all other "joystick timer" code can be yanked.
382 *
383 */
fghCheckJoystickCallback(SFG_Window * w,SFG_Enumerator * e)384 static void fghCheckJoystickCallback( SFG_Window* w, SFG_Enumerator* e)
385 {
386 if( FETCH_WCB( *w, Joystick ) )
387 {
388 e->found = GL_TRUE;
389 e->data = w;
390 }
391 fgEnumSubWindows( w, fghCheckJoystickCallback, e );
392 }
fghHaveJoystick(void)393 static int fghHaveJoystick( void )
394 {
395 SFG_Enumerator enumerator;
396
397 enumerator.found = GL_FALSE;
398 enumerator.data = NULL;
399 fgEnumWindows( fghCheckJoystickCallback, &enumerator );
400 return !!enumerator.data;
401 }
fghHavePendingRedisplaysCallback(SFG_Window * w,SFG_Enumerator * e)402 static void fghHavePendingRedisplaysCallback( SFG_Window* w, SFG_Enumerator* e)
403 {
404 if( w->State.Redisplay && w->State.Visible )
405 {
406 e->found = GL_TRUE;
407 e->data = w;
408 }
409 fgEnumSubWindows( w, fghHavePendingRedisplaysCallback, e );
410 }
fghHavePendingRedisplays(void)411 static int fghHavePendingRedisplays (void)
412 {
413 SFG_Enumerator enumerator;
414
415 enumerator.found = GL_FALSE;
416 enumerator.data = NULL;
417 fgEnumWindows( fghHavePendingRedisplaysCallback, &enumerator );
418 return !!enumerator.data;
419 }
420 /*
421 * Returns the number of GLUT ticks (milliseconds) till the next timer event.
422 */
fghNextTimer(void)423 static long fghNextTimer( void )
424 {
425 long ret = INT_MAX;
426 SFG_Timer *timer = fgState.Timers.First;
427
428 if( timer )
429 ret = timer->TriggerTime - fgElapsedTime();
430 if( ret < 0 )
431 ret = 0;
432
433 return ret;
434 }
435 /*
436 * Does the magic required to relinquish the CPU until something interesting
437 * happens.
438 */
fghSleepForEvents(void)439 static void fghSleepForEvents( void )
440 {
441 long msec;
442
443 if( fgState.IdleCallback || fghHavePendingRedisplays( ) )
444 return;
445
446 msec = fghNextTimer( );
447 /* XXX Use GLUT timers for joysticks... */
448 /* XXX Dumb; forces granularity to .01sec */
449 if( fghHaveJoystick( ) && ( msec > 10 ) )
450 msec = 10;
451
452 #if TARGET_HOST_POSIX_X11
453 /*
454 * Possibly due to aggressive use of XFlush() and friends,
455 * it is possible to have our socket drained but still have
456 * unprocessed events. (Or, this may just be normal with
457 * X, anyway?) We do non-trivial processing of X events
458 * after the event-reading loop, in any case, so we
459 * need to allow that we may have an empty socket but non-
460 * empty event queue.
461 */
462 if( ! XPending( fgDisplay.Display ) )
463 {
464 fd_set fdset;
465 int err;
466 int socket;
467 struct timeval wait;
468
469 socket = ConnectionNumber( fgDisplay.Display );
470 FD_ZERO( &fdset );
471 FD_SET( socket, &fdset );
472 wait.tv_sec = msec / 1000;
473 wait.tv_usec = (msec % 1000) * 1000;
474 err = select( socket+1, &fdset, NULL, NULL, &wait );
475
476 #if HAVE_ERRNO
477 if( ( -1 == err ) && ( errno != EINTR ) )
478 fgWarning ( "freeglut select() error: %d", errno );
479 #endif
480 }
481 #elif TARGET_HOST_MS_WINDOWS
482 MsgWaitForMultipleObjects( 0, NULL, FALSE, msec, QS_ALLINPUT );
483 #endif
484 }
485
486 #if TARGET_HOST_POSIX_X11
487 /*
488 * Returns GLUT modifier mask for the state field of an X11 event.
489 */
fghGetXModifiers(int state)490 static int fghGetXModifiers( int state )
491 {
492 int ret = 0;
493
494 if( state & ( ShiftMask | LockMask ) )
495 ret |= GLUT_ACTIVE_SHIFT;
496 if( state & ControlMask )
497 ret |= GLUT_ACTIVE_CTRL;
498 if( state & Mod1Mask )
499 ret |= GLUT_ACTIVE_ALT;
500
501 return ret;
502 }
503 #endif
504
505
506 #if TARGET_HOST_POSIX_X11 && _DEBUG
507
fghTypeToString(int type)508 static const char* fghTypeToString( int type )
509 {
510 switch( type ) {
511 case KeyPress: return "KeyPress";
512 case KeyRelease: return "KeyRelease";
513 case ButtonPress: return "ButtonPress";
514 case ButtonRelease: return "ButtonRelease";
515 case MotionNotify: return "MotionNotify";
516 case EnterNotify: return "EnterNotify";
517 case LeaveNotify: return "LeaveNotify";
518 case FocusIn: return "FocusIn";
519 case FocusOut: return "FocusOut";
520 case KeymapNotify: return "KeymapNotify";
521 case Expose: return "Expose";
522 case GraphicsExpose: return "GraphicsExpose";
523 case NoExpose: return "NoExpose";
524 case VisibilityNotify: return "VisibilityNotify";
525 case CreateNotify: return "CreateNotify";
526 case DestroyNotify: return "DestroyNotify";
527 case UnmapNotify: return "UnmapNotify";
528 case MapNotify: return "MapNotify";
529 case MapRequest: return "MapRequest";
530 case ReparentNotify: return "ReparentNotify";
531 case ConfigureNotify: return "ConfigureNotify";
532 case ConfigureRequest: return "ConfigureRequest";
533 case GravityNotify: return "GravityNotify";
534 case ResizeRequest: return "ResizeRequest";
535 case CirculateNotify: return "CirculateNotify";
536 case CirculateRequest: return "CirculateRequest";
537 case PropertyNotify: return "PropertyNotify";
538 case SelectionClear: return "SelectionClear";
539 case SelectionRequest: return "SelectionRequest";
540 case SelectionNotify: return "SelectionNotify";
541 case ColormapNotify: return "ColormapNotify";
542 case ClientMessage: return "ClientMessage";
543 case MappingNotify: return "MappingNotify";
544 default: return "UNKNOWN";
545 }
546 }
547
fghBoolToString(Bool b)548 static const char* fghBoolToString( Bool b )
549 {
550 return b == False ? "False" : "True";
551 }
552
fghNotifyHintToString(char is_hint)553 static const char* fghNotifyHintToString( char is_hint )
554 {
555 switch( is_hint ) {
556 case NotifyNormal: return "NotifyNormal";
557 case NotifyHint: return "NotifyHint";
558 default: return "UNKNOWN";
559 }
560 }
561
fghNotifyModeToString(int mode)562 static const char* fghNotifyModeToString( int mode )
563 {
564 switch( mode ) {
565 case NotifyNormal: return "NotifyNormal";
566 case NotifyGrab: return "NotifyGrab";
567 case NotifyUngrab: return "NotifyUngrab";
568 case NotifyWhileGrabbed: return "NotifyWhileGrabbed";
569 default: return "UNKNOWN";
570 }
571 }
572
fghNotifyDetailToString(int detail)573 static const char* fghNotifyDetailToString( int detail )
574 {
575 switch( detail ) {
576 case NotifyAncestor: return "NotifyAncestor";
577 case NotifyVirtual: return "NotifyVirtual";
578 case NotifyInferior: return "NotifyInferior";
579 case NotifyNonlinear: return "NotifyNonlinear";
580 case NotifyNonlinearVirtual: return "NotifyNonlinearVirtual";
581 case NotifyPointer: return "NotifyPointer";
582 case NotifyPointerRoot: return "NotifyPointerRoot";
583 case NotifyDetailNone: return "NotifyDetailNone";
584 default: return "UNKNOWN";
585 }
586 }
587
fghVisibilityToString(int state)588 static const char* fghVisibilityToString( int state ) {
589 switch( state ) {
590 case VisibilityUnobscured: return "VisibilityUnobscured";
591 case VisibilityPartiallyObscured: return "VisibilityPartiallyObscured";
592 case VisibilityFullyObscured: return "VisibilityFullyObscured";
593 default: return "UNKNOWN";
594 }
595 }
596
fghConfigureDetailToString(int detail)597 static const char* fghConfigureDetailToString( int detail )
598 {
599 switch( detail ) {
600 case Above: return "Above";
601 case Below: return "Below";
602 case TopIf: return "TopIf";
603 case BottomIf: return "BottomIf";
604 case Opposite: return "Opposite";
605 default: return "UNKNOWN";
606 }
607 }
608
fghPlaceToString(int place)609 static const char* fghPlaceToString( int place )
610 {
611 switch( place ) {
612 case PlaceOnTop: return "PlaceOnTop";
613 case PlaceOnBottom: return "PlaceOnBottom";
614 default: return "UNKNOWN";
615 }
616 }
617
fghMappingRequestToString(int request)618 static const char* fghMappingRequestToString( int request )
619 {
620 switch( request ) {
621 case MappingModifier: return "MappingModifier";
622 case MappingKeyboard: return "MappingKeyboard";
623 case MappingPointer: return "MappingPointer";
624 default: return "UNKNOWN";
625 }
626 }
627
fghPropertyStateToString(int state)628 static const char* fghPropertyStateToString( int state )
629 {
630 switch( state ) {
631 case PropertyNewValue: return "PropertyNewValue";
632 case PropertyDelete: return "PropertyDelete";
633 default: return "UNKNOWN";
634 }
635 }
636
fghColormapStateToString(int state)637 static const char* fghColormapStateToString( int state )
638 {
639 switch( state ) {
640 case ColormapUninstalled: return "ColormapUninstalled";
641 case ColormapInstalled: return "ColormapInstalled";
642 default: return "UNKNOWN";
643 }
644 }
645
fghPrintEvent(XEvent * event)646 static void fghPrintEvent( XEvent *event )
647 {
648 switch( event->type ) {
649
650 case KeyPress:
651 case KeyRelease: {
652 XKeyEvent *e = &event->xkey;
653 fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
654 "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
655 "keycode=%u, same_screen=%s", fghTypeToString( e->type ),
656 e->window, e->root, e->subwindow, (unsigned long)e->time,
657 e->x, e->y, e->x_root, e->y_root, e->state, e->keycode,
658 fghBoolToString( e->same_screen ) );
659 break;
660 }
661
662 case ButtonPress:
663 case ButtonRelease: {
664 XButtonEvent *e = &event->xbutton;
665 fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
666 "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
667 "button=%u, same_screen=%d", fghTypeToString( e->type ),
668 e->window, e->root, e->subwindow, (unsigned long)e->time,
669 e->x, e->y, e->x_root, e->y_root, e->state, e->button,
670 fghBoolToString( e->same_screen ) );
671 break;
672 }
673
674 case MotionNotify: {
675 XMotionEvent *e = &event->xmotion;
676 fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
677 "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
678 "is_hint=%s, same_screen=%d", fghTypeToString( e->type ),
679 e->window, e->root, e->subwindow, (unsigned long)e->time,
680 e->x, e->y, e->x_root, e->y_root, e->state,
681 fghNotifyHintToString( e->is_hint ),
682 fghBoolToString( e->same_screen ) );
683 break;
684 }
685
686 case EnterNotify:
687 case LeaveNotify: {
688 XCrossingEvent *e = &event->xcrossing;
689 fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
690 "(x,y)=(%d,%d), mode=%s, detail=%s, same_screen=%d, "
691 "focus=%d, state=0x%x", fghTypeToString( e->type ),
692 e->window, e->root, e->subwindow, (unsigned long)e->time,
693 e->x, e->y, fghNotifyModeToString( e->mode ),
694 fghNotifyDetailToString( e->detail ), (int)e->same_screen,
695 (int)e->focus, e->state );
696 break;
697 }
698
699 case FocusIn:
700 case FocusOut: {
701 XFocusChangeEvent *e = &event->xfocus;
702 fgWarning( "%s: window=0x%x, mode=%s, detail=%s",
703 fghTypeToString( e->type ), e->window,
704 fghNotifyModeToString( e->mode ),
705 fghNotifyDetailToString( e->detail ) );
706 break;
707 }
708
709 case KeymapNotify: {
710 XKeymapEvent *e = &event->xkeymap;
711 char buf[32 * 2 + 1];
712 int i;
713 for ( i = 0; i < 32; i++ ) {
714 snprintf( &buf[ i * 2 ], sizeof( buf ) - i * 2,
715 "%02x", e->key_vector[ i ] );
716 }
717 buf[ i ] = '\0';
718 fgWarning( "%s: window=0x%x, %s", fghTypeToString( e->type ), e->window,
719 buf );
720 break;
721 }
722
723 case Expose: {
724 XExposeEvent *e = &event->xexpose;
725 fgWarning( "%s: window=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), "
726 "count=%d", fghTypeToString( e->type ), e->window, e->x,
727 e->y, e->width, e->height, e->count );
728 break;
729 }
730
731 case GraphicsExpose: {
732 XGraphicsExposeEvent *e = &event->xgraphicsexpose;
733 fgWarning( "%s: drawable=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), "
734 "count=%d, (major_code,minor_code)=(%d,%d)",
735 fghTypeToString( e->type ), e->drawable, e->x, e->y,
736 e->width, e->height, e->count, e->major_code,
737 e->minor_code );
738 break;
739 }
740
741 case NoExpose: {
742 XNoExposeEvent *e = &event->xnoexpose;
743 fgWarning( "%s: drawable=0x%x, (major_code,minor_code)=(%d,%d)",
744 fghTypeToString( e->type ), e->drawable, e->major_code,
745 e->minor_code );
746 break;
747 }
748
749 case VisibilityNotify: {
750 XVisibilityEvent *e = &event->xvisibility;
751 fgWarning( "%s: window=0x%x, state=%s", fghTypeToString( e->type ),
752 e->window, fghVisibilityToString( e->state) );
753 break;
754 }
755
756 case CreateNotify: {
757 XCreateWindowEvent *e = &event->xcreatewindow;
758 fgWarning( "%s: (x,y)=(%d,%d), (width,height)=(%d,%d), border_width=%d, "
759 "window=0x%x, override_redirect=%s",
760 fghTypeToString( e->type ), e->x, e->y, e->width, e->height,
761 e->border_width, e->window,
762 fghBoolToString( e->override_redirect ) );
763 break;
764 }
765
766 case DestroyNotify: {
767 XDestroyWindowEvent *e = &event->xdestroywindow;
768 fgWarning( "%s: event=0x%x, window=0x%x",
769 fghTypeToString( e->type ), e->event, e->window );
770 break;
771 }
772
773 case UnmapNotify: {
774 XUnmapEvent *e = &event->xunmap;
775 fgWarning( "%s: event=0x%x, window=0x%x, from_configure=%s",
776 fghTypeToString( e->type ), e->event, e->window,
777 fghBoolToString( e->from_configure ) );
778 break;
779 }
780
781 case MapNotify: {
782 XMapEvent *e = &event->xmap;
783 fgWarning( "%s: event=0x%x, window=0x%x, override_redirect=%s",
784 fghTypeToString( e->type ), e->event, e->window,
785 fghBoolToString( e->override_redirect ) );
786 break;
787 }
788
789 case MapRequest: {
790 XMapRequestEvent *e = &event->xmaprequest;
791 fgWarning( "%s: parent=0x%x, window=0x%x",
792 fghTypeToString( event->type ), e->parent, e->window );
793 break;
794 }
795
796 case ReparentNotify: {
797 XReparentEvent *e = &event->xreparent;
798 fgWarning( "%s: event=0x%x, window=0x%x, parent=0x%x, (x,y)=(%d,%d), "
799 "override_redirect=%s", fghTypeToString( e->type ),
800 e->event, e->window, e->parent, e->x, e->y,
801 fghBoolToString( e->override_redirect ) );
802 break;
803 }
804
805 case ConfigureNotify: {
806 XConfigureEvent *e = &event->xconfigure;
807 fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d), "
808 "(width,height)=(%d,%d), border_width=%d, above=0x%x, "
809 "override_redirect=%s", fghTypeToString( e->type ), e->event,
810 e->window, e->x, e->y, e->width, e->height, e->border_width,
811 e->above, fghBoolToString( e->override_redirect ) );
812 break;
813 }
814
815 case ConfigureRequest: {
816 XConfigureRequestEvent *e = &event->xconfigurerequest;
817 fgWarning( "%s: parent=0x%x, window=0x%x, (x,y)=(%d,%d), "
818 "(width,height)=(%d,%d), border_width=%d, above=0x%x, "
819 "detail=%s, value_mask=%lx", fghTypeToString( e->type ),
820 e->parent, e->window, e->x, e->y, e->width, e->height,
821 e->border_width, e->above,
822 fghConfigureDetailToString( e->detail ), e->value_mask );
823 break;
824 }
825
826 case GravityNotify: {
827 XGravityEvent *e = &event->xgravity;
828 fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d)",
829 fghTypeToString( e->type ), e->event, e->window, e->x, e->y );
830 break;
831 }
832
833 case ResizeRequest: {
834 XResizeRequestEvent *e = &event->xresizerequest;
835 fgWarning( "%s: window=0x%x, (width,height)=(%d,%d)",
836 fghTypeToString( e->type ), e->window, e->width, e->height );
837 break;
838 }
839
840 case CirculateNotify: {
841 XCirculateEvent *e = &event->xcirculate;
842 fgWarning( "%s: event=0x%x, window=0x%x, place=%s",
843 fghTypeToString( e->type ), e->event, e->window,
844 fghPlaceToString( e->place ) );
845 break;
846 }
847
848 case CirculateRequest: {
849 XCirculateRequestEvent *e = &event->xcirculaterequest;
850 fgWarning( "%s: parent=0x%x, window=0x%x, place=%s",
851 fghTypeToString( e->type ), e->parent, e->window,
852 fghPlaceToString( e->place ) );
853 break;
854 }
855
856 case PropertyNotify: {
857 XPropertyEvent *e = &event->xproperty;
858 fgWarning( "%s: window=0x%x, atom=%lu, time=%lu, state=%s",
859 fghTypeToString( e->type ), e->window,
860 (unsigned long)e->atom, (unsigned long)e->time,
861 fghPropertyStateToString( e->state ) );
862 break;
863 }
864
865 case SelectionClear: {
866 XSelectionClearEvent *e = &event->xselectionclear;
867 fgWarning( "%s: window=0x%x, selection=%lu, time=%lu",
868 fghTypeToString( e->type ), e->window,
869 (unsigned long)e->selection, (unsigned long)e->time );
870 break;
871 }
872
873 case SelectionRequest: {
874 XSelectionRequestEvent *e = &event->xselectionrequest;
875 fgWarning( "%s: owner=0x%x, requestor=0x%x, selection=0x%x, "
876 "target=0x%x, property=%lu, time=%lu",
877 fghTypeToString( e->type ), e->owner, e->requestor,
878 (unsigned long)e->selection, (unsigned long)e->target,
879 (unsigned long)e->property, (unsigned long)e->time );
880 break;
881 }
882
883 case SelectionNotify: {
884 XSelectionEvent *e = &event->xselection;
885 fgWarning( "%s: requestor=0x%x, selection=0x%x, target=0x%x, "
886 "property=%lu, time=%lu", fghTypeToString( e->type ),
887 e->requestor, (unsigned long)e->selection,
888 (unsigned long)e->target, (unsigned long)e->property,
889 (unsigned long)e->time );
890 break;
891 }
892
893 case ColormapNotify: {
894 XColormapEvent *e = &event->xcolormap;
895 fgWarning( "%s: window=0x%x, colormap=%lu, new=%s, state=%s",
896 fghTypeToString( e->type ), e->window,
897 (unsigned long)e->colormap, fghBoolToString( e->new ),
898 fghColormapStateToString( e->state ) );
899 break;
900 }
901
902 case ClientMessage: {
903 XClientMessageEvent *e = &event->xclient;
904 char buf[ 61 ];
905 char* p = buf;
906 char* end = buf + sizeof( buf );
907 int i;
908 switch( e->format ) {
909 case 8:
910 for ( i = 0; i < 20; i++, p += 3 ) {
911 snprintf( p, end - p, " %02x", e->data.b[ i ] );
912 }
913 break;
914 case 16:
915 for ( i = 0; i < 10; i++, p += 5 ) {
916 snprintf( p, end - p, " %04x", e->data.s[ i ] );
917 }
918 break;
919 case 32:
920 for ( i = 0; i < 5; i++, p += 9 ) {
921 snprintf( p, end - p, " %08lx", e->data.l[ i ] );
922 }
923 break;
924 }
925 *p = '\0';
926 fgWarning( "%s: window=0x%x, message_type=%lu, format=%d, data=(%s )",
927 fghTypeToString( e->type ), e->window,
928 (unsigned long)e->message_type, e->format, buf );
929 break;
930 }
931
932 case MappingNotify: {
933 XMappingEvent *e = &event->xmapping;
934 fgWarning( "%s: window=0x%x, request=%s, first_keycode=%d, count=%d",
935 fghTypeToString( e->type ), e->window,
936 fghMappingRequestToString( e->request ), e->first_keycode,
937 e->count );
938 break;
939 }
940
941 default: {
942 fgWarning( "%s", fghTypeToString( event->type ) );
943 break;
944 }
945 }
946 }
947
948 #endif
949
950 /* -- INTERFACE FUNCTIONS -------------------------------------------------- */
951
952 /*
953 * Executes a single iteration in the freeglut processing loop.
954 */
glutMainLoopEvent(void)955 void FGAPIENTRY glutMainLoopEvent( void )
956 {
957 #if TARGET_HOST_POSIX_X11
958 SFG_Window* window;
959 XEvent event;
960
961 /* This code was repeated constantly, so here it goes into a definition: */
962 #define GETWINDOW(a) \
963 window = fgWindowByHandle( event.a.window ); \
964 if( window == NULL ) \
965 break;
966
967 #define GETMOUSE(a) \
968 window->State.MouseX = event.a.x; \
969 window->State.MouseY = event.a.y;
970
971 FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" );
972
973 while( XPending( fgDisplay.Display ) )
974 {
975 XNextEvent( fgDisplay.Display, &event );
976 #if _DEBUG
977 fghPrintEvent( &event );
978 #endif
979
980 switch( event.type )
981 {
982 case ClientMessage:
983 if(fgIsSpaceballXEvent(&event)) {
984 fgSpaceballHandleXEvent(&event);
985 break;
986 }
987 /* Destroy the window when the WM_DELETE_WINDOW message arrives */
988 if( (Atom) event.xclient.data.l[ 0 ] == fgDisplay.DeleteWindow )
989 {
990 GETWINDOW( xclient );
991
992 fgDestroyWindow ( window );
993
994 if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )
995 {
996 fgDeinitialize( );
997 exit( 0 );
998 }
999 else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )
1000 fgState.ExecState = GLUT_EXEC_STATE_STOP;
1001
1002 return;
1003 }
1004 break;
1005
1006 /*
1007 * CreateNotify causes a configure-event so that sub-windows are
1008 * handled compatibly with GLUT. Otherwise, your sub-windows
1009 * (in freeglut only) will not get an initial reshape event,
1010 * which can break things.
1011 *
1012 * GLUT presumably does this because it generally tries to treat
1013 * sub-windows the same as windows.
1014 */
1015 case CreateNotify:
1016 case ConfigureNotify:
1017 {
1018 int width, height;
1019 if( event.type == CreateNotify ) {
1020 GETWINDOW( xcreatewindow );
1021 width = event.xcreatewindow.width;
1022 height = event.xcreatewindow.height;
1023 } else {
1024 GETWINDOW( xconfigure );
1025 width = event.xconfigure.width;
1026 height = event.xconfigure.height;
1027 }
1028
1029 if( ( width != window->State.OldWidth ) ||
1030 ( height != window->State.OldHeight ) )
1031 {
1032 SFG_Window *current_window = fgStructure.CurrentWindow;
1033
1034 window->State.OldWidth = width;
1035 window->State.OldHeight = height;
1036 if( FETCH_WCB( *window, Reshape ) )
1037 INVOKE_WCB( *window, Reshape, ( width, height ) );
1038 else
1039 {
1040 fgSetWindow( window );
1041 glViewport( 0, 0, width, height );
1042 }
1043 glutPostRedisplay( );
1044 if( window->IsMenu )
1045 fgSetWindow( current_window );
1046 }
1047 }
1048 break;
1049
1050 case DestroyNotify:
1051 /*
1052 * This is sent to confirm the XDestroyWindow call.
1053 *
1054 * XXX WHY is this commented out? Should we re-enable it?
1055 */
1056 /* fgAddToWindowDestroyList ( window ); */
1057 break;
1058
1059 case Expose:
1060 /*
1061 * We are too dumb to process partial exposes...
1062 *
1063 * XXX Well, we could do it. However, it seems to only
1064 * XXX be potentially useful for single-buffered (since
1065 * XXX double-buffered does not respect viewport when we
1066 * XXX do a buffer-swap).
1067 *
1068 */
1069 if( event.xexpose.count == 0 )
1070 {
1071 GETWINDOW( xexpose );
1072 window->State.Redisplay = GL_TRUE;
1073 }
1074 break;
1075
1076 case MapNotify:
1077 break;
1078
1079 case UnmapNotify:
1080 /* We get this when iconifying a window. */
1081 GETWINDOW( xunmap );
1082 INVOKE_WCB( *window, WindowStatus, ( GLUT_HIDDEN ) );
1083 window->State.Visible = GL_FALSE;
1084 break;
1085
1086 case MappingNotify:
1087 /*
1088 * Have the client's keyboard knowledge updated (xlib.ps,
1089 * page 206, says that's a good thing to do)
1090 */
1091 XRefreshKeyboardMapping( (XMappingEvent *) &event );
1092 break;
1093
1094 case VisibilityNotify:
1095 {
1096 /*
1097 * Sending this event, the X server can notify us that the window
1098 * has just acquired one of the three possible visibility states:
1099 * VisibilityUnobscured, VisibilityPartiallyObscured or
1100 * VisibilityFullyObscured. Note that we DO NOT receive a
1101 * VisibilityNotify event when iconifying a window, we only get an
1102 * UnmapNotify then.
1103 */
1104 GETWINDOW( xvisibility );
1105 switch( event.xvisibility.state )
1106 {
1107 case VisibilityUnobscured:
1108 INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_RETAINED ) );
1109 window->State.Visible = GL_TRUE;
1110 break;
1111
1112 case VisibilityPartiallyObscured:
1113 INVOKE_WCB( *window, WindowStatus,
1114 ( GLUT_PARTIALLY_RETAINED ) );
1115 window->State.Visible = GL_TRUE;
1116 break;
1117
1118 case VisibilityFullyObscured:
1119 INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_COVERED ) );
1120 window->State.Visible = GL_FALSE;
1121 break;
1122
1123 default:
1124 fgWarning( "Unknown X visibility state: %d",
1125 event.xvisibility.state );
1126 break;
1127 }
1128 }
1129 break;
1130
1131 case EnterNotify:
1132 case LeaveNotify:
1133 GETWINDOW( xcrossing );
1134 GETMOUSE( xcrossing );
1135 if( ( event.type == LeaveNotify ) && window->IsMenu &&
1136 window->ActiveMenu && window->ActiveMenu->IsActive )
1137 fgUpdateMenuHighlight( window->ActiveMenu );
1138
1139 INVOKE_WCB( *window, Entry, ( ( EnterNotify == event.type ) ?
1140 GLUT_ENTERED :
1141 GLUT_LEFT ) );
1142 break;
1143
1144 case MotionNotify:
1145 {
1146 GETWINDOW( xmotion );
1147 GETMOUSE( xmotion );
1148
1149 if( window->ActiveMenu )
1150 {
1151 if( window == window->ActiveMenu->ParentWindow )
1152 {
1153 window->ActiveMenu->Window->State.MouseX =
1154 event.xmotion.x_root - window->ActiveMenu->X;
1155 window->ActiveMenu->Window->State.MouseY =
1156 event.xmotion.y_root - window->ActiveMenu->Y;
1157 }
1158
1159 fgUpdateMenuHighlight( window->ActiveMenu );
1160
1161 break;
1162 }
1163
1164 /*
1165 * XXX For more than 5 buttons, just check {event.xmotion.state},
1166 * XXX rather than a host of bit-masks? Or maybe we need to
1167 * XXX track ButtonPress/ButtonRelease events in our own
1168 * XXX bit-mask?
1169 */
1170 fgState.Modifiers = fghGetXModifiers( event.xmotion.state );
1171 if ( event.xmotion.state & ( Button1Mask | Button2Mask | Button3Mask | Button4Mask | Button5Mask ) ) {
1172 INVOKE_WCB( *window, Motion, ( event.xmotion.x,
1173 event.xmotion.y ) );
1174 } else {
1175 INVOKE_WCB( *window, Passive, ( event.xmotion.x,
1176 event.xmotion.y ) );
1177 }
1178 fgState.Modifiers = INVALID_MODIFIERS;
1179 }
1180 break;
1181
1182 case ButtonRelease:
1183 case ButtonPress:
1184 {
1185 GLboolean pressed = GL_TRUE;
1186 int button;
1187
1188 if( event.type == ButtonRelease )
1189 pressed = GL_FALSE ;
1190
1191 /*
1192 * A mouse button has been pressed or released. Traditionally,
1193 * break if the window was found within the freeglut structures.
1194 */
1195 GETWINDOW( xbutton );
1196 GETMOUSE( xbutton );
1197
1198 /*
1199 * An X button (at least in XFree86) is numbered from 1.
1200 * A GLUT button is numbered from 0.
1201 * Old GLUT passed through buttons other than just the first
1202 * three, though it only gave symbolic names and official
1203 * support to the first three.
1204 */
1205 button = event.xbutton.button - 1;
1206
1207 /*
1208 * Do not execute the application's mouse callback if a menu
1209 * is hooked to this button. In that case an appropriate
1210 * private call should be generated.
1211 */
1212 if( fgCheckActiveMenu( window, button, pressed,
1213 event.xbutton.x_root, event.xbutton.y_root ) )
1214 break;
1215
1216 /*
1217 * Check if there is a mouse or mouse wheel callback hooked to the
1218 * window
1219 */
1220 if( ! FETCH_WCB( *window, Mouse ) &&
1221 ! FETCH_WCB( *window, MouseWheel ) )
1222 break;
1223
1224 fgState.Modifiers = fghGetXModifiers( event.xbutton.state );
1225
1226 /* Finally execute the mouse or mouse wheel callback */
1227 if( ( button < glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS ) ) || ( ! FETCH_WCB( *window, MouseWheel ) ) )
1228 INVOKE_WCB( *window, Mouse, ( button,
1229 pressed ? GLUT_DOWN : GLUT_UP,
1230 event.xbutton.x,
1231 event.xbutton.y )
1232 );
1233 else
1234 {
1235 /*
1236 * Map 4 and 5 to wheel zero; EVEN to +1, ODD to -1
1237 * " 6 and 7 " " one; ...
1238 *
1239 * XXX This *should* be behind some variables/macros,
1240 * XXX since the order and numbering isn't certain
1241 * XXX See XFree86 configuration docs (even back in the
1242 * XXX 3.x days, and especially with 4.x).
1243 *
1244 * XXX Note that {button} has already been decremeted
1245 * XXX in mapping from X button numbering to GLUT.
1246 */
1247 int wheel_number = (button - glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS )) / 2;
1248 int direction = -1;
1249 if( button % 2 )
1250 direction = 1;
1251
1252 if( pressed )
1253 INVOKE_WCB( *window, MouseWheel, ( wheel_number,
1254 direction,
1255 event.xbutton.x,
1256 event.xbutton.y )
1257 );
1258 }
1259 fgState.Modifiers = INVALID_MODIFIERS;
1260 }
1261 break;
1262
1263 case KeyRelease:
1264 case KeyPress:
1265 {
1266 FGCBKeyboard keyboard_cb;
1267 FGCBSpecial special_cb;
1268
1269 GETWINDOW( xkey );
1270 GETMOUSE( xkey );
1271
1272 /* Detect auto repeated keys, if configured globally or per-window */
1273
1274 if ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE )
1275 {
1276 if (event.type==KeyRelease)
1277 {
1278 /*
1279 * Look at X11 keystate to detect repeat mode.
1280 * While X11 says the key is actually held down, we'll ignore KeyRelease/KeyPress pairs.
1281 */
1282
1283 char keys[32];
1284 XQueryKeymap( fgDisplay.Display, keys ); /* Look at X11 keystate to detect repeat mode */
1285
1286 if ( event.xkey.keycode<256 ) /* XQueryKeymap is limited to 256 keycodes */
1287 {
1288 if ( keys[event.xkey.keycode>>3] & (1<<(event.xkey.keycode%8)) )
1289 window->State.KeyRepeating = GL_TRUE;
1290 else
1291 window->State.KeyRepeating = GL_FALSE;
1292 }
1293 }
1294 }
1295 else
1296 window->State.KeyRepeating = GL_FALSE;
1297
1298 /* Cease processing this event if it is auto repeated */
1299
1300 if (window->State.KeyRepeating)
1301 {
1302 if (event.type == KeyPress) window->State.KeyRepeating = GL_FALSE;
1303 break;
1304 }
1305
1306 if( event.type == KeyPress )
1307 {
1308 keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, Keyboard ));
1309 special_cb = (FGCBSpecial) ( FETCH_WCB( *window, Special ));
1310 }
1311 else
1312 {
1313 keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, KeyboardUp ));
1314 special_cb = (FGCBSpecial) ( FETCH_WCB( *window, SpecialUp ));
1315 }
1316
1317 /* Is there a keyboard/special callback hooked for this window? */
1318 if( keyboard_cb || special_cb )
1319 {
1320 XComposeStatus composeStatus;
1321 char asciiCode[ 32 ];
1322 KeySym keySym;
1323 int len;
1324
1325 /* Check for the ASCII/KeySym codes associated with the event: */
1326 len = XLookupString( &event.xkey, asciiCode, sizeof(asciiCode),
1327 &keySym, &composeStatus
1328 );
1329
1330 /* GLUT API tells us to have two separate callbacks... */
1331 if( len > 0 )
1332 {
1333 /* ...one for the ASCII translateable keypresses... */
1334 if( keyboard_cb )
1335 {
1336 fgSetWindow( window );
1337 fgState.Modifiers = fghGetXModifiers( event.xkey.state );
1338 keyboard_cb( asciiCode[ 0 ],
1339 event.xkey.x, event.xkey.y
1340 );
1341 fgState.Modifiers = INVALID_MODIFIERS;
1342 }
1343 }
1344 else
1345 {
1346 int special = -1;
1347
1348 /*
1349 * ...and one for all the others, which need to be
1350 * translated to GLUT_KEY_Xs...
1351 */
1352 switch( keySym )
1353 {
1354 case XK_F1: special = GLUT_KEY_F1; break;
1355 case XK_F2: special = GLUT_KEY_F2; break;
1356 case XK_F3: special = GLUT_KEY_F3; break;
1357 case XK_F4: special = GLUT_KEY_F4; break;
1358 case XK_F5: special = GLUT_KEY_F5; break;
1359 case XK_F6: special = GLUT_KEY_F6; break;
1360 case XK_F7: special = GLUT_KEY_F7; break;
1361 case XK_F8: special = GLUT_KEY_F8; break;
1362 case XK_F9: special = GLUT_KEY_F9; break;
1363 case XK_F10: special = GLUT_KEY_F10; break;
1364 case XK_F11: special = GLUT_KEY_F11; break;
1365 case XK_F12: special = GLUT_KEY_F12; break;
1366
1367 case XK_KP_Left:
1368 case XK_Left: special = GLUT_KEY_LEFT; break;
1369 case XK_KP_Right:
1370 case XK_Right: special = GLUT_KEY_RIGHT; break;
1371 case XK_KP_Up:
1372 case XK_Up: special = GLUT_KEY_UP; break;
1373 case XK_KP_Down:
1374 case XK_Down: special = GLUT_KEY_DOWN; break;
1375
1376 case XK_KP_Prior:
1377 case XK_Prior: special = GLUT_KEY_PAGE_UP; break;
1378 case XK_KP_Next:
1379 case XK_Next: special = GLUT_KEY_PAGE_DOWN; break;
1380 case XK_KP_Home:
1381 case XK_Home: special = GLUT_KEY_HOME; break;
1382 case XK_KP_End:
1383 case XK_End: special = GLUT_KEY_END; break;
1384 case XK_KP_Insert:
1385 case XK_Insert: special = GLUT_KEY_INSERT; break;
1386
1387 case XK_Num_Lock : special = GLUT_KEY_NUM_LOCK; break;
1388 case XK_KP_Begin : special = GLUT_KEY_BEGIN; break;
1389 case XK_KP_Delete: special = GLUT_KEY_DELETE; break;
1390 }
1391
1392 /*
1393 * Execute the callback (if one has been specified),
1394 * given that the special code seems to be valid...
1395 */
1396 if( special_cb && (special != -1) )
1397 {
1398 fgSetWindow( window );
1399 fgState.Modifiers = fghGetXModifiers( event.xkey.state );
1400 special_cb( special, event.xkey.x, event.xkey.y );
1401 fgState.Modifiers = INVALID_MODIFIERS;
1402 }
1403 }
1404 }
1405 }
1406 break;
1407
1408 case ReparentNotify:
1409 break; /* XXX Should disable this event */
1410
1411 /* Not handled */
1412 case GravityNotify:
1413 break;
1414
1415 default:
1416 fgWarning ("Unknown X event type: %d\n", event.type);
1417 break;
1418 }
1419 }
1420
1421 #elif TARGET_HOST_MS_WINDOWS
1422
1423 MSG stMsg;
1424
1425 FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" );
1426
1427 while( PeekMessage( &stMsg, NULL, 0, 0, PM_NOREMOVE ) )
1428 {
1429 if( GetMessage( &stMsg, NULL, 0, 0 ) == 0 )
1430 {
1431 if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )
1432 {
1433 fgDeinitialize( );
1434 exit( 0 );
1435 }
1436 else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )
1437 fgState.ExecState = GLUT_EXEC_STATE_STOP;
1438
1439 return;
1440 }
1441
1442 TranslateMessage( &stMsg );
1443 DispatchMessage( &stMsg );
1444 }
1445 #endif
1446
1447 if( fgState.Timers.First )
1448 fghCheckTimers( );
1449 fghCheckJoystickPolls( );
1450 fghDisplayAll( );
1451
1452 fgCloseWindows( );
1453 }
1454
1455 /*
1456 * Enters the freeglut processing loop.
1457 * Stays until the "ExecState" changes to "GLUT_EXEC_STATE_STOP".
1458 */
glutMainLoop(void)1459 void FGAPIENTRY glutMainLoop( void )
1460 {
1461 int action;
1462
1463 #if TARGET_HOST_MS_WINDOWS
1464 SFG_Window *window = (SFG_Window *)fgStructure.Windows.First ;
1465 #endif
1466
1467 FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoop" );
1468
1469 #if TARGET_HOST_MS_WINDOWS
1470 /*
1471 * Processing before the main loop: If there is a window which is open and
1472 * which has a visibility callback, call it. I know this is an ugly hack,
1473 * but I'm not sure what else to do about it. Ideally we should leave
1474 * something uninitialized in the create window code and initialize it in
1475 * the main loop, and have that initialization create a "WM_ACTIVATE"
1476 * message. Then we would put the visibility callback code in the
1477 * "case WM_ACTIVATE" block below. - John Fay -- 10/24/02
1478 */
1479 while( window )
1480 {
1481 if ( FETCH_WCB( *window, Visibility ) )
1482 {
1483 SFG_Window *current_window = fgStructure.CurrentWindow ;
1484
1485 INVOKE_WCB( *window, Visibility, ( window->State.Visible ) );
1486 fgSetWindow( current_window );
1487 }
1488
1489 window = (SFG_Window *)window->Node.Next ;
1490 }
1491 #endif
1492
1493 fgState.ExecState = GLUT_EXEC_STATE_RUNNING ;
1494 while( fgState.ExecState == GLUT_EXEC_STATE_RUNNING )
1495 {
1496 SFG_Window *window;
1497
1498 glutMainLoopEvent( );
1499 /*
1500 * Step through the list of windows, seeing if there are any
1501 * that are not menus
1502 */
1503 for( window = ( SFG_Window * )fgStructure.Windows.First;
1504 window;
1505 window = ( SFG_Window * )window->Node.Next )
1506 if ( ! ( window->IsMenu ) )
1507 break;
1508
1509 if( ! window )
1510 fgState.ExecState = GLUT_EXEC_STATE_STOP;
1511 else
1512 {
1513 if( fgState.IdleCallback )
1514 {
1515 if( fgStructure.CurrentWindow &&
1516 fgStructure.CurrentWindow->IsMenu )
1517 /* fail safe */
1518 fgSetWindow( window );
1519 fgState.IdleCallback( );
1520 }
1521
1522 fghSleepForEvents( );
1523 }
1524 }
1525
1526 /*
1527 * When this loop terminates, destroy the display, state and structure
1528 * of a freeglut session, so that another glutInit() call can happen
1529 *
1530 * Save the "ActionOnWindowClose" because "fgDeinitialize" resets it.
1531 */
1532 action = fgState.ActionOnWindowClose;
1533 fgDeinitialize( );
1534 if( action == GLUT_ACTION_EXIT )
1535 exit( 0 );
1536 }
1537
1538 /*
1539 * Leaves the freeglut processing loop.
1540 */
glutLeaveMainLoop(void)1541 void FGAPIENTRY glutLeaveMainLoop( void )
1542 {
1543 FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutLeaveMainLoop" );
1544 fgState.ExecState = GLUT_EXEC_STATE_STOP ;
1545 }
1546
1547
1548 #if TARGET_HOST_MS_WINDOWS
1549 /*
1550 * Determine a GLUT modifer mask based on MS-WINDOWS system info.
1551 */
fghGetWin32Modifiers(void)1552 static int fghGetWin32Modifiers (void)
1553 {
1554 return
1555 ( ( ( GetKeyState( VK_LSHIFT ) < 0 ) ||
1556 ( GetKeyState( VK_RSHIFT ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |
1557 ( ( ( GetKeyState( VK_LCONTROL ) < 0 ) ||
1558 ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL : 0 ) |
1559 ( ( ( GetKeyState( VK_LMENU ) < 0 ) ||
1560 ( GetKeyState( VK_RMENU ) < 0 )) ? GLUT_ACTIVE_ALT : 0 );
1561 }
1562
1563 /*
1564 * The window procedure for handling Win32 events
1565 */
fgWindowProc(HWND hWnd,UINT uMsg,WPARAM wParam,LPARAM lParam)1566 LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam,
1567 LPARAM lParam )
1568 {
1569 SFG_Window* window;
1570 PAINTSTRUCT ps;
1571 LRESULT lRet = 1;
1572
1573 FREEGLUT_INTERNAL_ERROR_EXIT_IF_NOT_INITIALISED ( "Event Handler" ) ;
1574
1575 window = fgWindowByHandle( hWnd );
1576
1577 if ( ( window == NULL ) && ( uMsg != WM_CREATE ) )
1578 return DefWindowProc( hWnd, uMsg, wParam, lParam );
1579
1580 /* printf ( "Window %3d message <%04x> %12d %12d\n", window?window->ID:0,
1581 uMsg, wParam, lParam ); */
1582 switch( uMsg )
1583 {
1584 case WM_CREATE:
1585 /* The window structure is passed as the creation structure paramter... */
1586 window = (SFG_Window *) (((LPCREATESTRUCT) lParam)->lpCreateParams);
1587 FREEGLUT_INTERNAL_ERROR_EXIT ( ( window != NULL ), "Cannot create window",
1588 "fgWindowProc" );
1589
1590 window->Window.Handle = hWnd;
1591 window->Window.Device = GetDC( hWnd );
1592 if( window->IsMenu )
1593 {
1594 unsigned int current_DisplayMode = fgState.DisplayMode;
1595 fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH;
1596 #if !defined(_WIN32_WCE)
1597 fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );
1598 #endif
1599 fgState.DisplayMode = current_DisplayMode;
1600
1601 if( fgStructure.MenuContext )
1602 wglMakeCurrent( window->Window.Device,
1603 fgStructure.MenuContext->MContext
1604 );
1605 else
1606 {
1607 fgStructure.MenuContext =
1608 (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) );
1609 fgStructure.MenuContext->MContext =
1610 wglCreateContext( window->Window.Device );
1611 }
1612
1613 /* window->Window.Context = wglGetCurrentContext (); */
1614 window->Window.Context = wglCreateContext( window->Window.Device );
1615 }
1616 else
1617 {
1618 #if !defined(_WIN32_WCE)
1619 fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );
1620 #endif
1621
1622 if( ! fgState.UseCurrentContext )
1623 window->Window.Context =
1624 wglCreateContext( window->Window.Device );
1625 else
1626 {
1627 window->Window.Context = wglGetCurrentContext( );
1628 if( ! window->Window.Context )
1629 window->Window.Context =
1630 wglCreateContext( window->Window.Device );
1631 }
1632
1633 #if !defined(_WIN32_WCE)
1634 fgNewWGLCreateContext( window );
1635 #endif
1636 }
1637
1638 window->State.NeedToResize = GL_TRUE;
1639 if( ( window->State.Width < 0 ) || ( window->State.Height < 0 ) )
1640 {
1641 SFG_Window *current_window = fgStructure.CurrentWindow;
1642
1643 fgSetWindow( window );
1644 window->State.Width = glutGet( GLUT_WINDOW_WIDTH );
1645 window->State.Height = glutGet( GLUT_WINDOW_HEIGHT );
1646 fgSetWindow( current_window );
1647 }
1648
1649 ReleaseDC( window->Window.Handle, window->Window.Device );
1650
1651 #if defined(_WIN32_WCE)
1652 /* Take over button handling */
1653 {
1654 HINSTANCE dxDllLib=LoadLibrary(_T("gx.dll"));
1655 if (dxDllLib)
1656 {
1657 GXGetDefaultKeys_=(GXGETDEFAULTKEYS)GetProcAddress(dxDllLib, _T("?GXGetDefaultKeys@@YA?AUGXKeyList@@H@Z"));
1658 GXOpenInput_=(GXOPENINPUT)GetProcAddress(dxDllLib, _T("?GXOpenInput@@YAHXZ"));
1659 }
1660
1661 if(GXOpenInput_)
1662 (*GXOpenInput_)();
1663 if(GXGetDefaultKeys_)
1664 gxKeyList = (*GXGetDefaultKeys_)(GX_LANDSCAPEKEYS);
1665 }
1666
1667 #endif /* defined(_WIN32_WCE) */
1668 break;
1669
1670 case WM_SIZE:
1671 /*
1672 * If the window is visible, then it is the user manually resizing it.
1673 * If it is not, then it is the system sending us a dummy resize with
1674 * zero dimensions on a "glutIconifyWindow" call.
1675 */
1676 if( window->State.Visible )
1677 {
1678 window->State.NeedToResize = GL_TRUE;
1679 #if defined(_WIN32_WCE)
1680 window->State.Width = HIWORD(lParam);
1681 window->State.Height = LOWORD(lParam);
1682 #else
1683 window->State.Width = LOWORD(lParam);
1684 window->State.Height = HIWORD(lParam);
1685 #endif /* defined(_WIN32_WCE) */
1686 }
1687
1688 break;
1689
1690 case WM_SETFOCUS:
1691 /* printf("WM_SETFOCUS: %p\n", window ); */
1692 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
1693 INVOKE_WCB( *window, Entry, ( GLUT_ENTERED ) );
1694 break;
1695
1696 case WM_KILLFOCUS:
1697 /* printf("WM_KILLFOCUS: %p\n", window ); */
1698 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
1699 INVOKE_WCB( *window, Entry, ( GLUT_LEFT ) );
1700
1701 if( window->IsMenu &&
1702 window->ActiveMenu && window->ActiveMenu->IsActive )
1703 fgUpdateMenuHighlight( window->ActiveMenu );
1704
1705 break;
1706
1707 #if 0
1708 case WM_ACTIVATE:
1709 if (LOWORD(wParam) != WA_INACTIVE)
1710 {
1711 /* printf("WM_ACTIVATE: fgSetCursor( %p, %d)\n", window,
1712 window->State.Cursor ); */
1713 fgSetCursor( window, window->State.Cursor );
1714 }
1715
1716 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
1717 break;
1718 #endif
1719
1720 case WM_SETCURSOR:
1721 /* printf ( "Cursor event %x %x %x %x\n", window, window->State.Cursor, lParam, wParam ) ; */
1722 if( LOWORD( lParam ) == HTCLIENT )
1723 fgSetCursor ( window, window->State.Cursor ) ;
1724 else
1725 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
1726 break;
1727
1728 case WM_SHOWWINDOW:
1729 window->State.Visible = GL_TRUE;
1730 window->State.Redisplay = GL_TRUE;
1731 break;
1732
1733 case WM_PAINT:
1734 /* Turn on the visibility in case it was turned off somehow */
1735 window->State.Visible = GL_TRUE;
1736 BeginPaint( hWnd, &ps );
1737 fghRedrawWindow( window );
1738 EndPaint( hWnd, &ps );
1739 break;
1740
1741 case WM_CLOSE:
1742 fgDestroyWindow ( window );
1743 if ( fgState.ActionOnWindowClose != GLUT_ACTION_CONTINUE_EXECUTION )
1744 PostQuitMessage(0);
1745 break;
1746
1747 case WM_DESTROY:
1748 /*
1749 * The window already got destroyed, so don't bother with it.
1750 */
1751 return 0;
1752
1753 case WM_MOUSEMOVE:
1754 {
1755 #if defined(_WIN32_WCE)
1756 window->State.MouseX = 320-HIWORD( lParam );
1757 window->State.MouseY = LOWORD( lParam );
1758 #else
1759 window->State.MouseX = LOWORD( lParam );
1760 window->State.MouseY = HIWORD( lParam );
1761 #endif /* defined(_WIN32_WCE) */
1762 /* Restrict to [-32768, 32767] to match X11 behaviour */
1763 /* See comment in "freeglut_developer" mailing list 10/4/04 */
1764 if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;
1765 if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;
1766
1767 if ( window->ActiveMenu )
1768 {
1769 fgUpdateMenuHighlight( window->ActiveMenu );
1770 break;
1771 }
1772
1773 fgState.Modifiers = fghGetWin32Modifiers( );
1774
1775 if( ( wParam & MK_LBUTTON ) ||
1776 ( wParam & MK_MBUTTON ) ||
1777 ( wParam & MK_RBUTTON ) )
1778 INVOKE_WCB( *window, Motion, ( window->State.MouseX,
1779 window->State.MouseY ) );
1780 else
1781 INVOKE_WCB( *window, Passive, ( window->State.MouseX,
1782 window->State.MouseY ) );
1783
1784 fgState.Modifiers = INVALID_MODIFIERS;
1785 }
1786 break;
1787
1788 case WM_LBUTTONDOWN:
1789 case WM_MBUTTONDOWN:
1790 case WM_RBUTTONDOWN:
1791 case WM_LBUTTONUP:
1792 case WM_MBUTTONUP:
1793 case WM_RBUTTONUP:
1794 {
1795 GLboolean pressed = GL_TRUE;
1796 int button;
1797
1798 #if defined(_WIN32_WCE)
1799 window->State.MouseX = 320-HIWORD( lParam );
1800 window->State.MouseY = LOWORD( lParam );
1801 #else
1802 window->State.MouseX = LOWORD( lParam );
1803 window->State.MouseY = HIWORD( lParam );
1804 #endif /* defined(_WIN32_WCE) */
1805
1806 /* Restrict to [-32768, 32767] to match X11 behaviour */
1807 /* See comment in "freeglut_developer" mailing list 10/4/04 */
1808 if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;
1809 if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;
1810
1811 switch( uMsg )
1812 {
1813 case WM_LBUTTONDOWN:
1814 pressed = GL_TRUE;
1815 button = GLUT_LEFT_BUTTON;
1816 break;
1817 case WM_MBUTTONDOWN:
1818 pressed = GL_TRUE;
1819 button = GLUT_MIDDLE_BUTTON;
1820 break;
1821 case WM_RBUTTONDOWN:
1822 pressed = GL_TRUE;
1823 button = GLUT_RIGHT_BUTTON;
1824 break;
1825 case WM_LBUTTONUP:
1826 pressed = GL_FALSE;
1827 button = GLUT_LEFT_BUTTON;
1828 break;
1829 case WM_MBUTTONUP:
1830 pressed = GL_FALSE;
1831 button = GLUT_MIDDLE_BUTTON;
1832 break;
1833 case WM_RBUTTONUP:
1834 pressed = GL_FALSE;
1835 button = GLUT_RIGHT_BUTTON;
1836 break;
1837 default:
1838 pressed = GL_FALSE;
1839 button = -1;
1840 break;
1841 }
1842
1843 #if !defined(_WIN32_WCE)
1844 if( GetSystemMetrics( SM_SWAPBUTTON ) )
1845 {
1846 if( button == GLUT_LEFT_BUTTON )
1847 button = GLUT_RIGHT_BUTTON;
1848 else
1849 if( button == GLUT_RIGHT_BUTTON )
1850 button = GLUT_LEFT_BUTTON;
1851 }
1852 #endif /* !defined(_WIN32_WCE) */
1853
1854 if( button == -1 )
1855 return DefWindowProc( hWnd, uMsg, lParam, wParam );
1856
1857 /*
1858 * Do not execute the application's mouse callback if a menu
1859 * is hooked to this button. In that case an appropriate
1860 * private call should be generated.
1861 */
1862 if( fgCheckActiveMenu( window, button, pressed,
1863 window->State.MouseX, window->State.MouseY ) )
1864 break;
1865
1866 /* Set capture so that the window captures all the mouse messages */
1867 /*
1868 * XXX - Multiple button support: Under X11, the mouse is not released
1869 * XXX - from the window until all buttons have been released, even if the
1870 * XXX - user presses a button in another window. This will take more
1871 * XXX - code changes than I am up to at the moment (10/5/04). The present
1872 * XXX - is a 90 percent solution.
1873 */
1874 if ( pressed == GL_TRUE )
1875 SetCapture ( window->Window.Handle ) ;
1876 else
1877 ReleaseCapture () ;
1878
1879 if( ! FETCH_WCB( *window, Mouse ) )
1880 break;
1881
1882 fgSetWindow( window );
1883 fgState.Modifiers = fghGetWin32Modifiers( );
1884
1885 INVOKE_WCB(
1886 *window, Mouse,
1887 ( button,
1888 pressed ? GLUT_DOWN : GLUT_UP,
1889 window->State.MouseX,
1890 window->State.MouseY
1891 )
1892 );
1893
1894 fgState.Modifiers = INVALID_MODIFIERS;
1895 }
1896 break;
1897
1898 case 0x020a:
1899 /* Should be WM_MOUSEWHEEL but my compiler doesn't recognize it */
1900 {
1901 /*
1902 * XXX THIS IS SPECULATIVE -- John Fay, 10/2/03
1903 * XXX Should use WHEEL_DELTA instead of 120
1904 */
1905 int wheel_number = LOWORD( wParam );
1906 short ticks = ( short )HIWORD( wParam ) / 120;
1907 int direction = 1;
1908
1909 if( ticks < 0 )
1910 {
1911 direction = -1;
1912 ticks = -ticks;
1913 }
1914
1915 /*
1916 * The mouse cursor has moved. Remember the new mouse cursor's position
1917 */
1918 /* window->State.MouseX = LOWORD( lParam ); */
1919 /* Need to adjust by window position, */
1920 /* window->State.MouseY = HIWORD( lParam ); */
1921 /* change "lParam" to other parameter */
1922
1923 if( ! FETCH_WCB( *window, MouseWheel ) &&
1924 ! FETCH_WCB( *window, Mouse ) )
1925 break;
1926
1927 fgSetWindow( window );
1928 fgState.Modifiers = fghGetWin32Modifiers( );
1929
1930 while( ticks-- )
1931 if( FETCH_WCB( *window, MouseWheel ) )
1932 INVOKE_WCB( *window, MouseWheel,
1933 ( wheel_number,
1934 direction,
1935 window->State.MouseX,
1936 window->State.MouseY
1937 )
1938 );
1939 else /* No mouse wheel, call the mouse button callback twice */
1940 {
1941 /*
1942 * Map wheel zero to button 3 and 4; +1 to 3, -1 to 4
1943 * " " one +1 to 5, -1 to 6, ...
1944 *
1945 * XXX The below assumes that you have no more than 3 mouse
1946 * XXX buttons. Sorry.
1947 */
1948 int button = wheel_number * 2 + 3;
1949 if( direction < 0 )
1950 ++button;
1951 INVOKE_WCB( *window, Mouse,
1952 ( button, GLUT_DOWN,
1953 window->State.MouseX, window->State.MouseY )
1954 );
1955 INVOKE_WCB( *window, Mouse,
1956 ( button, GLUT_UP,
1957 window->State.MouseX, window->State.MouseY )
1958 );
1959 }
1960
1961 fgState.Modifiers = INVALID_MODIFIERS;
1962 }
1963 break ;
1964
1965 case WM_SYSKEYDOWN:
1966 case WM_KEYDOWN:
1967 {
1968 int keypress = -1;
1969 POINT mouse_pos ;
1970
1971 if( ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE ) && (HIWORD(lParam) & KF_REPEAT) )
1972 break;
1973
1974 /*
1975 * Remember the current modifiers state. This is done here in order
1976 * to make sure the VK_DELETE keyboard callback is executed properly.
1977 */
1978 fgState.Modifiers = fghGetWin32Modifiers( );
1979
1980 GetCursorPos( &mouse_pos );
1981 ScreenToClient( window->Window.Handle, &mouse_pos );
1982
1983 window->State.MouseX = mouse_pos.x;
1984 window->State.MouseY = mouse_pos.y;
1985
1986 /* Convert the Win32 keystroke codes to GLUTtish way */
1987 # define KEY(a,b) case a: keypress = b; break;
1988
1989 switch( wParam )
1990 {
1991 KEY( VK_F1, GLUT_KEY_F1 );
1992 KEY( VK_F2, GLUT_KEY_F2 );
1993 KEY( VK_F3, GLUT_KEY_F3 );
1994 KEY( VK_F4, GLUT_KEY_F4 );
1995 KEY( VK_F5, GLUT_KEY_F5 );
1996 KEY( VK_F6, GLUT_KEY_F6 );
1997 KEY( VK_F7, GLUT_KEY_F7 );
1998 KEY( VK_F8, GLUT_KEY_F8 );
1999 KEY( VK_F9, GLUT_KEY_F9 );
2000 KEY( VK_F10, GLUT_KEY_F10 );
2001 KEY( VK_F11, GLUT_KEY_F11 );
2002 KEY( VK_F12, GLUT_KEY_F12 );
2003 KEY( VK_PRIOR, GLUT_KEY_PAGE_UP );
2004 KEY( VK_NEXT, GLUT_KEY_PAGE_DOWN );
2005 KEY( VK_HOME, GLUT_KEY_HOME );
2006 KEY( VK_END, GLUT_KEY_END );
2007 KEY( VK_LEFT, GLUT_KEY_LEFT );
2008 KEY( VK_UP, GLUT_KEY_UP );
2009 KEY( VK_RIGHT, GLUT_KEY_RIGHT );
2010 KEY( VK_DOWN, GLUT_KEY_DOWN );
2011 KEY( VK_INSERT, GLUT_KEY_INSERT );
2012
2013 case VK_DELETE:
2014 /* The delete key should be treated as an ASCII keypress: */
2015 INVOKE_WCB( *window, Keyboard,
2016 ( 127, window->State.MouseX, window->State.MouseY )
2017 );
2018 }
2019
2020 #if defined(_WIN32_WCE)
2021 if(!(lParam & 0x40000000)) /* Prevent auto-repeat */
2022 {
2023 if(wParam==(unsigned)gxKeyList.vkRight)
2024 keypress = GLUT_KEY_RIGHT;
2025 else if(wParam==(unsigned)gxKeyList.vkLeft)
2026 keypress = GLUT_KEY_LEFT;
2027 else if(wParam==(unsigned)gxKeyList.vkUp)
2028 keypress = GLUT_KEY_UP;
2029 else if(wParam==(unsigned)gxKeyList.vkDown)
2030 keypress = GLUT_KEY_DOWN;
2031 else if(wParam==(unsigned)gxKeyList.vkA)
2032 keypress = GLUT_KEY_F1;
2033 else if(wParam==(unsigned)gxKeyList.vkB)
2034 keypress = GLUT_KEY_F2;
2035 else if(wParam==(unsigned)gxKeyList.vkC)
2036 keypress = GLUT_KEY_F3;
2037 else if(wParam==(unsigned)gxKeyList.vkStart)
2038 keypress = GLUT_KEY_F4;
2039 }
2040 #endif
2041
2042 if( keypress != -1 )
2043 INVOKE_WCB( *window, Special,
2044 ( keypress,
2045 window->State.MouseX, window->State.MouseY )
2046 );
2047
2048 fgState.Modifiers = INVALID_MODIFIERS;
2049 }
2050 break;
2051
2052 case WM_SYSKEYUP:
2053 case WM_KEYUP:
2054 {
2055 int keypress = -1;
2056 POINT mouse_pos;
2057
2058 /*
2059 * Remember the current modifiers state. This is done here in order
2060 * to make sure the VK_DELETE keyboard callback is executed properly.
2061 */
2062 fgState.Modifiers = fghGetWin32Modifiers( );
2063
2064 GetCursorPos( &mouse_pos );
2065 ScreenToClient( window->Window.Handle, &mouse_pos );
2066
2067 window->State.MouseX = mouse_pos.x;
2068 window->State.MouseY = mouse_pos.y;
2069
2070 /*
2071 * Convert the Win32 keystroke codes to GLUTtish way.
2072 * "KEY(a,b)" was defined under "WM_KEYDOWN"
2073 */
2074
2075 switch( wParam )
2076 {
2077 KEY( VK_F1, GLUT_KEY_F1 );
2078 KEY( VK_F2, GLUT_KEY_F2 );
2079 KEY( VK_F3, GLUT_KEY_F3 );
2080 KEY( VK_F4, GLUT_KEY_F4 );
2081 KEY( VK_F5, GLUT_KEY_F5 );
2082 KEY( VK_F6, GLUT_KEY_F6 );
2083 KEY( VK_F7, GLUT_KEY_F7 );
2084 KEY( VK_F8, GLUT_KEY_F8 );
2085 KEY( VK_F9, GLUT_KEY_F9 );
2086 KEY( VK_F10, GLUT_KEY_F10 );
2087 KEY( VK_F11, GLUT_KEY_F11 );
2088 KEY( VK_F12, GLUT_KEY_F12 );
2089 KEY( VK_PRIOR, GLUT_KEY_PAGE_UP );
2090 KEY( VK_NEXT, GLUT_KEY_PAGE_DOWN );
2091 KEY( VK_HOME, GLUT_KEY_HOME );
2092 KEY( VK_END, GLUT_KEY_END );
2093 KEY( VK_LEFT, GLUT_KEY_LEFT );
2094 KEY( VK_UP, GLUT_KEY_UP );
2095 KEY( VK_RIGHT, GLUT_KEY_RIGHT );
2096 KEY( VK_DOWN, GLUT_KEY_DOWN );
2097 KEY( VK_INSERT, GLUT_KEY_INSERT );
2098
2099 case VK_DELETE:
2100 /* The delete key should be treated as an ASCII keypress: */
2101 INVOKE_WCB( *window, KeyboardUp,
2102 ( 127, window->State.MouseX, window->State.MouseY )
2103 );
2104 break;
2105
2106 default:
2107 {
2108 #if !defined(_WIN32_WCE)
2109 BYTE state[ 256 ];
2110 WORD code[ 2 ];
2111
2112 GetKeyboardState( state );
2113
2114 if( ToAscii( (UINT)wParam, 0, state, code, 0 ) == 1 )
2115 wParam=code[ 0 ];
2116
2117 INVOKE_WCB( *window, KeyboardUp,
2118 ( (char)wParam,
2119 window->State.MouseX, window->State.MouseY )
2120 );
2121 #endif /* !defined(_WIN32_WCE) */
2122 }
2123 }
2124
2125 if( keypress != -1 )
2126 INVOKE_WCB( *window, SpecialUp,
2127 ( keypress,
2128 window->State.MouseX, window->State.MouseY )
2129 );
2130
2131 fgState.Modifiers = INVALID_MODIFIERS;
2132 }
2133 break;
2134
2135 case WM_SYSCHAR:
2136 case WM_CHAR:
2137 {
2138 if( (fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE) && (HIWORD(lParam) & KF_REPEAT) )
2139 break;
2140
2141 fgState.Modifiers = fghGetWin32Modifiers( );
2142 INVOKE_WCB( *window, Keyboard,
2143 ( (char)wParam,
2144 window->State.MouseX, window->State.MouseY )
2145 );
2146 fgState.Modifiers = INVALID_MODIFIERS;
2147 }
2148 break;
2149
2150 case WM_CAPTURECHANGED:
2151 /* User has finished resizing the window, force a redraw */
2152 INVOKE_WCB( *window, Display, ( ) );
2153
2154 /*lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); */
2155 break;
2156
2157 /* Other messages that I have seen and which are not handled already */
2158 case WM_SETTEXT: /* 0x000c */
2159 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2160 /* Pass it on to "DefWindowProc" to set the window text */
2161 break;
2162
2163 case WM_GETTEXT: /* 0x000d */
2164 /* Ideally we would copy the title of the window into "lParam" */
2165 /* strncpy ( (char *)lParam, "Window Title", wParam );
2166 lRet = ( wParam > 12 ) ? 12 : wParam; */
2167 /* the number of characters copied */
2168 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2169 break;
2170
2171 case WM_GETTEXTLENGTH: /* 0x000e */
2172 /* Ideally we would get the length of the title of the window */
2173 lRet = 12;
2174 /* the number of characters in "Window Title\0" (see above) */
2175 break;
2176
2177 case WM_ERASEBKGND: /* 0x0014 */
2178 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2179 break;
2180
2181 #if !defined(_WIN32_WCE)
2182 case WM_SYNCPAINT: /* 0x0088 */
2183 /* Another window has moved, need to update this one */
2184 window->State.Redisplay = GL_TRUE;
2185 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2186 /* Help screen says this message must be passed to "DefWindowProc" */
2187 break;
2188
2189 case WM_NCPAINT: /* 0x0085 */
2190 /* Need to update the border of this window */
2191 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2192 /* Pass it on to "DefWindowProc" to repaint a standard border */
2193 break;
2194
2195 case WM_SYSCOMMAND : /* 0x0112 */
2196 {
2197 /*
2198 * We have received a system command message. Try to act on it.
2199 * The commands are passed in through the "wParam" parameter:
2200 * The least significant digit seems to be which edge of the window
2201 * is being used for a resize event:
2202 * 4 3 5
2203 * 1 2
2204 * 7 6 8
2205 * Congratulations and thanks to Richard Rauch for figuring this out..
2206 */
2207 switch ( wParam & 0xfff0 )
2208 {
2209 case SC_SIZE :
2210 break ;
2211
2212 case SC_MOVE :
2213 break ;
2214
2215 case SC_MINIMIZE :
2216 /* User has clicked on the "-" to minimize the window */
2217 /* Turn off the visibility */
2218 window->State.Visible = GL_FALSE ;
2219
2220 break ;
2221
2222 case SC_MAXIMIZE :
2223 break ;
2224
2225 case SC_NEXTWINDOW :
2226 break ;
2227
2228 case SC_PREVWINDOW :
2229 break ;
2230
2231 case SC_CLOSE :
2232 /* Followed very closely by a WM_CLOSE message */
2233 break ;
2234
2235 case SC_VSCROLL :
2236 break ;
2237
2238 case SC_HSCROLL :
2239 break ;
2240
2241 case SC_MOUSEMENU :
2242 break ;
2243
2244 case SC_KEYMENU :
2245 break ;
2246
2247 case SC_ARRANGE :
2248 break ;
2249
2250 case SC_RESTORE :
2251 break ;
2252
2253 case SC_TASKLIST :
2254 break ;
2255
2256 case SC_SCREENSAVE :
2257 break ;
2258
2259 case SC_HOTKEY :
2260 break ;
2261
2262 #if(WINVER >= 0x0400)
2263 case SC_DEFAULT :
2264 break ;
2265
2266 case SC_MONITORPOWER :
2267 break ;
2268
2269 case SC_CONTEXTHELP :
2270 break ;
2271 #endif /* WINVER >= 0x0400 */
2272
2273 default:
2274 #if _DEBUG
2275 fgWarning( "Unknown wParam type 0x%x", wParam );
2276 #endif
2277 break;
2278 }
2279 }
2280 #endif /* !defined(_WIN32_WCE) */
2281
2282 /* We need to pass the message on to the operating system as well */
2283 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2284 break;
2285
2286 default:
2287 /* Handle unhandled messages */
2288 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2289 break;
2290 }
2291
2292 return lRet;
2293 }
2294 #endif
2295
2296 /*** END OF FILE ***/
2297