4 * The windows message processing methods.
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
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:
17 * The above copyright notice and this permission notice shall be included
18 * in all copies or substantial portions of the Software.
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.
28 #include <GL/freeglut.h>
29 #include "freeglut_internal.h"
35 # define VFPRINTF(s,f,a) vfprintf((s),(f),(a))
36 #elif defined(HAVE__DOPRNT)
37 # define VFPRINTF(s,f,a) _doprnt((f),(a),(s))
39 # define VFPRINTF(s,f,a)
44 typedef struct GXDisplayProperties GXDisplayProperties;
45 typedef struct GXKeyList GXKeyList;
48 typedef struct GXKeyList (*GXGETDEFAULTKEYS)(int);
49 typedef int (*GXOPENINPUT)();
51 GXGETDEFAULTKEYS GXGetDefaultKeys_ = NULL;
52 GXOPENINPUT GXOpenInput_ = NULL;
54 struct GXKeyList gxKeyList;
56 #endif /* _WIN32_WCE */
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.
66 # define INT_MAX 32767
70 # define MIN(a,b) (((a)<(b)) ? (a) : (b))
75 * TODO BEFORE THE STABLE RELEASE:
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.
81 * Need to investigate why the X11 version breaks out with an error when
82 * closing a window (using the window manager, not glutDestroyWindow)...
85 /* -- PRIVATE FUNCTIONS ---------------------------------------------------- */
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.
92 static void fghReshapeWindow ( SFG_Window *window, int width, int height )
94 SFG_Window *current_window = fgStructure.CurrentWindow;
96 freeglut_return_if_fail( window != NULL );
99 #if TARGET_HOST_POSIX_X11
101 XResizeWindow( fgDisplay.Display, window->Window.Handle,
103 XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
105 #elif TARGET_HOST_MS_WINDOWS && !defined(_WIN32_WCE)
111 * For windowed mode, get the current position of the
112 * window and resize taking the size of the frame
113 * decorations into account.
116 /* "GetWindowRect" returns the pixel coordinates of the outside of the window */
117 GetWindowRect( window->Window.Handle, &winRect );
123 if ( window->Parent == NULL )
125 if ( ! window->IsMenu && (window != fgStructure.GameModeWindow) )
127 w += GetSystemMetrics( SM_CXSIZEFRAME ) * 2;
128 h += GetSystemMetrics( SM_CYSIZEFRAME ) * 2 +
129 GetSystemMetrics( SM_CYCAPTION );
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 );
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)
148 SetWindowPos( window->Window.Handle,
151 SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING |
158 * XXX Should update {window->State.OldWidth, window->State.OldHeight}
159 * XXX to keep in lockstep with POSIX_X11 code.
161 if( FETCH_WCB( *window, Reshape ) )
162 INVOKE_WCB( *window, Reshape, ( width, height ) );
165 fgSetWindow( window );
166 glViewport( 0, 0, width, height );
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
176 window->State.Redisplay = GL_TRUE;
179 fgSetWindow( current_window );
183 * Calls a window's redraw method. This is used when
184 * a redraw is forced by the incoming window messages.
186 static void fghRedrawWindow ( SFG_Window *window )
188 SFG_Window *current_window = fgStructure.CurrentWindow;
190 freeglut_return_if_fail( window );
191 freeglut_return_if_fail( FETCH_WCB ( *window, Display ) );
193 window->State.Redisplay = GL_FALSE;
195 freeglut_return_if_fail( window->State.Visible );
197 fgSetWindow( window );
199 if( window->State.NeedToResize )
207 window->State.NeedToResize = GL_FALSE;
210 INVOKE_WCB( *window, Display, ( ) );
212 fgSetWindow( current_window );
216 * A static helper function to execute display callback for a window
218 static void fghcbDisplayWindow( SFG_Window *window,
219 SFG_Enumerator *enumerator )
221 if( window->State.Redisplay &&
222 window->State.Visible )
224 window->State.Redisplay = GL_FALSE;
226 #if TARGET_HOST_POSIX_X11
227 fghRedrawWindow ( window ) ;
228 #elif TARGET_HOST_MS_WINDOWS
230 window->Window.Handle, NULL, NULL,
231 RDW_NOERASE | RDW_INTERNALPAINT | RDW_INVALIDATE | RDW_UPDATENOW
236 fgEnumSubWindows( window, fghcbDisplayWindow, enumerator );
240 * Make all windows perform a display call
242 static void fghDisplayAll( void )
244 SFG_Enumerator enumerator;
246 enumerator.found = GL_FALSE;
247 enumerator.data = NULL;
249 fgEnumWindows( fghcbDisplayWindow, &enumerator );
253 * Window enumerator callback to check for the joystick polling code
255 static void fghcbCheckJoystickPolls( SFG_Window *window,
256 SFG_Enumerator *enumerator )
258 long int checkTime = fgElapsedTime( );
260 if( window->State.JoystickLastPoll + window->State.JoystickPollRate <=
263 #if !defined(_WIN32_WCE)
264 fgJoystickPollWindow( window );
265 #endif /* !defined(_WIN32_WCE) */
266 window->State.JoystickLastPoll = checkTime;
269 fgEnumSubWindows( window, fghcbCheckJoystickPolls, enumerator );
273 * Check all windows for joystick polling
275 static void fghCheckJoystickPolls( void )
277 SFG_Enumerator enumerator;
279 enumerator.found = GL_FALSE;
280 enumerator.data = NULL;
282 fgEnumWindows( fghcbCheckJoystickPolls, &enumerator );
286 * Check the global timers
288 static void fghCheckTimers( void )
290 long checkTime = fgElapsedTime( );
292 while( fgState.Timers.First )
294 SFG_Timer *timer = fgState.Timers.First;
296 if( timer->TriggerTime > checkTime )
299 fgListRemove( &fgState.Timers, &timer->Node );
300 fgListAppend( &fgState.FreeTimers, &timer->Node );
302 timer->Callback( timer->ID );
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.
312 unsigned long fgSystemTime(void) {
313 #if TARGET_HOST_SOLARIS || HAVE_GETTIMEOFDAY
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();
321 return timeGetTime();
329 long fgElapsedTime( void )
331 return (long) (fgSystemTime() - fgState.Time);
337 void fgError( const char *fmt, ... )
341 if (fgState.ErrorFunc) {
345 /* call user set error handler here */
346 fgState.ErrorFunc(fmt, ap);
354 fprintf( stderr, "freeglut ");
355 if( fgState.ProgramName )
356 fprintf( stderr, "(%s): ", fgState.ProgramName );
357 VFPRINTF( stderr, fmt, ap );
358 fprintf( stderr, "\n" );
362 if ( fgState.Initialised )
369 void fgWarning( const char *fmt, ... )
373 if (fgState.WarningFunc) {
377 /* call user set warning handler here */
378 fgState.WarningFunc(fmt, ap);
386 fprintf( stderr, "freeglut ");
387 if( fgState.ProgramName )
388 fprintf( stderr, "(%s): ", fgState.ProgramName );
389 VFPRINTF( stderr, fmt, ap );
390 fprintf( stderr, "\n" );
398 * Indicates whether Joystick events are being used by ANY window.
400 * The current mechanism is to walk all of the windows and ask if
401 * there is a joystick callback. We have a short-circuit early
402 * return if we find any joystick handler registered.
404 * The real way to do this is to make use of the glutTimer() API
405 * to more cleanly re-implement the joystick API. Then, this code
406 * and all other "joystick timer" code can be yanked.
409 static void fghCheckJoystickCallback( SFG_Window* w, SFG_Enumerator* e)
411 if( FETCH_WCB( *w, Joystick ) )
416 fgEnumSubWindows( w, fghCheckJoystickCallback, e );
418 static int fghHaveJoystick( void )
420 SFG_Enumerator enumerator;
422 enumerator.found = GL_FALSE;
423 enumerator.data = NULL;
424 fgEnumWindows( fghCheckJoystickCallback, &enumerator );
425 return !!enumerator.data;
427 static void fghHavePendingRedisplaysCallback( SFG_Window* w, SFG_Enumerator* e)
429 if( w->State.Redisplay && w->State.Visible )
434 fgEnumSubWindows( w, fghHavePendingRedisplaysCallback, e );
436 static int fghHavePendingRedisplays (void)
438 SFG_Enumerator enumerator;
440 enumerator.found = GL_FALSE;
441 enumerator.data = NULL;
442 fgEnumWindows( fghHavePendingRedisplaysCallback, &enumerator );
443 return !!enumerator.data;
446 * Returns the number of GLUT ticks (milliseconds) till the next timer event.
448 static long fghNextTimer( void )
451 SFG_Timer *timer = fgState.Timers.First;
454 ret = timer->TriggerTime - fgElapsedTime();
461 * Does the magic required to relinquish the CPU until something interesting
464 static void fghSleepForEvents( void )
468 if( fgState.IdleCallback || fghHavePendingRedisplays( ) )
471 msec = fghNextTimer( );
472 /* XXX Use GLUT timers for joysticks... */
473 /* XXX Dumb; forces granularity to .01sec */
474 if( fghHaveJoystick( ) && ( msec > 10 ) )
477 #if TARGET_HOST_POSIX_X11
479 * Possibly due to aggressive use of XFlush() and friends,
480 * it is possible to have our socket drained but still have
481 * unprocessed events. (Or, this may just be normal with
482 * X, anyway?) We do non-trivial processing of X events
483 * after the event-reading loop, in any case, so we
484 * need to allow that we may have an empty socket but non-
487 if( ! XPending( fgDisplay.Display ) )
494 socket = ConnectionNumber( fgDisplay.Display );
496 FD_SET( socket, &fdset );
497 wait.tv_sec = msec / 1000;
498 wait.tv_usec = (msec % 1000) * 1000;
499 err = select( socket+1, &fdset, NULL, NULL, &wait );
502 if( ( -1 == err ) && ( errno != EINTR ) )
503 fgWarning ( "freeglut select() error: %d", errno );
506 #elif TARGET_HOST_MS_WINDOWS
507 MsgWaitForMultipleObjects( 0, NULL, FALSE, msec, QS_ALLINPUT );
511 #if TARGET_HOST_POSIX_X11
513 * Returns GLUT modifier mask for the state field of an X11 event.
515 static int fghGetXModifiers( int state )
519 if( state & ( ShiftMask | LockMask ) )
520 ret |= GLUT_ACTIVE_SHIFT;
521 if( state & ControlMask )
522 ret |= GLUT_ACTIVE_CTRL;
523 if( state & Mod1Mask )
524 ret |= GLUT_ACTIVE_ALT;
531 #if TARGET_HOST_POSIX_X11 && _DEBUG
533 static const char* fghTypeToString( int type )
536 case KeyPress: return "KeyPress";
537 case KeyRelease: return "KeyRelease";
538 case ButtonPress: return "ButtonPress";
539 case ButtonRelease: return "ButtonRelease";
540 case MotionNotify: return "MotionNotify";
541 case EnterNotify: return "EnterNotify";
542 case LeaveNotify: return "LeaveNotify";
543 case FocusIn: return "FocusIn";
544 case FocusOut: return "FocusOut";
545 case KeymapNotify: return "KeymapNotify";
546 case Expose: return "Expose";
547 case GraphicsExpose: return "GraphicsExpose";
548 case NoExpose: return "NoExpose";
549 case VisibilityNotify: return "VisibilityNotify";
550 case CreateNotify: return "CreateNotify";
551 case DestroyNotify: return "DestroyNotify";
552 case UnmapNotify: return "UnmapNotify";
553 case MapNotify: return "MapNotify";
554 case MapRequest: return "MapRequest";
555 case ReparentNotify: return "ReparentNotify";
556 case ConfigureNotify: return "ConfigureNotify";
557 case ConfigureRequest: return "ConfigureRequest";
558 case GravityNotify: return "GravityNotify";
559 case ResizeRequest: return "ResizeRequest";
560 case CirculateNotify: return "CirculateNotify";
561 case CirculateRequest: return "CirculateRequest";
562 case PropertyNotify: return "PropertyNotify";
563 case SelectionClear: return "SelectionClear";
564 case SelectionRequest: return "SelectionRequest";
565 case SelectionNotify: return "SelectionNotify";
566 case ColormapNotify: return "ColormapNotify";
567 case ClientMessage: return "ClientMessage";
568 case MappingNotify: return "MappingNotify";
569 default: return "UNKNOWN";
573 static const char* fghBoolToString( Bool b )
575 return b == False ? "False" : "True";
578 static const char* fghNotifyHintToString( char is_hint )
581 case NotifyNormal: return "NotifyNormal";
582 case NotifyHint: return "NotifyHint";
583 default: return "UNKNOWN";
587 static const char* fghNotifyModeToString( int mode )
590 case NotifyNormal: return "NotifyNormal";
591 case NotifyGrab: return "NotifyGrab";
592 case NotifyUngrab: return "NotifyUngrab";
593 case NotifyWhileGrabbed: return "NotifyWhileGrabbed";
594 default: return "UNKNOWN";
598 static const char* fghNotifyDetailToString( int detail )
601 case NotifyAncestor: return "NotifyAncestor";
602 case NotifyVirtual: return "NotifyVirtual";
603 case NotifyInferior: return "NotifyInferior";
604 case NotifyNonlinear: return "NotifyNonlinear";
605 case NotifyNonlinearVirtual: return "NotifyNonlinearVirtual";
606 case NotifyPointer: return "NotifyPointer";
607 case NotifyPointerRoot: return "NotifyPointerRoot";
608 case NotifyDetailNone: return "NotifyDetailNone";
609 default: return "UNKNOWN";
613 static const char* fghVisibilityToString( int state ) {
615 case VisibilityUnobscured: return "VisibilityUnobscured";
616 case VisibilityPartiallyObscured: return "VisibilityPartiallyObscured";
617 case VisibilityFullyObscured: return "VisibilityFullyObscured";
618 default: return "UNKNOWN";
622 static const char* fghConfigureDetailToString( int detail )
625 case Above: return "Above";
626 case Below: return "Below";
627 case TopIf: return "TopIf";
628 case BottomIf: return "BottomIf";
629 case Opposite: return "Opposite";
630 default: return "UNKNOWN";
634 static const char* fghPlaceToString( int place )
637 case PlaceOnTop: return "PlaceOnTop";
638 case PlaceOnBottom: return "PlaceOnBottom";
639 default: return "UNKNOWN";
643 static const char* fghMappingRequestToString( int request )
646 case MappingModifier: return "MappingModifier";
647 case MappingKeyboard: return "MappingKeyboard";
648 case MappingPointer: return "MappingPointer";
649 default: return "UNKNOWN";
653 static const char* fghPropertyStateToString( int state )
656 case PropertyNewValue: return "PropertyNewValue";
657 case PropertyDelete: return "PropertyDelete";
658 default: return "UNKNOWN";
662 static const char* fghColormapStateToString( int state )
665 case ColormapUninstalled: return "ColormapUninstalled";
666 case ColormapInstalled: return "ColormapInstalled";
667 default: return "UNKNOWN";
671 static void fghPrintEvent( XEvent *event )
673 switch( event->type ) {
677 XKeyEvent *e = &event->xkey;
678 fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
679 "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
680 "keycode=%u, same_screen=%s", fghTypeToString( e->type ),
681 e->window, e->root, e->subwindow, (unsigned long)e->time,
682 e->x, e->y, e->x_root, e->y_root, e->state, e->keycode,
683 fghBoolToString( e->same_screen ) );
688 case ButtonRelease: {
689 XButtonEvent *e = &event->xbutton;
690 fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
691 "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
692 "button=%u, same_screen=%d", fghTypeToString( e->type ),
693 e->window, e->root, e->subwindow, (unsigned long)e->time,
694 e->x, e->y, e->x_root, e->y_root, e->state, e->button,
695 fghBoolToString( e->same_screen ) );
700 XMotionEvent *e = &event->xmotion;
701 fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
702 "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
703 "is_hint=%s, same_screen=%d", fghTypeToString( e->type ),
704 e->window, e->root, e->subwindow, (unsigned long)e->time,
705 e->x, e->y, e->x_root, e->y_root, e->state,
706 fghNotifyHintToString( e->is_hint ),
707 fghBoolToString( e->same_screen ) );
713 XCrossingEvent *e = &event->xcrossing;
714 fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
715 "(x,y)=(%d,%d), mode=%s, detail=%s, same_screen=%d, "
716 "focus=%d, state=0x%x", fghTypeToString( e->type ),
717 e->window, e->root, e->subwindow, (unsigned long)e->time,
718 e->x, e->y, fghNotifyModeToString( e->mode ),
719 fghNotifyDetailToString( e->detail ), (int)e->same_screen,
720 (int)e->focus, e->state );
726 XFocusChangeEvent *e = &event->xfocus;
727 fgWarning( "%s: window=0x%x, mode=%s, detail=%s",
728 fghTypeToString( e->type ), e->window,
729 fghNotifyModeToString( e->mode ),
730 fghNotifyDetailToString( e->detail ) );
735 XKeymapEvent *e = &event->xkeymap;
736 char buf[32 * 2 + 1];
738 for ( i = 0; i < 32; i++ ) {
739 snprintf( &buf[ i * 2 ], sizeof( buf ) - i * 2,
740 "%02x", e->key_vector[ i ] );
743 fgWarning( "%s: window=0x%x, %s", fghTypeToString( e->type ), e->window,
749 XExposeEvent *e = &event->xexpose;
750 fgWarning( "%s: window=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), "
751 "count=%d", fghTypeToString( e->type ), e->window, e->x,
752 e->y, e->width, e->height, e->count );
756 case GraphicsExpose: {
757 XGraphicsExposeEvent *e = &event->xgraphicsexpose;
758 fgWarning( "%s: drawable=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), "
759 "count=%d, (major_code,minor_code)=(%d,%d)",
760 fghTypeToString( e->type ), e->drawable, e->x, e->y,
761 e->width, e->height, e->count, e->major_code,
767 XNoExposeEvent *e = &event->xnoexpose;
768 fgWarning( "%s: drawable=0x%x, (major_code,minor_code)=(%d,%d)",
769 fghTypeToString( e->type ), e->drawable, e->major_code,
774 case VisibilityNotify: {
775 XVisibilityEvent *e = &event->xvisibility;
776 fgWarning( "%s: window=0x%x, state=%s", fghTypeToString( e->type ),
777 e->window, fghVisibilityToString( e->state) );
782 XCreateWindowEvent *e = &event->xcreatewindow;
783 fgWarning( "%s: (x,y)=(%d,%d), (width,height)=(%d,%d), border_width=%d, "
784 "window=0x%x, override_redirect=%s",
785 fghTypeToString( e->type ), e->x, e->y, e->width, e->height,
786 e->border_width, e->window,
787 fghBoolToString( e->override_redirect ) );
791 case DestroyNotify: {
792 XDestroyWindowEvent *e = &event->xdestroywindow;
793 fgWarning( "%s: event=0x%x, window=0x%x",
794 fghTypeToString( e->type ), e->event, e->window );
799 XUnmapEvent *e = &event->xunmap;
800 fgWarning( "%s: event=0x%x, window=0x%x, from_configure=%s",
801 fghTypeToString( e->type ), e->event, e->window,
802 fghBoolToString( e->from_configure ) );
807 XMapEvent *e = &event->xmap;
808 fgWarning( "%s: event=0x%x, window=0x%x, override_redirect=%s",
809 fghTypeToString( e->type ), e->event, e->window,
810 fghBoolToString( e->override_redirect ) );
815 XMapRequestEvent *e = &event->xmaprequest;
816 fgWarning( "%s: parent=0x%x, window=0x%x",
817 fghTypeToString( event->type ), e->parent, e->window );
821 case ReparentNotify: {
822 XReparentEvent *e = &event->xreparent;
823 fgWarning( "%s: event=0x%x, window=0x%x, parent=0x%x, (x,y)=(%d,%d), "
824 "override_redirect=%s", fghTypeToString( e->type ),
825 e->event, e->window, e->parent, e->x, e->y,
826 fghBoolToString( e->override_redirect ) );
830 case ConfigureNotify: {
831 XConfigureEvent *e = &event->xconfigure;
832 fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d), "
833 "(width,height)=(%d,%d), border_width=%d, above=0x%x, "
834 "override_redirect=%s", fghTypeToString( e->type ), e->event,
835 e->window, e->x, e->y, e->width, e->height, e->border_width,
836 e->above, fghBoolToString( e->override_redirect ) );
840 case ConfigureRequest: {
841 XConfigureRequestEvent *e = &event->xconfigurerequest;
842 fgWarning( "%s: parent=0x%x, window=0x%x, (x,y)=(%d,%d), "
843 "(width,height)=(%d,%d), border_width=%d, above=0x%x, "
844 "detail=%s, value_mask=%lx", fghTypeToString( e->type ),
845 e->parent, e->window, e->x, e->y, e->width, e->height,
846 e->border_width, e->above,
847 fghConfigureDetailToString( e->detail ), e->value_mask );
851 case GravityNotify: {
852 XGravityEvent *e = &event->xgravity;
853 fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d)",
854 fghTypeToString( e->type ), e->event, e->window, e->x, e->y );
858 case ResizeRequest: {
859 XResizeRequestEvent *e = &event->xresizerequest;
860 fgWarning( "%s: window=0x%x, (width,height)=(%d,%d)",
861 fghTypeToString( e->type ), e->window, e->width, e->height );
865 case CirculateNotify: {
866 XCirculateEvent *e = &event->xcirculate;
867 fgWarning( "%s: event=0x%x, window=0x%x, place=%s",
868 fghTypeToString( e->type ), e->event, e->window,
869 fghPlaceToString( e->place ) );
873 case CirculateRequest: {
874 XCirculateRequestEvent *e = &event->xcirculaterequest;
875 fgWarning( "%s: parent=0x%x, window=0x%x, place=%s",
876 fghTypeToString( e->type ), e->parent, e->window,
877 fghPlaceToString( e->place ) );
881 case PropertyNotify: {
882 XPropertyEvent *e = &event->xproperty;
883 fgWarning( "%s: window=0x%x, atom=%lu, time=%lu, state=%s",
884 fghTypeToString( e->type ), e->window,
885 (unsigned long)e->atom, (unsigned long)e->time,
886 fghPropertyStateToString( e->state ) );
890 case SelectionClear: {
891 XSelectionClearEvent *e = &event->xselectionclear;
892 fgWarning( "%s: window=0x%x, selection=%lu, time=%lu",
893 fghTypeToString( e->type ), e->window,
894 (unsigned long)e->selection, (unsigned long)e->time );
898 case SelectionRequest: {
899 XSelectionRequestEvent *e = &event->xselectionrequest;
900 fgWarning( "%s: owner=0x%x, requestor=0x%x, selection=0x%x, "
901 "target=0x%x, property=%lu, time=%lu",
902 fghTypeToString( e->type ), e->owner, e->requestor,
903 (unsigned long)e->selection, (unsigned long)e->target,
904 (unsigned long)e->property, (unsigned long)e->time );
908 case SelectionNotify: {
909 XSelectionEvent *e = &event->xselection;
910 fgWarning( "%s: requestor=0x%x, selection=0x%x, target=0x%x, "
911 "property=%lu, time=%lu", fghTypeToString( e->type ),
912 e->requestor, (unsigned long)e->selection,
913 (unsigned long)e->target, (unsigned long)e->property,
914 (unsigned long)e->time );
918 case ColormapNotify: {
919 XColormapEvent *e = &event->xcolormap;
920 fgWarning( "%s: window=0x%x, colormap=%lu, new=%s, state=%s",
921 fghTypeToString( e->type ), e->window,
922 (unsigned long)e->colormap, fghBoolToString( e->new ),
923 fghColormapStateToString( e->state ) );
927 case ClientMessage: {
928 XClientMessageEvent *e = &event->xclient;
931 char* end = buf + sizeof( buf );
933 switch( e->format ) {
935 for ( i = 0; i < 20; i++, p += 3 ) {
936 snprintf( p, end - p, " %02x", e->data.b[ i ] );
940 for ( i = 0; i < 10; i++, p += 5 ) {
941 snprintf( p, end - p, " %04x", e->data.s[ i ] );
945 for ( i = 0; i < 5; i++, p += 9 ) {
946 snprintf( p, end - p, " %08lx", e->data.l[ i ] );
951 fgWarning( "%s: window=0x%x, message_type=%lu, format=%d, data=(%s )",
952 fghTypeToString( e->type ), e->window,
953 (unsigned long)e->message_type, e->format, buf );
957 case MappingNotify: {
958 XMappingEvent *e = &event->xmapping;
959 fgWarning( "%s: window=0x%x, request=%s, first_keycode=%d, count=%d",
960 fghTypeToString( e->type ), e->window,
961 fghMappingRequestToString( e->request ), e->first_keycode,
967 fgWarning( "%s", fghTypeToString( event->type ) );
975 /* -- INTERFACE FUNCTIONS -------------------------------------------------- */
978 * Executes a single iteration in the freeglut processing loop.
980 void FGAPIENTRY glutMainLoopEvent( void )
982 #if TARGET_HOST_POSIX_X11
986 /* This code was repeated constantly, so here it goes into a definition: */
987 #define GETWINDOW(a) \
988 window = fgWindowByHandle( event.a.window ); \
989 if( window == NULL ) \
992 #define GETMOUSE(a) \
993 window->State.MouseX = event.a.x; \
994 window->State.MouseY = event.a.y;
996 FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" );
998 while( XPending( fgDisplay.Display ) )
1000 XNextEvent( fgDisplay.Display, &event );
1002 fghPrintEvent( &event );
1005 switch( event.type )
1008 if(fgIsSpaceballXEvent(&event)) {
1009 fgSpaceballHandleXEvent(&event);
1012 /* Destroy the window when the WM_DELETE_WINDOW message arrives */
1013 if( (Atom) event.xclient.data.l[ 0 ] == fgDisplay.DeleteWindow )
1015 GETWINDOW( xclient );
1017 fgDestroyWindow ( window );
1019 if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )
1024 else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )
1025 fgState.ExecState = GLUT_EXEC_STATE_STOP;
1032 * CreateNotify causes a configure-event so that sub-windows are
1033 * handled compatibly with GLUT. Otherwise, your sub-windows
1034 * (in freeglut only) will not get an initial reshape event,
1035 * which can break things.
1037 * GLUT presumably does this because it generally tries to treat
1038 * sub-windows the same as windows.
1041 case ConfigureNotify:
1044 if( event.type == CreateNotify ) {
1045 GETWINDOW( xcreatewindow );
1046 width = event.xcreatewindow.width;
1047 height = event.xcreatewindow.height;
1049 GETWINDOW( xconfigure );
1050 width = event.xconfigure.width;
1051 height = event.xconfigure.height;
1054 if( ( width != window->State.OldWidth ) ||
1055 ( height != window->State.OldHeight ) )
1057 SFG_Window *current_window = fgStructure.CurrentWindow;
1059 window->State.OldWidth = width;
1060 window->State.OldHeight = height;
1061 if( FETCH_WCB( *window, Reshape ) )
1062 INVOKE_WCB( *window, Reshape, ( width, height ) );
1065 fgSetWindow( window );
1066 glViewport( 0, 0, width, height );
1068 glutPostRedisplay( );
1069 if( window->IsMenu )
1070 fgSetWindow( current_window );
1077 * This is sent to confirm the XDestroyWindow call.
1079 * XXX WHY is this commented out? Should we re-enable it?
1081 /* fgAddToWindowDestroyList ( window ); */
1086 * We are too dumb to process partial exposes...
1088 * XXX Well, we could do it. However, it seems to only
1089 * XXX be potentially useful for single-buffered (since
1090 * XXX double-buffered does not respect viewport when we
1091 * XXX do a buffer-swap).
1094 if( event.xexpose.count == 0 )
1096 GETWINDOW( xexpose );
1097 window->State.Redisplay = GL_TRUE;
1105 /* We get this when iconifying a window. */
1106 GETWINDOW( xunmap );
1107 INVOKE_WCB( *window, WindowStatus, ( GLUT_HIDDEN ) );
1108 window->State.Visible = GL_FALSE;
1113 * Have the client's keyboard knowledge updated (xlib.ps,
1114 * page 206, says that's a good thing to do)
1116 XRefreshKeyboardMapping( (XMappingEvent *) &event );
1119 case VisibilityNotify:
1122 * Sending this event, the X server can notify us that the window
1123 * has just acquired one of the three possible visibility states:
1124 * VisibilityUnobscured, VisibilityPartiallyObscured or
1125 * VisibilityFullyObscured. Note that we DO NOT receive a
1126 * VisibilityNotify event when iconifying a window, we only get an
1129 GETWINDOW( xvisibility );
1130 switch( event.xvisibility.state )
1132 case VisibilityUnobscured:
1133 INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_RETAINED ) );
1134 window->State.Visible = GL_TRUE;
1137 case VisibilityPartiallyObscured:
1138 INVOKE_WCB( *window, WindowStatus,
1139 ( GLUT_PARTIALLY_RETAINED ) );
1140 window->State.Visible = GL_TRUE;
1143 case VisibilityFullyObscured:
1144 INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_COVERED ) );
1145 window->State.Visible = GL_FALSE;
1149 fgWarning( "Unknown X visibility state: %d",
1150 event.xvisibility.state );
1158 GETWINDOW( xcrossing );
1159 GETMOUSE( xcrossing );
1160 if( ( event.type == LeaveNotify ) && window->IsMenu &&
1161 window->ActiveMenu && window->ActiveMenu->IsActive )
1162 fgUpdateMenuHighlight( window->ActiveMenu );
1164 INVOKE_WCB( *window, Entry, ( ( EnterNotify == event.type ) ?
1171 GETWINDOW( xmotion );
1172 GETMOUSE( xmotion );
1174 if( window->ActiveMenu )
1176 if( window == window->ActiveMenu->ParentWindow )
1178 window->ActiveMenu->Window->State.MouseX =
1179 event.xmotion.x_root - window->ActiveMenu->X;
1180 window->ActiveMenu->Window->State.MouseY =
1181 event.xmotion.y_root - window->ActiveMenu->Y;
1184 fgUpdateMenuHighlight( window->ActiveMenu );
1190 * XXX For more than 5 buttons, just check {event.xmotion.state},
1191 * XXX rather than a host of bit-masks? Or maybe we need to
1192 * XXX track ButtonPress/ButtonRelease events in our own
1195 fgState.Modifiers = fghGetXModifiers( event.xmotion.state );
1196 if ( event.xmotion.state & ( Button1Mask | Button2Mask | Button3Mask | Button4Mask | Button5Mask ) ) {
1197 INVOKE_WCB( *window, Motion, ( event.xmotion.x,
1198 event.xmotion.y ) );
1200 INVOKE_WCB( *window, Passive, ( event.xmotion.x,
1201 event.xmotion.y ) );
1203 fgState.Modifiers = INVALID_MODIFIERS;
1210 GLboolean pressed = GL_TRUE;
1213 if( event.type == ButtonRelease )
1214 pressed = GL_FALSE ;
1217 * A mouse button has been pressed or released. Traditionally,
1218 * break if the window was found within the freeglut structures.
1220 GETWINDOW( xbutton );
1221 GETMOUSE( xbutton );
1224 * An X button (at least in XFree86) is numbered from 1.
1225 * A GLUT button is numbered from 0.
1226 * Old GLUT passed through buttons other than just the first
1227 * three, though it only gave symbolic names and official
1228 * support to the first three.
1230 button = event.xbutton.button - 1;
1233 * Do not execute the application's mouse callback if a menu
1234 * is hooked to this button. In that case an appropriate
1235 * private call should be generated.
1237 if( fgCheckActiveMenu( window, button, pressed,
1238 event.xbutton.x_root, event.xbutton.y_root ) )
1242 * Check if there is a mouse or mouse wheel callback hooked to the
1245 if( ! FETCH_WCB( *window, Mouse ) &&
1246 ! FETCH_WCB( *window, MouseWheel ) )
1249 fgState.Modifiers = fghGetXModifiers( event.xbutton.state );
1251 /* Finally execute the mouse or mouse wheel callback */
1252 if( ( button < glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS ) ) || ( ! FETCH_WCB( *window, MouseWheel ) ) )
1253 INVOKE_WCB( *window, Mouse, ( button,
1254 pressed ? GLUT_DOWN : GLUT_UP,
1261 * Map 4 and 5 to wheel zero; EVEN to +1, ODD to -1
1262 * " 6 and 7 " " one; ...
1264 * XXX This *should* be behind some variables/macros,
1265 * XXX since the order and numbering isn't certain
1266 * XXX See XFree86 configuration docs (even back in the
1267 * XXX 3.x days, and especially with 4.x).
1269 * XXX Note that {button} has already been decremeted
1270 * XXX in mapping from X button numbering to GLUT.
1272 int wheel_number = (button - glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS )) / 2;
1278 INVOKE_WCB( *window, MouseWheel, ( wheel_number,
1284 fgState.Modifiers = INVALID_MODIFIERS;
1291 FGCBKeyboard keyboard_cb;
1292 FGCBSpecial special_cb;
1297 /* Detect auto repeated keys, if configured globally or per-window */
1299 if ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE )
1301 if (event.type==KeyRelease)
1304 * Look at X11 keystate to detect repeat mode.
1305 * While X11 says the key is actually held down, we'll ignore KeyRelease/KeyPress pairs.
1309 XQueryKeymap( fgDisplay.Display, keys ); /* Look at X11 keystate to detect repeat mode */
1311 if ( event.xkey.keycode<256 ) /* XQueryKeymap is limited to 256 keycodes */
1313 if ( keys[event.xkey.keycode>>3] & (1<<(event.xkey.keycode%8)) )
1314 window->State.KeyRepeating = GL_TRUE;
1316 window->State.KeyRepeating = GL_FALSE;
1321 window->State.KeyRepeating = GL_FALSE;
1323 /* Cease processing this event if it is auto repeated */
1325 if (window->State.KeyRepeating)
1327 if (event.type == KeyPress) window->State.KeyRepeating = GL_FALSE;
1331 if( event.type == KeyPress )
1333 keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, Keyboard ));
1334 special_cb = (FGCBSpecial) ( FETCH_WCB( *window, Special ));
1338 keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, KeyboardUp ));
1339 special_cb = (FGCBSpecial) ( FETCH_WCB( *window, SpecialUp ));
1342 /* Is there a keyboard/special callback hooked for this window? */
1343 if( keyboard_cb || special_cb )
1345 XComposeStatus composeStatus;
1346 char asciiCode[ 32 ];
1350 /* Check for the ASCII/KeySym codes associated with the event: */
1351 len = XLookupString( &event.xkey, asciiCode, sizeof(asciiCode),
1352 &keySym, &composeStatus
1355 /* GLUT API tells us to have two separate callbacks... */
1358 /* ...one for the ASCII translateable keypresses... */
1361 fgSetWindow( window );
1362 fgState.Modifiers = fghGetXModifiers( event.xkey.state );
1363 keyboard_cb( asciiCode[ 0 ],
1364 event.xkey.x, event.xkey.y
1366 fgState.Modifiers = INVALID_MODIFIERS;
1374 * ...and one for all the others, which need to be
1375 * translated to GLUT_KEY_Xs...
1379 case XK_F1: special = GLUT_KEY_F1; break;
1380 case XK_F2: special = GLUT_KEY_F2; break;
1381 case XK_F3: special = GLUT_KEY_F3; break;
1382 case XK_F4: special = GLUT_KEY_F4; break;
1383 case XK_F5: special = GLUT_KEY_F5; break;
1384 case XK_F6: special = GLUT_KEY_F6; break;
1385 case XK_F7: special = GLUT_KEY_F7; break;
1386 case XK_F8: special = GLUT_KEY_F8; break;
1387 case XK_F9: special = GLUT_KEY_F9; break;
1388 case XK_F10: special = GLUT_KEY_F10; break;
1389 case XK_F11: special = GLUT_KEY_F11; break;
1390 case XK_F12: special = GLUT_KEY_F12; break;
1393 case XK_Left: special = GLUT_KEY_LEFT; break;
1395 case XK_Right: special = GLUT_KEY_RIGHT; break;
1397 case XK_Up: special = GLUT_KEY_UP; break;
1399 case XK_Down: special = GLUT_KEY_DOWN; break;
1402 case XK_Prior: special = GLUT_KEY_PAGE_UP; break;
1404 case XK_Next: special = GLUT_KEY_PAGE_DOWN; break;
1406 case XK_Home: special = GLUT_KEY_HOME; break;
1408 case XK_End: special = GLUT_KEY_END; break;
1410 case XK_Insert: special = GLUT_KEY_INSERT; break;
1412 case XK_Num_Lock : special = GLUT_KEY_NUM_LOCK; break;
1413 case XK_KP_Begin : special = GLUT_KEY_BEGIN; break;
1414 case XK_KP_Delete: special = GLUT_KEY_DELETE; break;
1416 case XK_Shift_L: special = GLUT_KEY_SHIFT_L; break;
1417 case XK_Shift_R: special = GLUT_KEY_SHIFT_R; break;
1418 case XK_Control_L: special = GLUT_KEY_CTRL_L; break;
1419 case XK_Control_R: special = GLUT_KEY_CTRL_R; break;
1420 case XK_Alt_L: special = GLUT_KEY_ALT_L; break;
1421 case XK_Alt_R: special = GLUT_KEY_ALT_R; break;
1425 * Execute the callback (if one has been specified),
1426 * given that the special code seems to be valid...
1428 if( special_cb && (special != -1) )
1430 fgSetWindow( window );
1431 fgState.Modifiers = fghGetXModifiers( event.xkey.state );
1432 special_cb( special, event.xkey.x, event.xkey.y );
1433 fgState.Modifiers = INVALID_MODIFIERS;
1440 case ReparentNotify:
1441 break; /* XXX Should disable this event */
1448 fgWarning ("Unknown X event type: %d\n", event.type);
1453 #elif TARGET_HOST_MS_WINDOWS
1457 FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" );
1459 while( PeekMessage( &stMsg, NULL, 0, 0, PM_NOREMOVE ) )
1461 if( GetMessage( &stMsg, NULL, 0, 0 ) == 0 )
1463 if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )
1468 else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )
1469 fgState.ExecState = GLUT_EXEC_STATE_STOP;
1474 TranslateMessage( &stMsg );
1475 DispatchMessage( &stMsg );
1479 if( fgState.Timers.First )
1481 fghCheckJoystickPolls( );
1488 * Enters the freeglut processing loop.
1489 * Stays until the "ExecState" changes to "GLUT_EXEC_STATE_STOP".
1491 void FGAPIENTRY glutMainLoop( void )
1495 #if TARGET_HOST_MS_WINDOWS
1496 SFG_Window *window = (SFG_Window *)fgStructure.Windows.First ;
1499 FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoop" );
1501 #if TARGET_HOST_MS_WINDOWS
1503 * Processing before the main loop: If there is a window which is open and
1504 * which has a visibility callback, call it. I know this is an ugly hack,
1505 * but I'm not sure what else to do about it. Ideally we should leave
1506 * something uninitialized in the create window code and initialize it in
1507 * the main loop, and have that initialization create a "WM_ACTIVATE"
1508 * message. Then we would put the visibility callback code in the
1509 * "case WM_ACTIVATE" block below. - John Fay -- 10/24/02
1513 if ( FETCH_WCB( *window, Visibility ) )
1515 SFG_Window *current_window = fgStructure.CurrentWindow ;
1517 INVOKE_WCB( *window, Visibility, ( window->State.Visible ) );
1518 fgSetWindow( current_window );
1521 window = (SFG_Window *)window->Node.Next ;
1525 fgState.ExecState = GLUT_EXEC_STATE_RUNNING ;
1526 while( fgState.ExecState == GLUT_EXEC_STATE_RUNNING )
1530 glutMainLoopEvent( );
1532 * Step through the list of windows, seeing if there are any
1533 * that are not menus
1535 for( window = ( SFG_Window * )fgStructure.Windows.First;
1537 window = ( SFG_Window * )window->Node.Next )
1538 if ( ! ( window->IsMenu ) )
1542 fgState.ExecState = GLUT_EXEC_STATE_STOP;
1545 if( fgState.IdleCallback )
1547 if( fgStructure.CurrentWindow &&
1548 fgStructure.CurrentWindow->IsMenu )
1550 fgSetWindow( window );
1551 fgState.IdleCallback( );
1554 fghSleepForEvents( );
1559 * When this loop terminates, destroy the display, state and structure
1560 * of a freeglut session, so that another glutInit() call can happen
1562 * Save the "ActionOnWindowClose" because "fgDeinitialize" resets it.
1564 action = fgState.ActionOnWindowClose;
1566 if( action == GLUT_ACTION_EXIT )
1571 * Leaves the freeglut processing loop.
1573 void FGAPIENTRY glutLeaveMainLoop( void )
1575 FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutLeaveMainLoop" );
1576 fgState.ExecState = GLUT_EXEC_STATE_STOP ;
1580 #if TARGET_HOST_MS_WINDOWS
1582 * Determine a GLUT modifer mask based on MS-WINDOWS system info.
1584 static int fghGetWin32Modifiers (void)
1587 ( ( ( GetKeyState( VK_LSHIFT ) < 0 ) ||
1588 ( GetKeyState( VK_RSHIFT ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |
1589 ( ( ( GetKeyState( VK_LCONTROL ) < 0 ) ||
1590 ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL : 0 ) |
1591 ( ( ( GetKeyState( VK_LMENU ) < 0 ) ||
1592 ( GetKeyState( VK_RMENU ) < 0 )) ? GLUT_ACTIVE_ALT : 0 );
1596 * The window procedure for handling Win32 events
1598 LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam,
1601 static unsigned char lControl = 0, rControl = 0, lShift = 0,
1602 rShift = 0, lAlt = 0, rAlt = 0;
1608 FREEGLUT_INTERNAL_ERROR_EXIT_IF_NOT_INITIALISED ( "Event Handler" ) ;
1610 window = fgWindowByHandle( hWnd );
1612 if ( ( window == NULL ) && ( uMsg != WM_CREATE ) )
1613 return DefWindowProc( hWnd, uMsg, wParam, lParam );
1615 /* printf ( "Window %3d message <%04x> %12d %12d\n", window?window->ID:0,
1616 uMsg, wParam, lParam ); */
1620 /* Checking for CTRL, ALT, and SHIFT key positions: Key Down! */
1621 if ( !lControl && GetAsyncKeyState ( VK_LCONTROL ) )
1623 INVOKE_WCB ( *window, Special,
1624 ( GLUT_KEY_CTRL_L, window->State.MouseX, window->State.MouseY )
1630 if ( !rControl && GetAsyncKeyState ( VK_RCONTROL ) )
1632 INVOKE_WCB ( *window, Special,
1633 ( GLUT_KEY_CTRL_R, window->State.MouseX, window->State.MouseY )
1639 if ( !lShift && GetAsyncKeyState ( VK_LSHIFT ) )
1641 INVOKE_WCB ( *window, Special,
1642 ( GLUT_KEY_SHIFT_L, window->State.MouseX, window->State.MouseY )
1648 if ( !rShift && GetAsyncKeyState ( VK_RSHIFT ) )
1650 INVOKE_WCB ( *window, Special,
1651 ( GLUT_KEY_SHIFT_R, window->State.MouseX, window->State.MouseY )
1657 if ( !lAlt && GetAsyncKeyState ( VK_LMENU ) )
1659 INVOKE_WCB ( *window, Special,
1660 ( GLUT_KEY_ALT_L, window->State.MouseX, window->State.MouseY )
1666 if ( !rAlt && GetAsyncKeyState ( VK_RMENU ) )
1668 INVOKE_WCB ( *window, Special,
1669 ( GLUT_KEY_ALT_R, window->State.MouseX, window->State.MouseY )
1675 /* Checking for CTRL, ALT, and SHIFT key positions: Key Up! */
1676 if ( lControl && !GetAsyncKeyState ( VK_LCONTROL ) )
1678 INVOKE_WCB ( *window, SpecialUp,
1679 ( GLUT_KEY_CTRL_L, window->State.MouseX, window->State.MouseY )
1685 if ( rControl && !GetAsyncKeyState ( VK_RCONTROL ) )
1687 INVOKE_WCB ( *window, SpecialUp,
1688 ( GLUT_KEY_CTRL_R, window->State.MouseX, window->State.MouseY )
1694 if ( lShift && !GetAsyncKeyState ( VK_LSHIFT ) )
1696 INVOKE_WCB ( *window, SpecialUp,
1697 ( GLUT_KEY_SHIFT_L, window->State.MouseX, window->State.MouseY )
1703 if ( rShift && !GetAsyncKeyState ( VK_RSHIFT ) )
1705 INVOKE_WCB ( *window, SpecialUp,
1706 ( GLUT_KEY_SHIFT_R, window->State.MouseX, window->State.MouseY )
1712 if ( lAlt && !GetAsyncKeyState ( VK_LMENU ) )
1714 INVOKE_WCB ( *window, SpecialUp,
1715 ( GLUT_KEY_ALT_L, window->State.MouseX, window->State.MouseY )
1721 if ( rAlt && !GetAsyncKeyState ( VK_RMENU ) )
1723 INVOKE_WCB ( *window, SpecialUp,
1724 ( GLUT_KEY_ALT_R, window->State.MouseX, window->State.MouseY )
1734 /* The window structure is passed as the creation structure paramter... */
1735 window = (SFG_Window *) (((LPCREATESTRUCT) lParam)->lpCreateParams);
1736 FREEGLUT_INTERNAL_ERROR_EXIT ( ( window != NULL ), "Cannot create window",
1739 window->Window.Handle = hWnd;
1740 window->Window.Device = GetDC( hWnd );
1741 if( window->IsMenu )
1743 unsigned int current_DisplayMode = fgState.DisplayMode;
1744 fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH;
1745 #if !defined(_WIN32_WCE)
1746 fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );
1748 fgState.DisplayMode = current_DisplayMode;
1750 if( fgStructure.MenuContext )
1751 wglMakeCurrent( window->Window.Device,
1752 fgStructure.MenuContext->MContext
1756 fgStructure.MenuContext =
1757 (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) );
1758 fgStructure.MenuContext->MContext =
1759 wglCreateContext( window->Window.Device );
1762 /* window->Window.Context = wglGetCurrentContext (); */
1763 window->Window.Context = wglCreateContext( window->Window.Device );
1767 #if !defined(_WIN32_WCE)
1768 fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );
1771 if( ! fgState.UseCurrentContext )
1772 window->Window.Context =
1773 wglCreateContext( window->Window.Device );
1776 window->Window.Context = wglGetCurrentContext( );
1777 if( ! window->Window.Context )
1778 window->Window.Context =
1779 wglCreateContext( window->Window.Device );
1782 #if !defined(_WIN32_WCE)
1783 fgNewWGLCreateContext( window );
1787 window->State.NeedToResize = GL_TRUE;
1788 if( ( window->State.Width < 0 ) || ( window->State.Height < 0 ) )
1790 SFG_Window *current_window = fgStructure.CurrentWindow;
1792 fgSetWindow( window );
1793 window->State.Width = glutGet( GLUT_WINDOW_WIDTH );
1794 window->State.Height = glutGet( GLUT_WINDOW_HEIGHT );
1795 fgSetWindow( current_window );
1798 ReleaseDC( window->Window.Handle, window->Window.Device );
1800 #if defined(_WIN32_WCE)
1801 /* Take over button handling */
1803 HINSTANCE dxDllLib=LoadLibrary(_T("gx.dll"));
1806 GXGetDefaultKeys_=(GXGETDEFAULTKEYS)GetProcAddress(dxDllLib, _T("?GXGetDefaultKeys@@YA?AUGXKeyList@@H@Z"));
1807 GXOpenInput_=(GXOPENINPUT)GetProcAddress(dxDllLib, _T("?GXOpenInput@@YAHXZ"));
1812 if(GXGetDefaultKeys_)
1813 gxKeyList = (*GXGetDefaultKeys_)(GX_LANDSCAPEKEYS);
1816 #endif /* defined(_WIN32_WCE) */
1821 * If the window is visible, then it is the user manually resizing it.
1822 * If it is not, then it is the system sending us a dummy resize with
1823 * zero dimensions on a "glutIconifyWindow" call.
1825 if( window->State.Visible )
1827 window->State.NeedToResize = GL_TRUE;
1828 #if defined(_WIN32_WCE)
1829 window->State.Width = HIWORD(lParam);
1830 window->State.Height = LOWORD(lParam);
1832 window->State.Width = LOWORD(lParam);
1833 window->State.Height = HIWORD(lParam);
1834 #endif /* defined(_WIN32_WCE) */
1840 /* printf("WM_SETFOCUS: %p\n", window ); */
1841 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
1842 INVOKE_WCB( *window, Entry, ( GLUT_ENTERED ) );
1846 /* printf("WM_KILLFOCUS: %p\n", window ); */
1847 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
1848 INVOKE_WCB( *window, Entry, ( GLUT_LEFT ) );
1850 if( window->IsMenu &&
1851 window->ActiveMenu && window->ActiveMenu->IsActive )
1852 fgUpdateMenuHighlight( window->ActiveMenu );
1858 if (LOWORD(wParam) != WA_INACTIVE)
1860 /* printf("WM_ACTIVATE: fgSetCursor( %p, %d)\n", window,
1861 window->State.Cursor ); */
1862 fgSetCursor( window, window->State.Cursor );
1865 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
1870 /* printf ( "Cursor event %x %x %x %x\n", window, window->State.Cursor, lParam, wParam ) ; */
1871 if( LOWORD( lParam ) == HTCLIENT )
1872 fgSetCursor ( window, window->State.Cursor ) ;
1874 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
1878 window->State.Visible = GL_TRUE;
1879 window->State.Redisplay = GL_TRUE;
1883 /* Turn on the visibility in case it was turned off somehow */
1884 window->State.Visible = GL_TRUE;
1885 BeginPaint( hWnd, &ps );
1886 fghRedrawWindow( window );
1887 EndPaint( hWnd, &ps );
1891 fgDestroyWindow ( window );
1892 if ( fgState.ActionOnWindowClose != GLUT_ACTION_CONTINUE_EXECUTION )
1898 * The window already got destroyed, so don't bother with it.
1904 #if defined(_WIN32_WCE)
1905 window->State.MouseX = 320-HIWORD( lParam );
1906 window->State.MouseY = LOWORD( lParam );
1908 window->State.MouseX = LOWORD( lParam );
1909 window->State.MouseY = HIWORD( lParam );
1910 #endif /* defined(_WIN32_WCE) */
1911 /* Restrict to [-32768, 32767] to match X11 behaviour */
1912 /* See comment in "freeglut_developer" mailing list 10/4/04 */
1913 if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;
1914 if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;
1916 if ( window->ActiveMenu )
1918 fgUpdateMenuHighlight( window->ActiveMenu );
1922 fgState.Modifiers = fghGetWin32Modifiers( );
1924 if( ( wParam & MK_LBUTTON ) ||
1925 ( wParam & MK_MBUTTON ) ||
1926 ( wParam & MK_RBUTTON ) )
1927 INVOKE_WCB( *window, Motion, ( window->State.MouseX,
1928 window->State.MouseY ) );
1930 INVOKE_WCB( *window, Passive, ( window->State.MouseX,
1931 window->State.MouseY ) );
1933 fgState.Modifiers = INVALID_MODIFIERS;
1937 case WM_LBUTTONDOWN:
1938 case WM_MBUTTONDOWN:
1939 case WM_RBUTTONDOWN:
1944 GLboolean pressed = GL_TRUE;
1947 #if defined(_WIN32_WCE)
1948 window->State.MouseX = 320-HIWORD( lParam );
1949 window->State.MouseY = LOWORD( lParam );
1951 window->State.MouseX = LOWORD( lParam );
1952 window->State.MouseY = HIWORD( lParam );
1953 #endif /* defined(_WIN32_WCE) */
1955 /* Restrict to [-32768, 32767] to match X11 behaviour */
1956 /* See comment in "freeglut_developer" mailing list 10/4/04 */
1957 if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;
1958 if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;
1962 case WM_LBUTTONDOWN:
1964 button = GLUT_LEFT_BUTTON;
1966 case WM_MBUTTONDOWN:
1968 button = GLUT_MIDDLE_BUTTON;
1970 case WM_RBUTTONDOWN:
1972 button = GLUT_RIGHT_BUTTON;
1976 button = GLUT_LEFT_BUTTON;
1980 button = GLUT_MIDDLE_BUTTON;
1984 button = GLUT_RIGHT_BUTTON;
1992 #if !defined(_WIN32_WCE)
1993 if( GetSystemMetrics( SM_SWAPBUTTON ) )
1995 if( button == GLUT_LEFT_BUTTON )
1996 button = GLUT_RIGHT_BUTTON;
1998 if( button == GLUT_RIGHT_BUTTON )
1999 button = GLUT_LEFT_BUTTON;
2001 #endif /* !defined(_WIN32_WCE) */
2004 return DefWindowProc( hWnd, uMsg, lParam, wParam );
2007 * Do not execute the application's mouse callback if a menu
2008 * is hooked to this button. In that case an appropriate
2009 * private call should be generated.
2011 if( fgCheckActiveMenu( window, button, pressed,
2012 window->State.MouseX, window->State.MouseY ) )
2015 /* Set capture so that the window captures all the mouse messages */
2017 * XXX - Multiple button support: Under X11, the mouse is not released
2018 * XXX - from the window until all buttons have been released, even if the
2019 * XXX - user presses a button in another window. This will take more
2020 * XXX - code changes than I am up to at the moment (10/5/04). The present
2021 * XXX - is a 90 percent solution.
2023 if ( pressed == GL_TRUE )
2024 SetCapture ( window->Window.Handle ) ;
2028 if( ! FETCH_WCB( *window, Mouse ) )
2031 fgSetWindow( window );
2032 fgState.Modifiers = fghGetWin32Modifiers( );
2037 pressed ? GLUT_DOWN : GLUT_UP,
2038 window->State.MouseX,
2039 window->State.MouseY
2043 fgState.Modifiers = INVALID_MODIFIERS;
2048 /* Should be WM_MOUSEWHEEL but my compiler doesn't recognize it */
2051 * XXX THIS IS SPECULATIVE -- John Fay, 10/2/03
2052 * XXX Should use WHEEL_DELTA instead of 120
2054 int wheel_number = LOWORD( wParam );
2055 short ticks = ( short )HIWORD( wParam ) / 120;
2065 * The mouse cursor has moved. Remember the new mouse cursor's position
2067 /* window->State.MouseX = LOWORD( lParam ); */
2068 /* Need to adjust by window position, */
2069 /* window->State.MouseY = HIWORD( lParam ); */
2070 /* change "lParam" to other parameter */
2072 if( ! FETCH_WCB( *window, MouseWheel ) &&
2073 ! FETCH_WCB( *window, Mouse ) )
2076 fgSetWindow( window );
2077 fgState.Modifiers = fghGetWin32Modifiers( );
2080 if( FETCH_WCB( *window, MouseWheel ) )
2081 INVOKE_WCB( *window, MouseWheel,
2084 window->State.MouseX,
2085 window->State.MouseY
2088 else /* No mouse wheel, call the mouse button callback twice */
2091 * Map wheel zero to button 3 and 4; +1 to 3, -1 to 4
2092 * " " one +1 to 5, -1 to 6, ...
2094 * XXX The below assumes that you have no more than 3 mouse
2095 * XXX buttons. Sorry.
2097 int button = wheel_number * 2 + 3;
2100 INVOKE_WCB( *window, Mouse,
2101 ( button, GLUT_DOWN,
2102 window->State.MouseX, window->State.MouseY )
2104 INVOKE_WCB( *window, Mouse,
2106 window->State.MouseX, window->State.MouseY )
2110 fgState.Modifiers = INVALID_MODIFIERS;
2120 if( ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE ) && (HIWORD(lParam) & KF_REPEAT) )
2124 * Remember the current modifiers state. This is done here in order
2125 * to make sure the VK_DELETE keyboard callback is executed properly.
2127 fgState.Modifiers = fghGetWin32Modifiers( );
2129 GetCursorPos( &mouse_pos );
2130 ScreenToClient( window->Window.Handle, &mouse_pos );
2132 window->State.MouseX = mouse_pos.x;
2133 window->State.MouseY = mouse_pos.y;
2135 /* Convert the Win32 keystroke codes to GLUTtish way */
2136 # define KEY(a,b) case a: keypress = b; break;
2140 KEY( VK_F1, GLUT_KEY_F1 );
2141 KEY( VK_F2, GLUT_KEY_F2 );
2142 KEY( VK_F3, GLUT_KEY_F3 );
2143 KEY( VK_F4, GLUT_KEY_F4 );
2144 KEY( VK_F5, GLUT_KEY_F5 );
2145 KEY( VK_F6, GLUT_KEY_F6 );
2146 KEY( VK_F7, GLUT_KEY_F7 );
2147 KEY( VK_F8, GLUT_KEY_F8 );
2148 KEY( VK_F9, GLUT_KEY_F9 );
2149 KEY( VK_F10, GLUT_KEY_F10 );
2150 KEY( VK_F11, GLUT_KEY_F11 );
2151 KEY( VK_F12, GLUT_KEY_F12 );
2152 KEY( VK_PRIOR, GLUT_KEY_PAGE_UP );
2153 KEY( VK_NEXT, GLUT_KEY_PAGE_DOWN );
2154 KEY( VK_HOME, GLUT_KEY_HOME );
2155 KEY( VK_END, GLUT_KEY_END );
2156 KEY( VK_LEFT, GLUT_KEY_LEFT );
2157 KEY( VK_UP, GLUT_KEY_UP );
2158 KEY( VK_RIGHT, GLUT_KEY_RIGHT );
2159 KEY( VK_DOWN, GLUT_KEY_DOWN );
2160 KEY( VK_INSERT, GLUT_KEY_INSERT );
2161 KEY( VK_LCONTROL, GLUT_KEY_CTRL_L );
2162 KEY( VK_RCONTROL, GLUT_KEY_CTRL_R );
2163 KEY( VK_LSHIFT, GLUT_KEY_SHIFT_L );
2164 KEY( VK_RSHIFT, GLUT_KEY_SHIFT_R );
2165 KEY( VK_LMENU, GLUT_KEY_ALT_L );
2166 KEY( VK_RMENU, GLUT_KEY_ALT_R );
2169 /* The delete key should be treated as an ASCII keypress: */
2170 INVOKE_WCB( *window, Keyboard,
2171 ( 127, window->State.MouseX, window->State.MouseY )
2175 #if defined(_WIN32_WCE)
2176 if(!(lParam & 0x40000000)) /* Prevent auto-repeat */
2178 if(wParam==(unsigned)gxKeyList.vkRight)
2179 keypress = GLUT_KEY_RIGHT;
2180 else if(wParam==(unsigned)gxKeyList.vkLeft)
2181 keypress = GLUT_KEY_LEFT;
2182 else if(wParam==(unsigned)gxKeyList.vkUp)
2183 keypress = GLUT_KEY_UP;
2184 else if(wParam==(unsigned)gxKeyList.vkDown)
2185 keypress = GLUT_KEY_DOWN;
2186 else if(wParam==(unsigned)gxKeyList.vkA)
2187 keypress = GLUT_KEY_F1;
2188 else if(wParam==(unsigned)gxKeyList.vkB)
2189 keypress = GLUT_KEY_F2;
2190 else if(wParam==(unsigned)gxKeyList.vkC)
2191 keypress = GLUT_KEY_F3;
2192 else if(wParam==(unsigned)gxKeyList.vkStart)
2193 keypress = GLUT_KEY_F4;
2197 if( keypress != -1 )
2198 INVOKE_WCB( *window, Special,
2200 window->State.MouseX, window->State.MouseY )
2203 fgState.Modifiers = INVALID_MODIFIERS;
2214 * Remember the current modifiers state. This is done here in order
2215 * to make sure the VK_DELETE keyboard callback is executed properly.
2217 fgState.Modifiers = fghGetWin32Modifiers( );
2219 GetCursorPos( &mouse_pos );
2220 ScreenToClient( window->Window.Handle, &mouse_pos );
2222 window->State.MouseX = mouse_pos.x;
2223 window->State.MouseY = mouse_pos.y;
2226 * Convert the Win32 keystroke codes to GLUTtish way.
2227 * "KEY(a,b)" was defined under "WM_KEYDOWN"
2232 KEY( VK_F1, GLUT_KEY_F1 );
2233 KEY( VK_F2, GLUT_KEY_F2 );
2234 KEY( VK_F3, GLUT_KEY_F3 );
2235 KEY( VK_F4, GLUT_KEY_F4 );
2236 KEY( VK_F5, GLUT_KEY_F5 );
2237 KEY( VK_F6, GLUT_KEY_F6 );
2238 KEY( VK_F7, GLUT_KEY_F7 );
2239 KEY( VK_F8, GLUT_KEY_F8 );
2240 KEY( VK_F9, GLUT_KEY_F9 );
2241 KEY( VK_F10, GLUT_KEY_F10 );
2242 KEY( VK_F11, GLUT_KEY_F11 );
2243 KEY( VK_F12, GLUT_KEY_F12 );
2244 KEY( VK_PRIOR, GLUT_KEY_PAGE_UP );
2245 KEY( VK_NEXT, GLUT_KEY_PAGE_DOWN );
2246 KEY( VK_HOME, GLUT_KEY_HOME );
2247 KEY( VK_END, GLUT_KEY_END );
2248 KEY( VK_LEFT, GLUT_KEY_LEFT );
2249 KEY( VK_UP, GLUT_KEY_UP );
2250 KEY( VK_RIGHT, GLUT_KEY_RIGHT );
2251 KEY( VK_DOWN, GLUT_KEY_DOWN );
2252 KEY( VK_INSERT, GLUT_KEY_INSERT );
2253 KEY( VK_LCONTROL, GLUT_KEY_CTRL_L );
2254 KEY( VK_RCONTROL, GLUT_KEY_CTRL_R );
2255 KEY( VK_LSHIFT, GLUT_KEY_SHIFT_L );
2256 KEY( VK_RSHIFT, GLUT_KEY_SHIFT_R );
2257 KEY( VK_LMENU, GLUT_KEY_ALT_L );
2258 KEY( VK_RMENU, GLUT_KEY_ALT_R );
2261 /* The delete key should be treated as an ASCII keypress: */
2262 INVOKE_WCB( *window, KeyboardUp,
2263 ( 127, window->State.MouseX, window->State.MouseY )
2269 #if !defined(_WIN32_WCE)
2273 GetKeyboardState( state );
2275 if( ToAscii( (UINT)wParam, 0, state, code, 0 ) == 1 )
2278 INVOKE_WCB( *window, KeyboardUp,
2280 window->State.MouseX, window->State.MouseY )
2282 #endif /* !defined(_WIN32_WCE) */
2286 if( keypress != -1 )
2287 INVOKE_WCB( *window, SpecialUp,
2289 window->State.MouseX, window->State.MouseY )
2292 fgState.Modifiers = INVALID_MODIFIERS;
2299 if( (fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE) && (HIWORD(lParam) & KF_REPEAT) )
2302 fgState.Modifiers = fghGetWin32Modifiers( );
2303 INVOKE_WCB( *window, Keyboard,
2305 window->State.MouseX, window->State.MouseY )
2307 fgState.Modifiers = INVALID_MODIFIERS;
2311 case WM_CAPTURECHANGED:
2312 /* User has finished resizing the window, force a redraw */
2313 INVOKE_WCB( *window, Display, ( ) );
2315 /*lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); */
2318 /* Other messages that I have seen and which are not handled already */
2319 case WM_SETTEXT: /* 0x000c */
2320 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2321 /* Pass it on to "DefWindowProc" to set the window text */
2324 case WM_GETTEXT: /* 0x000d */
2325 /* Ideally we would copy the title of the window into "lParam" */
2326 /* strncpy ( (char *)lParam, "Window Title", wParam );
2327 lRet = ( wParam > 12 ) ? 12 : wParam; */
2328 /* the number of characters copied */
2329 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2332 case WM_GETTEXTLENGTH: /* 0x000e */
2333 /* Ideally we would get the length of the title of the window */
2335 /* the number of characters in "Window Title\0" (see above) */
2338 case WM_ERASEBKGND: /* 0x0014 */
2339 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2342 #if !defined(_WIN32_WCE)
2343 case WM_SYNCPAINT: /* 0x0088 */
2344 /* Another window has moved, need to update this one */
2345 window->State.Redisplay = GL_TRUE;
2346 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2347 /* Help screen says this message must be passed to "DefWindowProc" */
2350 case WM_NCPAINT: /* 0x0085 */
2351 /* Need to update the border of this window */
2352 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2353 /* Pass it on to "DefWindowProc" to repaint a standard border */
2356 case WM_SYSCOMMAND : /* 0x0112 */
2359 * We have received a system command message. Try to act on it.
2360 * The commands are passed in through the "wParam" parameter:
2361 * The least significant digit seems to be which edge of the window
2362 * is being used for a resize event:
2366 * Congratulations and thanks to Richard Rauch for figuring this out..
2368 switch ( wParam & 0xfff0 )
2377 /* User has clicked on the "-" to minimize the window */
2378 /* Turn off the visibility */
2379 window->State.Visible = GL_FALSE ;
2386 case SC_NEXTWINDOW :
2389 case SC_PREVWINDOW :
2393 /* Followed very closely by a WM_CLOSE message */
2417 case SC_SCREENSAVE :
2423 #if(WINVER >= 0x0400)
2427 case SC_MONITORPOWER :
2430 case SC_CONTEXTHELP :
2432 #endif /* WINVER >= 0x0400 */
2436 fgWarning( "Unknown wParam type 0x%x", wParam );
2441 #endif /* !defined(_WIN32_WCE) */
2443 /* We need to pass the message on to the operating system as well */
2444 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2448 /* Handle unhandled messages */
2449 lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
2457 /*** END OF FILE ***/