Added support for sRGB framebuffers via the GLX_ARB_framebuffer_sRGB /
[freeglut] / src / freeglut_main.c
index ee20be9..3a6de78 100644 (file)
  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  */
 
-#ifdef HAVE_CONFIG_H
-#include "config.h"
+#include <GL/freeglut.h>
+#include "freeglut_internal.h"
+#include <errno.h>
+#include <stdarg.h>
+#if  HAVE_VPRINTF
+#    define VFPRINTF(s,f,a) vfprintf((s),(f),(a))
+#elif HAVE_DOPRNT
+#    define VFPRINTF(s,f,a) _doprnt((f),(a),(s))
+#else
+#    define VFPRINTF(s,f,a)
 #endif
 
-#define  G_LOG_DOMAIN  "freeglut-main"
+#ifdef _WIN32_WCE
 
-#include "../include/GL/freeglut.h"
-#include "freeglut_internal.h"
+typedef struct GXDisplayProperties GXDisplayProperties;
+typedef struct GXKeyList GXKeyList;
+#include <gx.h>
 
-#include <limits.h>
-#if TARGET_HOST_UNIX_X11
-#include <sys/types.h>
-#include <sys/time.h>
-#include <unistd.h>
-#include <errno.h>
-#include <sys/stat.h>
-#elif TARGET_HOST_WIN32
-#endif
+typedef struct GXKeyList (*GXGETDEFAULTKEYS)(int);
+typedef int (*GXOPENINPUT)();
+
+GXGETDEFAULTKEYS GXGetDefaultKeys_ = NULL;
+GXOPENINPUT GXOpenInput_ = NULL;
+
+struct GXKeyList gxKeyList;
 
-#ifndef MAX
-#define MAX(a,b) (((a)>(b)) ? (a) : (b))
+#endif /* _WIN32_WCE */
+
+/*
+ * Try to get the maximum value allowed for ints, falling back to the minimum
+ * guaranteed by ISO C99 if there is no suitable header.
+ */
+#if HAVE_LIMITS_H
+#    include <limits.h>
+#endif
+#ifndef INT_MAX
+#    define INT_MAX 32767
 #endif
 
 #ifndef MIN
-#define MIN(a,b) (((a)<(b)) ? (a) : (b))
+#    define MIN(a,b) (((a)<(b)) ? (a) : (b))
 #endif
 
 
 /* -- PRIVATE FUNCTIONS ---------------------------------------------------- */
 
 /*
- * Calls a window's redraw method. This is used when
- * a redraw is forced by the incoming window messages.
+ * Handle a window configuration change. When no reshape
+ * callback is hooked, the viewport size is updated to
+ * match the new window size.
  */
-
-static void fghRedrawWindowByHandle
-#if TARGET_HOST_UNIX_X11
-    ( Window handle )
-#elif TARGET_HOST_WIN32
-    ( HWND handle )
-#endif
+static void fghReshapeWindow ( SFG_Window *window, int width, int height )
 {
-    /*
-     * Find the window we have to redraw...
-     */
-    SFG_Window* window = fgWindowByHandle( handle );
+    SFG_Window *current_window = fgStructure.CurrentWindow;
+
     freeglut_return_if_fail( window != NULL );
 
-    /*
-     * Check if there is a display callback hooked to it
-     */
-    freeglut_return_if_fail( window->Callbacks.Display != NULL );
 
-    /*
-     * Return if the window is not visible
-     */
-    freeglut_return_if_fail( window->State.Visible == TRUE );
+#if TARGET_HOST_POSIX_X11
 
-    /*
-     * Set the window as the current one.
-     */
-    fgSetWindow( window );
+    XResizeWindow( fgDisplay.Display, window->Window.Handle,
+                   width, height );
+    XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
 
-    /*
-     * Do not exagerate with the redisplaying
-     */
-    window->State.Redisplay = FALSE;
+#elif TARGET_HOST_MS_WINDOWS && !defined(_WIN32_WCE)
+    {
+        RECT winRect;
+        int x, y, w, h;
 
-    /*
-     * Have the callback executed now. The buffers should
-     * be swapped by the glutSwapBuffers() execution inside
-     * the callback itself.
-     */
+        /*
+         * For windowed mode, get the current position of the
+         * window and resize taking the size of the frame
+         * decorations into account.
+         */
 
-    window->Callbacks.Display();
-}
+        /* "GetWindowRect" returns the pixel coordinates of the outside of the window */
+        GetWindowRect( window->Window.Handle, &winRect );
+        x = winRect.left;
+        y = winRect.top;
+        w = width;
+        h = height;
 
-/*
- * Handle a window configuration change. When no reshape
- * callback is hooked, the viewport size is updated to
- * match the new window size.
- */
-static void fghReshapeWindowByHandle
-#if TARGET_HOST_UNIX_X11
-    ( Window handle, int width, int height )
-#elif TARGET_HOST_WIN32
-    ( HWND handle, int width, int height )
-#endif
-{
-  SFG_Window *current_window = fgStructure.Window ;
+        if ( window->Parent == NULL )
+        {
+            if ( ! window->IsMenu && (window != fgStructure.GameModeWindow) )
+            {
+                w += GetSystemMetrics( SM_CXSIZEFRAME ) * 2;
+                h += GetSystemMetrics( SM_CYSIZEFRAME ) * 2 +
+                     GetSystemMetrics( SM_CYCAPTION );
+            }
+        }
+        else
+        {
+            RECT parentRect;
+            GetWindowRect( window->Parent->Window.Handle, &parentRect );
+            x -= parentRect.left + GetSystemMetrics( SM_CXSIZEFRAME ) * 2;
+            y -= parentRect.top  + GetSystemMetrics( SM_CYSIZEFRAME ) * 2 +
+                                   GetSystemMetrics( SM_CYCAPTION );
+        }
 
-    /*
-     * Find the window that received the reshape event
-     */
-    SFG_Window* window = fgWindowByHandle( handle );
-    freeglut_return_if_fail( window != NULL );
+        /*
+         * SWP_NOACTIVATE      Do not activate the window
+         * SWP_NOOWNERZORDER   Do not change position in z-order
+         * SWP_NOSENDCHANGING  Supress WM_WINDOWPOSCHANGING message
+         * SWP_NOZORDER        Retains the current Z order (ignore 2nd param)
+         */
 
-    /*
-     * Remember about setting the current window...
-     */
-    fgSetWindow( window );
+        SetWindowPos( window->Window.Handle,
+                      HWND_TOP,
+                      x, y, w, h,
+                      SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING |
+                      SWP_NOZORDER
+        );
+    }
+#endif
 
     /*
-     * Check if there is a reshape callback hooked
+     * XXX Should update {window->State.OldWidth, window->State.OldHeight}
+     * XXX to keep in lockstep with POSIX_X11 code.
      */
-    if( window->Callbacks.Reshape != NULL )
-    {
-        /*
-         * OKi, have it called immediately
-         */
-        window->Callbacks.Reshape( width, height );
-    }
+    if( FETCH_WCB( *window, Reshape ) )
+        INVOKE_WCB( *window, Reshape, ( width, height ) );
     else
     {
-        /*
-         * Otherwise just resize the viewport
-         */
+        fgSetWindow( window );
         glViewport( 0, 0, width, height );
     }
 
     /*
-     * Force a window redraw.  In Windows at least this is only a partial solution:  if the
-     * window is increasing in size in either dimension, the already-drawn part does not get
-     * drawn again and things look funny.  But without this we get this bad behaviour whenever
-     * we resize the window.
+     * Force a window redraw.  In Windows at least this is only a partial
+     * solution:  if the window is increasing in size in either dimension,
+     * the already-drawn part does not get drawn again and things look funny.
+     * But without this we get this bad behaviour whenever we resize the
+     * window.
      */
-    window->State.Redisplay = TRUE ;
+    window->State.Redisplay = GL_TRUE;
 
-    /*
-     * If this is a menu, restore the active window
-     */
-    if ( window->IsMenu )
-      fgSetWindow ( current_window ) ;
+    if( window->IsMenu )
+        fgSetWindow( current_window );
 }
 
 /*
- * A static helper function to execute display callback for a window
+ * Calls a window's redraw method. This is used when
+ * a redraw is forced by the incoming window messages.
  */
-static void fghcbDisplayWindow( SFG_Window *window, SFG_Enumerator *enumerator )
+static void fghRedrawWindow ( SFG_Window *window )
 {
-#if TARGET_HOST_UNIX_X11
-    /*
-     * Check if there is an idle callback hooked
-     */
-    if( (window->Callbacks.Display != NULL) &&
-        (window->State.Redisplay == TRUE) &&
-        (window->State.Visible == TRUE) )
-    {
-        SFG_Window *current_window = fgStructure.Window ;
-
-        /*
-         * OKi, this is the case: have the window set as the current one
-         */
-        fgSetWindow( window );
+    SFG_Window *current_window = fgStructure.CurrentWindow;
 
-        /*
-         * Do not exagerate with the redisplaying
-         */
-        window->State.Redisplay = FALSE;
+    freeglut_return_if_fail( window );
+    freeglut_return_if_fail( FETCH_WCB ( *window, Display ) );
 
-        /*
-         * And execute the display callback immediately after
-         */
-        window->Callbacks.Display();
+    window->State.Redisplay = GL_FALSE;
 
-        fgSetWindow ( current_window ) ;
-    }
+    freeglut_return_if_fail( window->State.Visible );
 
-#elif TARGET_HOST_WIN32
+    fgSetWindow( window );
 
-    /*
-     * Do we need to explicitly resize the window?
-     */
     if( window->State.NeedToResize )
     {
-        SFG_Window *current_window = fgStructure.Window ;
-
-        fgSetWindow( window );
-
-        fghReshapeWindowByHandle( 
-            window->Window.Handle,
-            glutGet( GLUT_WINDOW_WIDTH ),
-            glutGet( GLUT_WINDOW_HEIGHT )
+        fghReshapeWindow(
+            window,
+            window->State.Width,
+            window->State.Height
         );
 
-        /*
-         * Never ever do that again:
-         */
-        window->State.NeedToResize = FALSE;
-
-        fgSetWindow ( current_window ) ;
+        window->State.NeedToResize = GL_FALSE;
     }
 
-    /*
-     * This is done in a bit different way under Windows
-     */
-    if( (window->Callbacks.Display != NULL) &&
-        (window->State.Redisplay == TRUE) &&
-        (window->State.Visible == TRUE) )
-    {
-      /*
-       * Do not exagerate with the redisplaying
-       */
-      window->State.Redisplay = FALSE;
-
-      RedrawWindow( 
-        window->Window.Handle, NULL, NULL, 
-        RDW_NOERASE | RDW_INTERNALPAINT | RDW_INVALIDATE | RDW_UPDATENOW
-       );
-    }
+    INVOKE_WCB( *window, Display, ( ) );
+
+    fgSetWindow( current_window );
+}
 
+/*
+ * A static helper function to execute display callback for a window
+ */
+static void fghcbDisplayWindow( SFG_Window *window,
+                                SFG_Enumerator *enumerator )
+{
+    if( window->State.Redisplay &&
+        window->State.Visible )
+    {
+        window->State.Redisplay = GL_FALSE;
+
+#if TARGET_HOST_POSIX_X11
+        fghRedrawWindow ( window ) ;
+#elif TARGET_HOST_MS_WINDOWS
+        RedrawWindow(
+            window->Window.Handle, NULL, NULL,
+            RDW_NOERASE | RDW_INTERNALPAINT | RDW_INVALIDATE | RDW_UPDATENOW
+        );
 #endif
+    }
 
-    /*
-     * Process this window's children (if any)
-     */
     fgEnumSubWindows( window, fghcbDisplayWindow, enumerator );
 }
 
@@ -262,44 +241,29 @@ static void fghDisplayAll( void )
 {
     SFG_Enumerator enumerator;
 
-    /*
-     * Uses a method very similiar for fgWindowByHandle...
-     */
-    enumerator.found = FALSE;
+    enumerator.found = GL_FALSE;
     enumerator.data  =  NULL;
 
-    /*
-     * Start the enumeration now:
-     */
     fgEnumWindows( fghcbDisplayWindow, &enumerator );
 }
 
 /*
  * Window enumerator callback to check for the joystick polling code
  */
-static void fghcbCheckJoystickPolls( SFG_Window *window, SFG_Enumerator *enumerator )
+static void fghcbCheckJoystickPolls( SFG_Window *window,
+                                     SFG_Enumerator *enumerator )
 {
-    long int checkTime = fgElapsedTime();
+    long int checkTime = fgElapsedTime( );
 
-    /*
-     * Check if actually need to do the poll for the currently enumerated window:
-     */
-    if( window->State.JoystickLastPoll + window->State.JoystickPollRate <= checkTime )
+    if( window->State.JoystickLastPoll + window->State.JoystickPollRate <=
+        checkTime )
     {
-        /*
-         * Yeah, that's it. Poll the joystick...
-         */
+#if !defined(_WIN32_WCE)
         fgJoystickPollWindow( window );
-
-        /*
-         * ...and reset the polling counters:
-         */
+#endif /* !defined(_WIN32_WCE) */
         window->State.JoystickLastPoll = checkTime;
     }
 
-    /*
-     * Process this window's children (if any)
-     */
     fgEnumSubWindows( window, fghcbCheckJoystickPolls, enumerator );
 }
 
@@ -310,15 +274,9 @@ static void fghCheckJoystickPolls( void )
 {
     SFG_Enumerator enumerator;
 
-    /*
-     * Uses a method very similiar for fgWindowByHandle...
-     */
-    enumerator.found = FALSE;
+    enumerator.found = GL_FALSE;
     enumerator.data  =  NULL;
 
-    /*
-     * Start the enumeration now:
-     */
     fgEnumWindows( fghcbCheckJoystickPolls, &enumerator );
 }
 
@@ -327,64 +285,48 @@ static void fghCheckJoystickPolls( void )
  */
 static void fghCheckTimers( void )
 {
-    long checkTime = fgElapsedTime();
-    SFG_Timer *timer, *next;
-    SFG_List timedOut;
-
-    fgListInit(&timedOut);
+    long checkTime = fgElapsedTime( );
 
-    /*
-     * For every timer that is waiting for triggering
-     */
-    for( timer = (SFG_Timer *)fgState.Timers.First; timer; timer = (SFG_Timer *)next )
+    while( fgState.Timers.First )
     {
-             next = (SFG_Timer *)timer->Node.Next;
+        SFG_Timer *timer = fgState.Timers.First;
 
-        /*
-         * Check for the timeout:
-         */
-        if( timer->TriggerTime <= checkTime )
-        {
-            /*
-             * Add the timer to the timed out timers list
-             */
-                 fgListRemove( &fgState.Timers, &timer->Node );
-            fgListAppend( &timedOut, &timer->Node );
-        }
-    }
+        if( timer->TriggerTime > checkTime )
+            break;
 
-    /*
-     * Now feel free to execute all the hooked and timed out timer callbacks
-     * And delete the timed out timers...
-     */
-    while ( (timer = (SFG_Timer *)timedOut.First) )
-    {
-        if( timer->Callback != NULL )
-            timer->Callback( timer->ID );
-       fgListRemove( &timedOut, &timer->Node );
-        free( timer );
+        fgListRemove( &fgState.Timers, &timer->Node );
+        fgListAppend( &fgState.FreeTimers, &timer->Node );
+
+        timer->Callback( timer->ID );
     }
 }
 
-
+/* Platform-dependent time in milliseconds, as an unsigned 32-bit integer.
+ * This value wraps every 49.7 days, but integer overflows cancel
+ * when subtracting an initial start time, unless the total time exceeds
+ * 32-bit, where the GLUT API return value is also overflowed.
+ */  
+unsigned long fgSystemTime(void) {
+#if TARGET_HOST_SOLARIS || HAVE_GETTIMEOFDAY
+    struct timeval now;
+    gettimeofday( &now, NULL );
+    return now.tv_usec/1000 + now.tv_sec*1000;
+#elif TARGET_HOST_MS_WINDOWS
+#    if defined(_WIN32_WCE)
+    return GetTickCount();
+#    else
+    return timeGetTime();
+#    endif
+#endif
+}
+  
 /*
  * Elapsed Time
  */
 long fgElapsedTime( void )
 {
-#if TARGET_HOST_UNIX_X11
-       struct timeval now;
-       long elapsed;
-
-       gettimeofday( &now, NULL );
-
-       elapsed = (now.tv_usec - fgState.Time.Value.tv_usec) / 1000;
-       elapsed += (now.tv_sec - fgState.Time.Value.tv_sec) * 1000;
-
-       return( elapsed );
-#elif TARGET_HOST_WIN32
-  return (timeGetTime() - fgState.Time.Value);
-#endif
+    return (long) (fgSystemTime() - fgState.Time);
 }
 
 /*
@@ -396,12 +338,17 @@ void fgError( const char *fmt, ... )
 
     va_start( ap, fmt );
 
-    fprintf( stderr, "freeglut (%s): ", fgState.ProgramName || "");
-    vfprintf( stderr, fmt, ap );
+    fprintf( stderr, "freeglut ");
+    if( fgState.ProgramName )
+        fprintf( stderr, "(%s): ", fgState.ProgramName );
+    VFPRINTF( stderr, fmt, ap );
     fprintf( stderr, "\n" );
 
     va_end( ap );
 
+    if ( fgState.Initialised )
+        fgDeinitialize ();
+
     exit( 1 );
 }
 
@@ -411,8 +358,10 @@ void fgWarning( const char *fmt, ... )
 
     va_start( ap, fmt );
 
-    fprintf( stderr, "freeglut (%s): ", fgState.ProgramName || "");
-    vfprintf( stderr, fmt, ap );
+    fprintf( stderr, "freeglut ");
+    if( fgState.ProgramName )
+        fprintf( stderr, "(%s): ", fgState.ProgramName );
+    VFPRINTF( stderr, fmt, ap );
     fprintf( stderr, "\n" );
 
     va_end( ap );
@@ -422,76 +371,62 @@ void fgWarning( const char *fmt, ... )
  * Indicates whether Joystick events are being used by ANY window.
  *
  * The current mechanism is to walk all of the windows and ask if
- * there is a joystick callback.  Certainly in some cases, maybe
- * in all cases, the joystick is attached to the system and accessed
- * from ONE point by GLUT/freeglut, so this is not the right way,
- * in general, to do this.  However, the Joystick code is segregated
- * in its own little world, so we can't access the information that
- * we need in order to do that nicely.
+ * there is a joystick callback.  We have a short-circuit early
+ * return if we find any joystick handler registered.
  *
- * Some alternatives:
- *  * Store Joystick data into freeglut global state.
- *  * Provide NON-static functions or data from Joystick *.c file.
- *
- * Basically, the RIGHT way to do this requires knowing something
- * about the Joystick.  Right now, the Joystick code is behind
- * an opaque wall.
+ * The real way to do this is to make use of the glutTimer() API
+ * to more cleanly re-implement the joystick API.  Then, this code
+ * and all other "joystick timer" code can be yanked.
  *
  */
-static void fgCheckJoystickCallback( SFG_Window* w, SFG_Enumerator* e)
+static void fghCheckJoystickCallback( SFG_Window* w, SFG_Enumerator* e)
 {
-    if( w->Callbacks.Joystick )
+    if( FETCH_WCB( *w, Joystick ) )
     {
-       e->found = TRUE;
-       e->data = w;
+        e->found = GL_TRUE;
+        e->data = w;
     }
-    fgEnumSubWindows( w, fgCheckJoystickCallback, e );
+    fgEnumSubWindows( w, fghCheckJoystickCallback, e );
 }
-static int fgHaveJoystick( void )
+static int fghHaveJoystick( void )
 {
     SFG_Enumerator enumerator;
-    enumerator.found = FALSE;
+
+    enumerator.found = GL_FALSE;
     enumerator.data = NULL;
-    fgEnumWindows( fgCheckJoystickCallback, &enumerator );
+    fgEnumWindows( fghCheckJoystickCallback, &enumerator );
     return !!enumerator.data;
 }
-static void fgHavePendingRedisplaysCallback( SFG_Window* w, SFG_Enumerator* e)
+static void fghHavePendingRedisplaysCallback( SFG_Window* w, SFG_Enumerator* e)
 {
-    if( w->State.Redisplay )
+    if( w->State.Redisplay && w->State.Visible )
     {
-       e->found = TRUE;
-       e->data = w;
+        e->found = GL_TRUE;
+        e->data = w;
     }
-    fgEnumSubWindows( w, fgHavePendingRedisplaysCallback, e );
-}      
-static int fgHavePendingRedisplays (void)
+    fgEnumSubWindows( w, fghHavePendingRedisplaysCallback, e );
+}
+static int fghHavePendingRedisplays (void)
 {
     SFG_Enumerator enumerator;
-    enumerator.found = FALSE;
+
+    enumerator.found = GL_FALSE;
     enumerator.data = NULL;
-    fgEnumWindows( fgHavePendingRedisplaysCallback, &enumerator );
+    fgEnumWindows( fghHavePendingRedisplaysCallback, &enumerator );
     return !!enumerator.data;
 }
 /*
- * Indicates whether there are any outstanding timers.
- */
-static int fgHaveTimers( void )
-{
-    return !!fgState.Timers.First;
-}
-/*
  * Returns the number of GLUT ticks (milliseconds) till the next timer event.
  */
-static long fgNextTimer( void )
+static long fghNextTimer( void )
 {
-    long now = fgElapsedTime();
     long ret = INT_MAX;
-    SFG_Timer *timer;
+    SFG_Timer *timer = fgState.Timers.First;
 
-    for( timer = (SFG_Timer *)fgState.Timers.First;
-        timer;
-        timer = (SFG_Timer *)timer->Node.Next )
-       ret = MIN( ret, MAX( 0, (timer->TriggerTime) - now ) );
+    if( timer )
+        ret = timer->TriggerTime - fgElapsedTime();
+    if( ret < 0 )
+        ret = 0;
 
     return ret;
 }
@@ -499,783 +434,1097 @@ static long fgNextTimer( void )
  * Does the magic required to relinquish the CPU until something interesting
  * happens.
  */
-static void fgSleepForEvents( void )
+static void fghSleepForEvents( void )
 {
-#if TARGET_HOST_UNIX_X11
-    fd_set fdset;
-    int err;
-    int socket;
-    struct timeval wait;
-    long msec;    
-    
-    if( fgState.IdleCallback ||
-       fgHavePendingRedisplays() )
-       return;
-    socket = ConnectionNumber( fgDisplay.Display );
-    FD_ZERO( &fdset );
-    FD_SET( socket, &fdset );
-    
-    msec = fgNextTimer();
-    if( fgHaveJoystick() )
-       msec = MIN( msec, 10 );
-    
-    wait.tv_sec = msec / 1000;
-    wait.tv_usec = (msec % 1000) * 1000;
-    err = select( socket+1, &fdset, NULL, NULL, &wait );
-
-    if( -1 == err )
-       printf( "freeglut select() error: %d\n", errno );
-    
-#elif TARGET_HOST_WIN32
-#endif
-}
+    long msec;
 
-/* -- INTERFACE FUNCTIONS -------------------------------------------------- */
+    if( fgState.IdleCallback || fghHavePendingRedisplays( ) )
+        return;
 
-/*
- * Executes a single iteration in the freeglut processing loop.
- */
-void FGAPIENTRY glutMainLoopEvent( void )
-{
-#if TARGET_HOST_UNIX_X11
-  SFG_Window* window;
-  XEvent event;
-  int modifiers;
-
-  /*
-   * This code was repeated constantly, so here it goes into a definition:
-   */
-# define GETWINDOW(a) window = fgWindowByHandle( event.a.window );if( window == NULL ) break;
-# define GETMOUSE(a) window->State.MouseX = event.a.x; window->State.MouseY = event.a.y;
-
-  /*
-   * Make sure the display has been created etc.
-   */
-  freeglut_assert_ready;
-
-  /*
-   * Do we have any event messages pending?
-   */
-  while( XPending( fgDisplay.Display ) )
-  {
-    /*
-     * Grab the next event to be processed...
-     */
-    XNextEvent( fgDisplay.Display, &event );
+    msec = fghNextTimer( );
+    /* XXX Use GLUT timers for joysticks... */
+    /* XXX Dumb; forces granularity to .01sec */
+    if( fghHaveJoystick( ) && ( msec > 10 ) )     
+        msec = 10;
 
+#if TARGET_HOST_POSIX_X11
     /*
-     * Check the event's type
+     * Possibly due to aggressive use of XFlush() and friends,
+     * it is possible to have our socket drained but still have
+     * unprocessed events.  (Or, this may just be normal with
+     * X, anyway?)  We do non-trivial processing of X events
+     * after the event-reading loop, in any case, so we
+     * need to allow that we may have an empty socket but non-
+     * empty event queue.
      */
-    switch( event.type )
+    if( ! XPending( fgDisplay.Display ) )
     {
-    case DestroyNotify:
-      /*
-       * This is sent to confirm the XDestroyWindow call.
-       */
-      /*
-       * Call the window closure callback, remove from the structure, etc.
-       */
-/*      fgAddToWindowDestroyList ( window, FALSE ); */
-
-      break;
-
-    case ClientMessage:
-      /*
-       * Destroy the window when the WM_DELETE_WINDOW message arrives
-       */
-      if( (Atom) event.xclient.data.l[ 0 ] == fgDisplay.DeleteWindow )
-      {
-        GETWINDOW( xclient ); 
+        fd_set fdset;
+        int err;
+        int socket;
+        struct timeval wait;
+
+        socket = ConnectionNumber( fgDisplay.Display );
+        FD_ZERO( &fdset );
+        FD_SET( socket, &fdset );
+        wait.tv_sec = msec / 1000;
+        wait.tv_usec = (msec % 1000) * 1000;
+        err = select( socket+1, &fdset, NULL, NULL, &wait );
+
+        if( ( -1 == err ) && ( errno != EINTR ) )
+            fgWarning ( "freeglut select() error: %d", errno );
+    }
+#elif TARGET_HOST_MS_WINDOWS
+    MsgWaitForMultipleObjects( 0, NULL, FALSE, msec, QS_ALLINPUT );
+#endif
+}
 
-        /*
-         * Call the XWindows functions to close the window
-         */
-        fgCloseWindow ( window ) ;
+#if TARGET_HOST_POSIX_X11
+/*
+ * Returns GLUT modifier mask for the state field of an X11 event.
+ */
+static int fghGetXModifiers( int state )
+{
+    int ret = 0;
 
-        /*
-         * Call the window closure callback, remove from the structure, etc.
-         */
-        fgAddToWindowDestroyList ( window, FALSE );
-      }
-      break;
-
-    case UnmapNotify:
-      /*
-       * A window of ours has been unmapped...
-       */
-      break;
-
-    case Expose:
-      /*
-       * We are too dumb to process partial exposes...
-       */
-      if( event.xexpose.count == 0 )
-          fghRedrawWindowByHandle( event.xexpose.window );
-      break;
-
-      /*
-       * CreateNotify causes a configure-event so that sub-windows are
-       * handled compatibly with GLUT.
-       *
-       * NOTE that it is possible that you will more than one Reshape
-       * event for your top-level window, but something like this appears
-       * to be required for compatbility.
-       *
-       * GLUT presumably does this because it generally tries to treat
-       * sub-windows the same as windows.
-       *
-       */
-    case CreateNotify:
-    case ConfigureNotify:
-      /*
-       * The window gets resized
-       */
-      fghReshapeWindowByHandle(
-          event.xconfigure.window,
-          event.xconfigure.width,
-          event.xconfigure.height
-      );
-      break;
-
-    case MappingNotify:
-      /*
-       * Have the client's keyboard knowledge updated (xlib.ps,
-       * page 206, says that's a good thing to do)
-       */
-      XRefreshKeyboardMapping( (XMappingEvent *) &event );
-      break;
-
-    case VisibilityNotify:
-      {
-        /*
-         * The window's visiblity might have changed
-         */
-        GETWINDOW( xvisibility ); 
+    if( state & ( ShiftMask | LockMask ) )
+        ret |= GLUT_ACTIVE_SHIFT;
+    if( state & ControlMask )
+        ret |= GLUT_ACTIVE_CTRL;
+    if( state & Mod1Mask )
+        ret |= GLUT_ACTIVE_ALT;
 
-        /*
-         * Break now if no window status callback has been hooked to that window
-         */
-        if( window->Callbacks.WindowStatus == NULL )
-            break;
+    return ret;
+}
+#endif
 
-        /*
-         * We're going to send a callback to a window. Make it current.
-         */
-        fgSetWindow( window );
 
-        /*
-         * Sending this event, the X server can notify us that the window has just
-         * acquired one of the three possible visibility states: VisibilityUnobscured,
-         * VisibilityPartiallyObscured or VisibilityFullyObscured
-         */
-        switch( event.xvisibility.state )
-        {
-        case VisibilityUnobscured:
-          /*
-           * We are fully visible...
-           */
-          window->Callbacks.WindowStatus( GLUT_FULLY_RETAINED );
-          window->State.Visible = TRUE;
-          break;
+#if TARGET_HOST_POSIX_X11 && _DEBUG
 
-        case VisibilityPartiallyObscured:
-          /*
-           * The window is partially visible
-           */
-          window->Callbacks.WindowStatus( GLUT_PARTIALLY_RETAINED );
-          window->State.Visible = TRUE;
-          break;
+static const char* fghTypeToString( int type )
+{
+    switch( type ) {
+    case KeyPress: return "KeyPress";
+    case KeyRelease: return "KeyRelease";
+    case ButtonPress: return "ButtonPress";
+    case ButtonRelease: return "ButtonRelease";
+    case MotionNotify: return "MotionNotify";
+    case EnterNotify: return "EnterNotify";
+    case LeaveNotify: return "LeaveNotify";
+    case FocusIn: return "FocusIn";
+    case FocusOut: return "FocusOut";
+    case KeymapNotify: return "KeymapNotify";
+    case Expose: return "Expose";
+    case GraphicsExpose: return "GraphicsExpose";
+    case NoExpose: return "NoExpose";
+    case VisibilityNotify: return "VisibilityNotify";
+    case CreateNotify: return "CreateNotify";
+    case DestroyNotify: return "DestroyNotify";
+    case UnmapNotify: return "UnmapNotify";
+    case MapNotify: return "MapNotify";
+    case MapRequest: return "MapRequest";
+    case ReparentNotify: return "ReparentNotify";
+    case ConfigureNotify: return "ConfigureNotify";
+    case ConfigureRequest: return "ConfigureRequest";
+    case GravityNotify: return "GravityNotify";
+    case ResizeRequest: return "ResizeRequest";
+    case CirculateNotify: return "CirculateNotify";
+    case CirculateRequest: return "CirculateRequest";
+    case PropertyNotify: return "PropertyNotify";
+    case SelectionClear: return "SelectionClear";
+    case SelectionRequest: return "SelectionRequest";
+    case SelectionNotify: return "SelectionNotify";
+    case ColormapNotify: return "ColormapNotify";
+    case ClientMessage: return "ClientMessage";
+    case MappingNotify: return "MappingNotify";
+    default: return "UNKNOWN";
+    }
+}
 
-        case VisibilityFullyObscured:
-          /*
-           * The window is totally obscured
-           */
-          window->Callbacks.WindowStatus( GLUT_FULLY_COVERED );
-          window->State.Visible = FALSE;
-          break;
-        }
-      }
-      break;
+static const char* fghBoolToString( Bool b )
+{
+    return b == False ? "False" : "True";
+}
 
-    case EnterNotify:
-      {
-        /*
-         * Mouse is over one of our windows
-         */
-        GETWINDOW( xcrossing ); GETMOUSE( xcrossing );
+static const char* fghNotifyHintToString( char is_hint )
+{
+    switch( is_hint ) {
+    case NotifyNormal: return "NotifyNormal";
+    case NotifyHint: return "NotifyHint";
+    default: return "UNKNOWN";
+    }
+}
 
-        /*
-         * Is there an entry callback hooked to the window?
-         */
-        if( window->Callbacks.Entry != NULL )
-        {
-          /*
-           * Set the current window
-           */
-          fgSetWindow ( window ) ;
+static const char* fghNotifyModeToString( int mode )
+{
+    switch( mode ) {
+    case NotifyNormal: return "NotifyNormal";
+    case NotifyGrab: return "NotifyGrab";
+    case NotifyUngrab: return "NotifyUngrab";
+    case NotifyWhileGrabbed: return "NotifyWhileGrabbed";
+    default: return "UNKNOWN";
+    }
+}
 
-          /*
-           * Yeah. Notify the window about having the mouse cursor over
-           */
-          window->Callbacks.Entry( GLUT_ENTERED );
-        }
-      }
-      break;
+static const char* fghNotifyDetailToString( int detail )
+{
+    switch( detail ) {
+    case NotifyAncestor: return "NotifyAncestor";
+    case NotifyVirtual: return "NotifyVirtual";
+    case NotifyInferior: return "NotifyInferior";
+    case NotifyNonlinear: return "NotifyNonlinear";
+    case NotifyNonlinearVirtual: return "NotifyNonlinearVirtual";
+    case NotifyPointer: return "NotifyPointer";
+    case NotifyPointerRoot: return "NotifyPointerRoot";
+    case NotifyDetailNone: return "NotifyDetailNone";
+    default: return "UNKNOWN";
+    }
+}
 
-    case LeaveNotify:
-      {
-        /*
-         * Mouse is no longer over one of our windows
-         */
-        GETWINDOW( xcrossing ); GETMOUSE( xcrossing );
+static const char* fghVisibilityToString( int state ) {
+    switch( state ) {
+    case VisibilityUnobscured: return "VisibilityUnobscured";
+    case VisibilityPartiallyObscured: return "VisibilityPartiallyObscured";
+    case VisibilityFullyObscured: return "VisibilityFullyObscured";
+    default: return "UNKNOWN";
+    }
+}
 
-        /*
-         * Is there an entry callback hooked to the window?
-         */
-        if( window->Callbacks.Entry != NULL )
-        {
-          /*
-           * Set the current window
-           */
-          fgSetWindow ( window ) ;
+static const char* fghConfigureDetailToString( int detail )
+{
+    switch( detail ) {
+    case Above: return "Above";
+    case Below: return "Below";
+    case TopIf: return "TopIf";
+    case BottomIf: return "BottomIf";
+    case Opposite: return "Opposite";
+    default: return "UNKNOWN";
+    }
+}
 
-          /*
-           * Yeah. Notify the window about having the mouse cursor over
-           */
-          window->Callbacks.Entry( GLUT_LEFT );
-        }
-      }
-      break;
+static const char* fghPlaceToString( int place )
+{
+    switch( place ) {
+    case PlaceOnTop: return "PlaceOnTop";
+    case PlaceOnBottom: return "PlaceOnBottom";
+    default: return "UNKNOWN";
+    }
+}
 
-    case MotionNotify:
-      {
-        /*
-         * The mouse cursor was moved...
-         */
-        GETWINDOW( xmotion ); GETMOUSE( xmotion );
+static const char* fghMappingRequestToString( int request )
+{
+    switch( request ) {
+    case MappingModifier: return "MappingModifier";
+    case MappingKeyboard: return "MappingKeyboard";
+    case MappingPointer: return "MappingPointer";
+    default: return "UNKNOWN";
+    }
+}
 
-        /*
-         * Fallback if there's an active menu hooked to this window
-         */
-        if( window->ActiveMenu != NULL )
-        {
-                       if ( window == window->ActiveMenu->ParentWindow )
-                       {
-                               window->ActiveMenu->Window->State.MouseX = event.xmotion.x_root - window->ActiveMenu->X ;
-                               window->ActiveMenu->Window->State.MouseY = event.xmotion.y_root - window->ActiveMenu->Y ;
-            }
+static const char* fghPropertyStateToString( int state )
+{
+    switch( state ) {
+    case PropertyNewValue: return "PropertyNewValue";
+    case PropertyDelete: return "PropertyDelete";
+    default: return "UNKNOWN";
+    }
+}
 
-            /*
-             * Let's make the window redraw as a result of the mouse motion.
-             */
-            window->ActiveMenu->Window->State.Redisplay = TRUE ;
+static const char* fghColormapStateToString( int state )
+{
+    switch( state ) {
+    case ColormapUninstalled: return "ColormapUninstalled";
+    case ColormapInstalled: return "ColormapInstalled";
+    default: return "UNKNOWN";
+    }
+}
 
-            /*
-             * Since the window is a menu, make the parent window current
-             */
-            fgSetWindow ( window->ActiveMenu->ParentWindow ) ;
+static void fghPrintEvent( XEvent *event )
+{
+    switch( event->type ) {
 
-            break;  /* I think this should stay in -- an active menu should absorb the mouse motion */
-        }
+    case KeyPress:
+    case KeyRelease: {
+        XKeyEvent *e = &event->xkey;
+        fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
+                   "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
+                   "keycode=%u, same_screen=%s", fghTypeToString( e->type ),
+                   e->window, e->root, e->subwindow, (unsigned long)e->time,
+                   e->x, e->y, e->x_root, e->y_root, e->state, e->keycode,
+                   fghBoolToString( e->same_screen ) );
+        break;
+    }
 
-        /*
-         * What kind of a movement was it?
-         */
-        if( (event.xmotion.state & Button1Mask) || (event.xmotion.state & Button2Mask) ||
-            (event.xmotion.state & Button3Mask) || (event.xmotion.state & Button4Mask) ||
-            (event.xmotion.state & Button5Mask) )
-        {
-          /*
-           * A mouse button was pressed during the movement...
-           * Is there a motion callback hooked to the window?
-           */
-          if( window->Callbacks.Motion != NULL )
-          {
-            /*
-             * Set the current window
-             */
-            fgSetWindow ( window ) ;
+    case ButtonPress:
+    case ButtonRelease: {
+        XButtonEvent *e = &event->xbutton;
+        fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
+                   "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
+                   "button=%u, same_screen=%d", fghTypeToString( e->type ),
+                   e->window, e->root, e->subwindow, (unsigned long)e->time,
+                   e->x, e->y, e->x_root, e->y_root, e->state, e->button,
+                   fghBoolToString( e->same_screen ) );
+        break;
+    }
 
-            /*
-             * Yup. Have it executed immediately
-             */
-            window->Callbacks.Motion( event.xmotion.x, event.xmotion.y );
-          }
-        }
-        else
-        {
-          /*
-           * Otherwise it was a passive movement...
-           */
-          if( window->Callbacks.Passive != NULL )
-          {
-            /*
-             * Set the current window
-             */
-            fgSetWindow ( window ) ;
+    case MotionNotify: {
+        XMotionEvent *e = &event->xmotion;
+        fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
+                   "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
+                   "is_hint=%s, same_screen=%d", fghTypeToString( e->type ),
+                   e->window, e->root, e->subwindow, (unsigned long)e->time,
+                   e->x, e->y, e->x_root, e->y_root, e->state,
+                   fghNotifyHintToString( e->is_hint ),
+                   fghBoolToString( e->same_screen ) );
+        break;
+    }
 
-            /*
-             * That's right, and there is a passive callback, too.
-             */
-            window->Callbacks.Passive( event.xmotion.x, event.xmotion.y );
-          }
+    case EnterNotify:
+    case LeaveNotify: {
+        XCrossingEvent *e = &event->xcrossing;
+        fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
+                   "(x,y)=(%d,%d), mode=%s, detail=%s, same_screen=%d, "
+                   "focus=%d, state=0x%x", fghTypeToString( e->type ),
+                   e->window, e->root, e->subwindow, (unsigned long)e->time,
+                   e->x, e->y, fghNotifyModeToString( e->mode ),
+                   fghNotifyDetailToString( e->detail ), (int)e->same_screen,
+                   (int)e->focus, e->state );
+        break;
+    }
+
+    case FocusIn:
+    case FocusOut: {
+        XFocusChangeEvent *e = &event->xfocus;
+        fgWarning( "%s: window=0x%x, mode=%s, detail=%s",
+                   fghTypeToString( e->type ), e->window,
+                   fghNotifyModeToString( e->mode ),
+                   fghNotifyDetailToString( e->detail ) );
+        break;
+    }
+
+    case KeymapNotify: {
+        XKeymapEvent *e = &event->xkeymap;
+        char buf[32 * 2 + 1];
+        int i;
+        for ( i = 0; i < 32; i++ ) {
+            snprintf( &buf[ i * 2 ], sizeof( buf ) - i * 2,
+                      "%02x", e->key_vector[ i ] );
         }
-      }
-      break;
+        buf[ i ] = '\0';
+        fgWarning( "%s: window=0x%x, %s", fghTypeToString( e->type ), e->window,
+                   buf );
+        break;
+    }
 
-    case ButtonRelease:
-    case ButtonPress:
-      {
-        GLboolean pressed = TRUE ;
-        int button;
+    case Expose: {
+        XExposeEvent *e = &event->xexpose;
+        fgWarning( "%s: window=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), "
+                   "count=%d", fghTypeToString( e->type ), e->window, e->x,
+                   e->y, e->width, e->height, e->count );
+        break;
+    }
 
-        if ( event.type == ButtonRelease ) pressed = FALSE ;
+    case GraphicsExpose: {
+        XGraphicsExposeEvent *e = &event->xgraphicsexpose;
+        fgWarning( "%s: drawable=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), "
+                   "count=%d, (major_code,minor_code)=(%d,%d)",
+                   fghTypeToString( e->type ), e->drawable, e->x, e->y,
+                   e->width, e->height, e->count, e->major_code,
+                   e->minor_code );
+        break;
+    }
 
-        /*
-         * A mouse button has been pressed or released. Traditionally,
-         * break if the window was found within the freeglut structures.
-         */
-        GETWINDOW( xbutton ); GETMOUSE( xbutton );
-
-       /*
-        * An X button (at least in XFree86) is numbered from 1.
-        * A GLUT button is numbered from 0.
-        * Old GLUT passed through buttons other than just the first
-        * three, though it only gave symbolic names and official
-        * support to the first three.
-        *
-        */
-       button = event.xbutton.button - 1;
+    case NoExpose: {
+        XNoExposeEvent *e = &event->xnoexpose;
+        fgWarning( "%s: drawable=0x%x, (major_code,minor_code)=(%d,%d)",
+                   fghTypeToString( e->type ), e->drawable, e->major_code,
+                   e->minor_code );
+        break;
+    }
 
-        /*
-         * Do not execute the application's mouse callback if a menu is hooked to this button.
-         * In that case an appropriate private call should be generated.
-         * Near as I can tell, this is the menu behaviour:
-         *  - Down-click the menu button, menu not active:  activate the menu with its upper left-hand corner at the mouse location.
-         *  - Down-click any button outside the menu, menu active:  deactivate the menu
-         *  - Down-click any button inside the menu, menu active:  select the menu entry and deactivate the menu
-         *  - Up-click the menu button, menu not active:  nothing happens
-         *  - Up-click the menu button outside the menu, menu active:  nothing happens
-         *  - Up-click the menu button inside the menu, menu active:  select the menu entry and deactivate the menu
-         */
-        if ( window->ActiveMenu != NULL )  /* Window has an active menu, it absorbs any mouse click */
-        {
-               if ( window == window->ActiveMenu->ParentWindow )
-               {
-                       window->ActiveMenu->Window->State.MouseX = event.xbutton.x_root - window->ActiveMenu->X ;
-                       window->ActiveMenu->Window->State.MouseY = event.xbutton.y_root - window->ActiveMenu->Y ;
-               }
-
-          if ( fgCheckActiveMenu ( window->ActiveMenu->Window, window->ActiveMenu ) == TRUE )  /* Inside the menu, invoke the callback and deactivate the menu*/
-          {
-            /* Save the current window and menu and set the current window to the window whose menu this is */
-            SFG_Window *save_window = fgStructure.Window ;
-            SFG_Menu *save_menu = fgStructure.Menu ;
-            SFG_Window *parent_window = window->ActiveMenu->ParentWindow ;
-            fgSetWindow ( parent_window ) ;
-            fgStructure.Menu = window->ActiveMenu ;
-
-            /* Execute the menu callback */
-            fgExecuteMenuCallback ( window->ActiveMenu ) ;
-            fgDeactivateMenu ( parent_window ) ;
-
-            /* Restore the current window and menu */
-            fgSetWindow ( save_window ) ;
-            fgStructure.Menu = save_menu ;
-          }
-          else  /* Outside the menu, deactivate the menu if it's a downclick */
-          {
-            if ( pressed == TRUE ) fgDeactivateMenu ( window->ActiveMenu->ParentWindow ) ;
-          }
+    case VisibilityNotify: {
+        XVisibilityEvent *e = &event->xvisibility;
+        fgWarning( "%s: window=0x%x, state=%s", fghTypeToString( e->type ),
+                   e->window, fghVisibilityToString( e->state) );
+        break;
+    }
 
-          /*
-           * Let's make the window redraw as a result of the mouse click and menu activity.
-           */
-          window->State.Redisplay = TRUE ;
+    case CreateNotify: {
+        XCreateWindowEvent *e = &event->xcreatewindow;
+        fgWarning( "%s: (x,y)=(%d,%d), (width,height)=(%d,%d), border_width=%d, "
+                   "window=0x%x, override_redirect=%s",
+                   fghTypeToString( e->type ), e->x, e->y, e->width, e->height,
+                   e->border_width, e->window,
+                   fghBoolToString( e->override_redirect ) );
+        break;
+    }
 
-          break ;
-        }
+    case DestroyNotify: {
+        XDestroyWindowEvent *e = &event->xdestroywindow;
+        fgWarning( "%s: event=0x%x, window=0x%x",
+                   fghTypeToString( e->type ), e->event, e->window );
+        break;
+    }
 
-        /*
-         * No active menu, let's check whether we need to activate one.
-         */
-        if (( 0 <= button ) && ( 2 >= button ) &&
-           ( window->Menu[ button ] != NULL ) && ( pressed == TRUE ) )
-        {
-          /*
-           * Let's make the window redraw as a result of the mouse click.
-           */
-          window->State.Redisplay = TRUE ;
+    case UnmapNotify: {
+        XUnmapEvent *e = &event->xunmap;
+        fgWarning( "%s: event=0x%x, window=0x%x, from_configure=%s",
+                   fghTypeToString( e->type ), e->event, e->window,
+                   fghBoolToString( e->from_configure ) );
+        break;
+    }
 
-          /*
-           * Set the current window
-           */
-          fgSetWindow( window );
+    case MapNotify: {
+        XMapEvent *e = &event->xmap;
+        fgWarning( "%s: event=0x%x, window=0x%x, override_redirect=%s",
+                   fghTypeToString( e->type ), e->event, e->window,
+                   fghBoolToString( e->override_redirect ) );
+        break;
+    }
 
-          /*
-           * Activate the appropriate menu structure...
-           */
-          fgActivateMenu( window, button );
+    case MapRequest: {
+        XMapRequestEvent *e = &event->xmaprequest;
+        fgWarning( "%s: parent=0x%x, window=0x%x",
+                   fghTypeToString( event->type ), e->parent, e->window );
+        break;
+    }
 
-          break;
-        }
+    case ReparentNotify: {
+        XReparentEvent *e = &event->xreparent;
+        fgWarning( "%s: event=0x%x, window=0x%x, parent=0x%x, (x,y)=(%d,%d), "
+                   "override_redirect=%s", fghTypeToString( e->type ),
+                   e->event, e->window, e->parent, e->x, e->y,
+                   fghBoolToString( e->override_redirect ) );
+        break;
+    }
 
-        /*
-         * Check if there is a mouse callback hooked to the window
-         */
-        if( window->Callbacks.Mouse == NULL )
-          break;
+    case ConfigureNotify: {
+        XConfigureEvent *e = &event->xconfigure;
+        fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d), "
+                   "(width,height)=(%d,%d), border_width=%d, above=0x%x, "
+                   "override_redirect=%s", fghTypeToString( e->type ), e->event,
+                   e->window, e->x, e->y, e->width, e->height, e->border_width,
+                   e->above, fghBoolToString( e->override_redirect ) );
+        break;
+    }
 
-        /*
-         * Set the current window
-         */
-        fgSetWindow ( window );
+    case ConfigureRequest: {
+        XConfigureRequestEvent *e = &event->xconfigurerequest;
+        fgWarning( "%s: parent=0x%x, window=0x%x, (x,y)=(%d,%d), "
+                   "(width,height)=(%d,%d), border_width=%d, above=0x%x, "
+                   "detail=%s, value_mask=%lx", fghTypeToString( e->type ),
+                   e->parent, e->window, e->x, e->y, e->width, e->height,
+                   e->border_width, e->above,
+                   fghConfigureDetailToString( e->detail ), e->value_mask );
+        break;
+    }
 
-        /*
-         * Remember the current modifiers state
-         */
-        modifiers = 0;
-        if (event.xbutton.state & (ShiftMask|LockMask))
-          modifiers |= GLUT_ACTIVE_SHIFT;
-        if (event.xbutton.state & ControlMask)
-          modifiers |= GLUT_ACTIVE_CTRL;
-        if (event.xbutton.state & Mod1Mask)
-          modifiers |= GLUT_ACTIVE_ALT;
-        fgStructure.Window->State.Modifiers = modifiers;
+    case GravityNotify: {
+        XGravityEvent *e = &event->xgravity;
+        fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d)",
+                   fghTypeToString( e->type ), e->event, e->window, e->x, e->y );
+        break;
+    }
 
-        /*
-         * Finally execute the mouse callback
-         */
-        fgStructure.Window->Callbacks.Mouse(
-            button,
-            event.type == ButtonPress ? GLUT_DOWN : GLUT_UP,
-            event.xbutton.x,
-            event.xbutton.y
-        );
+    case ResizeRequest: {
+        XResizeRequestEvent *e = &event->xresizerequest;
+        fgWarning( "%s: window=0x%x, (width,height)=(%d,%d)",
+                   fghTypeToString( e->type ), e->window, e->width, e->height );
+        break;
+    }
 
-        /*
-         * Trash the modifiers state
-         */
-        fgStructure.Window->State.Modifiers = 0xffffffff;
-      }
-      break;
+    case CirculateNotify: {
+        XCirculateEvent *e = &event->xcirculate;
+        fgWarning( "%s: event=0x%x, window=0x%x, place=%s",
+                   fghTypeToString( e->type ), e->event, e->window,
+                   fghPlaceToString( e->place ) );
+        break;
+    }
 
-    case KeyRelease:
-    case KeyPress:
-      {
-        FGCBkeyboard keyboard_cb;
-        FGCBspecial special_cb;
+    case CirculateRequest: {
+        XCirculateRequestEvent *e = &event->xcirculaterequest;
+        fgWarning( "%s: parent=0x%x, window=0x%x, place=%s",
+                   fghTypeToString( e->type ), e->parent, e->window,
+                   fghPlaceToString( e->place ) );
+        break;
+    }
 
-        /*
-         * A key has been pressed, find the window that had the focus:
-         */
-        GETWINDOW( xkey ); GETMOUSE( xkey );
+    case PropertyNotify: {
+        XPropertyEvent *e = &event->xproperty;
+        fgWarning( "%s: window=0x%x, atom=%lu, time=%lu, state=%s",
+                   fghTypeToString( e->type ), e->window,
+                   (unsigned long)e->atom, (unsigned long)e->time,
+                   fghPropertyStateToString( e->state ) );
+        break;
+    }
 
-        if( event.type == KeyPress )
-        {
-          keyboard_cb = window->Callbacks.Keyboard;
-          special_cb = window->Callbacks.Special;
-        }
-        else
-        {
-          keyboard_cb = window->Callbacks.KeyboardUp;
-          special_cb = window->Callbacks.SpecialUp;
+    case SelectionClear: {
+        XSelectionClearEvent *e = &event->xselectionclear;
+        fgWarning( "%s: window=0x%x, selection=%lu, time=%lu",
+                   fghTypeToString( e->type ), e->window,
+                   (unsigned long)e->selection, (unsigned long)e->time );
+        break;
+    }
+
+    case SelectionRequest: {
+        XSelectionRequestEvent *e = &event->xselectionrequest;
+        fgWarning( "%s: owner=0x%x, requestor=0x%x, selection=0x%x, "
+                   "target=0x%x, property=%lu, time=%lu",
+                   fghTypeToString( e->type ), e->owner, e->requestor,
+                   (unsigned long)e->selection, (unsigned long)e->target,
+                   (unsigned long)e->property, (unsigned long)e->time );
+        break;
+    }
+
+    case SelectionNotify: {
+        XSelectionEvent *e = &event->xselection;
+        fgWarning( "%s: requestor=0x%x, selection=0x%x, target=0x%x, "
+                   "property=%lu, time=%lu", fghTypeToString( e->type ),
+                   e->requestor, (unsigned long)e->selection,
+                   (unsigned long)e->target, (unsigned long)e->property,
+                   (unsigned long)e->time );
+        break;
+    }
+
+    case ColormapNotify: {
+        XColormapEvent *e = &event->xcolormap;
+        fgWarning( "%s: window=0x%x, colormap=%lu, new=%s, state=%s",
+                   fghTypeToString( e->type ), e->window,
+                   (unsigned long)e->colormap, fghBoolToString( e->new ),
+                   fghColormapStateToString( e->state ) );
+        break;
+    }
+
+    case ClientMessage: {
+        XClientMessageEvent *e = &event->xclient;
+        char buf[ 61 ];
+        char* p = buf;
+        char* end = buf + sizeof( buf );
+        int i;
+        switch( e->format ) {
+        case 8:
+          for ( i = 0; i < 20; i++, p += 3 ) {
+                snprintf( p, end - p, " %02x", e->data.b[ i ] );
+            }
+            break;
+        case 16:
+            for ( i = 0; i < 10; i++, p += 5 ) {
+                snprintf( p, end - p, " %04x", e->data.s[ i ] );
+            }
+            break;
+        case 32:
+            for ( i = 0; i < 5; i++, p += 9 ) {
+                snprintf( p, end - p, " %08lx", e->data.l[ i ] );
+            }
+            break;
         }
+        *p = '\0';
+        fgWarning( "%s: window=0x%x, message_type=%lu, format=%d, data=(%s )",
+                   fghTypeToString( e->type ), e->window,
+                   (unsigned long)e->message_type, e->format, buf );
+        break;
+    }
 
-        /*
-         * Is there a keyboard/special callback hooked for this window?
-         */
-        if( (keyboard_cb != NULL) || (special_cb != NULL) )
+    case MappingNotify: {
+        XMappingEvent *e = &event->xmapping;
+        fgWarning( "%s: window=0x%x, request=%s, first_keycode=%d, count=%d",
+                   fghTypeToString( e->type ), e->window,
+                   fghMappingRequestToString( e->request ), e->first_keycode,
+                   e->count );
+        break;
+    }
+
+    default: {
+        fgWarning( "%s", fghTypeToString( event->type ) );
+        break;
+    }
+    }
+}
+
+#endif
+
+/* -- INTERFACE FUNCTIONS -------------------------------------------------- */
+
+/*
+ * Executes a single iteration in the freeglut processing loop.
+ */
+void FGAPIENTRY glutMainLoopEvent( void )
+{
+#if TARGET_HOST_POSIX_X11
+    SFG_Window* window;
+    XEvent event;
+
+    /* This code was repeated constantly, so here it goes into a definition: */
+#define GETWINDOW(a)                             \
+    window = fgWindowByHandle( event.a.window ); \
+    if( window == NULL )                         \
+        break;
+
+#define GETMOUSE(a)                              \
+    window->State.MouseX = event.a.x;            \
+    window->State.MouseY = event.a.y;
+
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" );
+
+    while( XPending( fgDisplay.Display ) )
+    {
+        XNextEvent( fgDisplay.Display, &event );
+#if _DEBUG
+        fghPrintEvent( &event );
+#endif
+
+        switch( event.type )
         {
-          XComposeStatus composeStatus;
-          char asciiCode[ 32 ];
-          KeySym keySym;
-          int len;
+        case ClientMessage:
+            /* Destroy the window when the WM_DELETE_WINDOW message arrives */
+            if( (Atom) event.xclient.data.l[ 0 ] == fgDisplay.DeleteWindow )
+            {
+                GETWINDOW( xclient );
 
-          /*
-           * Check for the ASCII/KeySym codes associated with the event:
-           */
-          len = XLookupString( &event.xkey, asciiCode, sizeof(asciiCode), &keySym, &composeStatus );
+                fgDestroyWindow ( window );
+
+                if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )
+                {
+                    fgDeinitialize( );
+                    exit( 0 );
+                }
+                else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )
+                    fgState.ExecState = GLUT_EXEC_STATE_STOP;
+
+                return;
+            }
+            break;
 
-          /*
-           * GLUT API tells us to have two separate callbacks...
-           */
-          if( len > 0 )
-          {
             /*
-             * ...one for the ASCII translateable keypresses...
+             * CreateNotify causes a configure-event so that sub-windows are
+             * handled compatibly with GLUT.  Otherwise, your sub-windows
+             * (in freeglut only) will not get an initial reshape event,
+             * which can break things.
+             *
+             * GLUT presumably does this because it generally tries to treat
+             * sub-windows the same as windows.
              */
-            if( keyboard_cb != NULL )
+        case CreateNotify:
+        case ConfigureNotify:
             {
-              /*
-               * Set the current window
-               */
-              fgSetWindow( window );
-
-              /*
-               * Remember the current modifiers state
-               */
-              modifiers = 0;
-              if (event.xkey.state & (ShiftMask|LockMask))
-                  modifiers |= GLUT_ACTIVE_SHIFT;
-              if (event.xkey.state & ControlMask)
-                  modifiers |= GLUT_ACTIVE_CTRL;
-              if (event.xkey.state & Mod1Mask)
-                  modifiers |= GLUT_ACTIVE_ALT;
-              window->State.Modifiers = modifiers;
-
-              /*
-               * Execute the callback
-               */
-              keyboard_cb( asciiCode[ 0 ], event.xkey.x, event.xkey.y );
-
-              /*
-               * Trash the modifiers state
-               */
-              window->State.Modifiers = 0xffffffff;
+                int width, height;
+                if( event.type == CreateNotify ) {
+                    GETWINDOW( xcreatewindow );
+                    width = event.xcreatewindow.width;
+                    height = event.xcreatewindow.height;
+                } else {
+                    GETWINDOW( xconfigure );
+                    width = event.xconfigure.width;
+                    height = event.xconfigure.height;
+                }
+
+                if( ( width != window->State.OldWidth ) ||
+                    ( height != window->State.OldHeight ) )
+                {
+                    SFG_Window *current_window = fgStructure.CurrentWindow;
+
+                    window->State.OldWidth = width;
+                    window->State.OldHeight = height;
+                    if( FETCH_WCB( *window, Reshape ) )
+                        INVOKE_WCB( *window, Reshape, ( width, height ) );
+                    else
+                    {
+                        fgSetWindow( window );
+                        glViewport( 0, 0, width, height );
+                    }
+                    glutPostRedisplay( );
+                    if( window->IsMenu )
+                        fgSetWindow( current_window );
+                }
             }
-          }
-          else
-          {
-            int special = -1;
+            break;
+
+        case DestroyNotify:
+            /*
+             * This is sent to confirm the XDestroyWindow call.
+             *
+             * XXX WHY is this commented out?  Should we re-enable it?
+             */
+            /* fgAddToWindowDestroyList ( window ); */
+            break;
 
+        case Expose:
             /*
-             * ...and one for all the others, which need to be translated to GLUT_KEY_Xs...
+             * We are too dumb to process partial exposes...
+             *
+             * XXX Well, we could do it.  However, it seems to only
+             * XXX be potentially useful for single-buffered (since
+             * XXX double-buffered does not respect viewport when we
+             * XXX do a buffer-swap).
+             *
              */
-            switch( keySym )
+            if( event.xexpose.count == 0 )
             {
+                GETWINDOW( xexpose );
+                window->State.Redisplay = GL_TRUE;
+            }
+            break;
+
+        case MapNotify:
+            break;
+
+        case UnmapNotify:
+            /* We get this when iconifying a window. */ 
+            GETWINDOW( xunmap );
+            INVOKE_WCB( *window, WindowStatus, ( GLUT_HIDDEN ) );
+            window->State.Visible = GL_FALSE;
+            break;
+
+        case MappingNotify:
+            /*
+             * Have the client's keyboard knowledge updated (xlib.ps,
+             * page 206, says that's a good thing to do)
+             */
+            XRefreshKeyboardMapping( (XMappingEvent *) &event );
+            break;
+
+        case VisibilityNotify:
+        {
             /*
-             * First the function keys come:
+             * Sending this event, the X server can notify us that the window
+             * has just acquired one of the three possible visibility states:
+             * VisibilityUnobscured, VisibilityPartiallyObscured or
+             * VisibilityFullyObscured. Note that we DO NOT receive a
+             * VisibilityNotify event when iconifying a window, we only get an
+             * UnmapNotify then.
              */
-            case XK_F1:     special = GLUT_KEY_F1;     break;
-            case XK_F2:     special = GLUT_KEY_F2;     break;
-            case XK_F3:     special = GLUT_KEY_F3;     break;
-            case XK_F4:     special = GLUT_KEY_F4;     break;
-            case XK_F5:     special = GLUT_KEY_F5;     break;
-            case XK_F6:     special = GLUT_KEY_F6;     break;
-            case XK_F7:     special = GLUT_KEY_F7;     break;
-            case XK_F8:     special = GLUT_KEY_F8;     break;
-            case XK_F9:     special = GLUT_KEY_F9;     break;
-            case XK_F10:    special = GLUT_KEY_F10;    break;
-            case XK_F11:    special = GLUT_KEY_F11;    break;
-            case XK_F12:    special = GLUT_KEY_F12;    break;
+            GETWINDOW( xvisibility );
+            switch( event.xvisibility.state )
+            {
+            case VisibilityUnobscured:
+                INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_RETAINED ) );
+                window->State.Visible = GL_TRUE;
+                break;
+
+            case VisibilityPartiallyObscured:
+                INVOKE_WCB( *window, WindowStatus,
+                            ( GLUT_PARTIALLY_RETAINED ) );
+                window->State.Visible = GL_TRUE;
+                break;
+
+            case VisibilityFullyObscured:
+                INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_COVERED ) );
+                window->State.Visible = GL_FALSE;
+                break;
+
+            default:
+                fgWarning( "Unknown X visibility state: %d",
+                           event.xvisibility.state );
+                break;
+            }
+        }
+        break;
+
+        case EnterNotify:
+        case LeaveNotify:
+            GETWINDOW( xcrossing );
+            GETMOUSE( xcrossing );
+            if( ( event.type == LeaveNotify ) && window->IsMenu &&
+                window->ActiveMenu && window->ActiveMenu->IsActive )
+                fgUpdateMenuHighlight( window->ActiveMenu );
+
+            INVOKE_WCB( *window, Entry, ( ( EnterNotify == event.type ) ?
+                                          GLUT_ENTERED :
+                                          GLUT_LEFT ) );
+            break;
+
+        case MotionNotify:
+        {
+            GETWINDOW( xmotion );
+            GETMOUSE( xmotion );
+
+            if( window->ActiveMenu )
+            {
+                if( window == window->ActiveMenu->ParentWindow )
+                {
+                    window->ActiveMenu->Window->State.MouseX =
+                        event.xmotion.x_root - window->ActiveMenu->X;
+                    window->ActiveMenu->Window->State.MouseY =
+                        event.xmotion.y_root - window->ActiveMenu->Y;
+                }
+
+                fgUpdateMenuHighlight( window->ActiveMenu );
+
+                break;
+            }
 
             /*
-             * Then the arrows and stuff:
+             * XXX For more than 5 buttons, just check {event.xmotion.state},
+             * XXX rather than a host of bit-masks?  Or maybe we need to
+             * XXX track ButtonPress/ButtonRelease events in our own
+             * XXX bit-mask?
              */
-            case XK_Left:   special = GLUT_KEY_LEFT;   break;
-            case XK_Right:  special = GLUT_KEY_RIGHT;  break;
-            case XK_Up:     special = GLUT_KEY_UP;     break;
-            case XK_Down:   special = GLUT_KEY_DOWN;   break;
-
-            case XK_KP_Prior:
-            case XK_Prior:  special = GLUT_KEY_PAGE_UP; break;
-            case XK_KP_Next:
-            case XK_Next:   special = GLUT_KEY_PAGE_DOWN; break;
-            case XK_KP_Home:
-            case XK_Home:   special = GLUT_KEY_HOME;   break;
-            case XK_KP_End:
-            case XK_End:    special = GLUT_KEY_END;    break;
-            case XK_KP_Insert:
-            case XK_Insert: special = GLUT_KEY_INSERT; break;
+            fgState.Modifiers = fghGetXModifiers( event.xmotion.state );
+            if ( event.xmotion.state & ( Button1Mask | Button2Mask | Button3Mask | Button4Mask | Button5Mask ) ) {
+                INVOKE_WCB( *window, Motion, ( event.xmotion.x,
+                                               event.xmotion.y ) );
+            } else {
+                INVOKE_WCB( *window, Passive, ( event.xmotion.x,
+                                                event.xmotion.y ) );
             }
+            fgState.Modifiers = INVALID_MODIFIERS;
+        }
+        break;
+
+        case ButtonRelease:
+        case ButtonPress:
+        {
+            GLboolean pressed = GL_TRUE;
+            int button;
+
+            if( event.type == ButtonRelease )
+                pressed = GL_FALSE ;
+
+            /*
+             * A mouse button has been pressed or released. Traditionally,
+             * break if the window was found within the freeglut structures.
+             */
+            GETWINDOW( xbutton );
+            GETMOUSE( xbutton );
+
+            /*
+             * An X button (at least in XFree86) is numbered from 1.
+             * A GLUT button is numbered from 0.
+             * Old GLUT passed through buttons other than just the first
+             * three, though it only gave symbolic names and official
+             * support to the first three.
+             */
+            button = event.xbutton.button - 1;
+
+            /*
+             * Do not execute the application's mouse callback if a menu
+             * is hooked to this button.  In that case an appropriate
+             * private call should be generated.
+             */
+            if( fgCheckActiveMenu( window, button, pressed,
+                                   event.xbutton.x_root, event.xbutton.y_root ) )
+                break;
 
             /*
-             * Execute the callback (if one has been specified),
-             * given that the special code seems to be valid...
+             * Check if there is a mouse or mouse wheel callback hooked to the
+             * window
              */
-            if( (special_cb != NULL) && (special != -1) )
+            if( ! FETCH_WCB( *window, Mouse ) &&
+                ! FETCH_WCB( *window, MouseWheel ) )
+                break;
+
+            fgState.Modifiers = fghGetXModifiers( event.xbutton.state );
+
+            /* Finally execute the mouse or mouse wheel callback */
+            if( ( button < glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS ) ) || ( ! FETCH_WCB( *window, MouseWheel ) ) )
+                INVOKE_WCB( *window, Mouse, ( button,
+                                              pressed ? GLUT_DOWN : GLUT_UP,
+                                              event.xbutton.x,
+                                              event.xbutton.y )
+                );
+            else
             {
-              /*
-               * Set the current window
-               */
-              fgSetWindow( window );
-
-              /*
-               * Remember the current modifiers state
-               */
-              modifiers = 0;
-              if (event.xkey.state & (ShiftMask|LockMask))
-                modifiers |= GLUT_ACTIVE_SHIFT;
-              if (event.xkey.state & ControlMask)
-                modifiers |= GLUT_ACTIVE_CTRL;
-              if (event.xkey.state & Mod1Mask)
-                modifiers |= GLUT_ACTIVE_ALT;
-              window->State.Modifiers = modifiers;
-
-              special_cb( special, event.xkey.x, event.xkey.y );
-
-              /*
-               * Trash the modifiers state
-               */
-              window->State.Modifiers = 0xffffffff;
+                /*
+                 * Map 4 and 5 to wheel zero; EVEN to +1, ODD to -1
+                 *  "  6 and 7 "    "   one; ...
+                 *
+                 * XXX This *should* be behind some variables/macros,
+                 * XXX since the order and numbering isn't certain
+                 * XXX See XFree86 configuration docs (even back in the
+                 * XXX 3.x days, and especially with 4.x).
+                 *
+                 * XXX Note that {button} has already been decremeted
+                 * XXX in mapping from X button numbering to GLUT.
+                 */
+                int wheel_number = (button - glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS )) / 2;
+                int direction = -1;
+                if( button % 2 )
+                    direction = 1;
+
+                if( pressed )
+                    INVOKE_WCB( *window, MouseWheel, ( wheel_number,
+                                                       direction,
+                                                       event.xbutton.x,
+                                                       event.xbutton.y )
+                    );
             }
-          }
+            fgState.Modifiers = INVALID_MODIFIERS;
         }
-      }
-      break;
-    }
-  }
+        break;
 
-  {
-    /*
-     * Have all the timers checked.
-     */
-    fghCheckTimers();
+        case KeyRelease:
+        case KeyPress:
+        {
+            FGCBKeyboard keyboard_cb;
+            FGCBSpecial special_cb;
 
-    /*
-     * Poll the joystick and notify all windows that want to be notified...
-     */
-    fghCheckJoystickPolls();
+            GETWINDOW( xkey );
+            GETMOUSE( xkey );
 
-    /*
-     * No messages in the queue, which means we are idling...
-     */
-    if( fgState.IdleCallback != NULL )
-        fgState.IdleCallback();
+            /* Detect auto repeated keys, if configured globally or per-window */
 
-    /*
-     * Remember about displaying all the windows that have
-     * been marked for a redisplay (possibly in the idle call):
-     */
-    fghDisplayAll();
-  }
+            if ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE )
+            {
+                if (event.type==KeyRelease)
+                {
+                    /*
+                     * Look at X11 keystate to detect repeat mode.
+                     * While X11 says the key is actually held down, we'll ignore KeyRelease/KeyPress pairs.
+                     */
+
+                    char keys[32];
+                    XQueryKeymap( fgDisplay.Display, keys ); /* Look at X11 keystate to detect repeat mode */
+
+                    if ( event.xkey.keycode<256 )            /* XQueryKeymap is limited to 256 keycodes    */
+                    {
+                        if ( keys[event.xkey.keycode>>3] & (1<<(event.xkey.keycode%8)) )
+                            window->State.KeyRepeating = GL_TRUE;
+                        else
+                            window->State.KeyRepeating = GL_FALSE;
+                    }
+                }
+            }
+            else
+                window->State.KeyRepeating = GL_FALSE;
+
+            /* Cease processing this event if it is auto repeated */
+
+            if (window->State.KeyRepeating)
+            {
+                if (event.type == KeyPress) window->State.KeyRepeating = GL_FALSE;
+                break;
+            }
 
-#elif TARGET_HOST_WIN32
+            if( event.type == KeyPress )
+            {
+                keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, Keyboard ));
+                special_cb  = (FGCBSpecial) ( FETCH_WCB( *window, Special  ));
+            }
+            else
+            {
+                keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, KeyboardUp ));
+                special_cb  = (FGCBSpecial) ( FETCH_WCB( *window, SpecialUp  ));
+            }
 
-  MSG stMsg;
+            /* Is there a keyboard/special callback hooked for this window? */
+            if( keyboard_cb || special_cb )
+            {
+                XComposeStatus composeStatus;
+                char asciiCode[ 32 ];
+                KeySym keySym;
+                int len;
+
+                /* Check for the ASCII/KeySym codes associated with the event: */
+                len = XLookupString( &event.xkey, asciiCode, sizeof(asciiCode),
+                                     &keySym, &composeStatus
+                );
+
+                /* GLUT API tells us to have two separate callbacks... */
+                if( len > 0 )
+                {
+                    /* ...one for the ASCII translateable keypresses... */
+                    if( keyboard_cb )
+                    {
+                        fgSetWindow( window );
+                        fgState.Modifiers = fghGetXModifiers( event.xkey.state );
+                        keyboard_cb( asciiCode[ 0 ],
+                                     event.xkey.x, event.xkey.y
+                        );
+                        fgState.Modifiers = INVALID_MODIFIERS;
+                    }
+                }
+                else
+                {
+                    int special = -1;
+
+                    /*
+                     * ...and one for all the others, which need to be
+                     * translated to GLUT_KEY_Xs...
+                     */
+                    switch( keySym )
+                    {
+                    case XK_F1:     special = GLUT_KEY_F1;     break;
+                    case XK_F2:     special = GLUT_KEY_F2;     break;
+                    case XK_F3:     special = GLUT_KEY_F3;     break;
+                    case XK_F4:     special = GLUT_KEY_F4;     break;
+                    case XK_F5:     special = GLUT_KEY_F5;     break;
+                    case XK_F6:     special = GLUT_KEY_F6;     break;
+                    case XK_F7:     special = GLUT_KEY_F7;     break;
+                    case XK_F8:     special = GLUT_KEY_F8;     break;
+                    case XK_F9:     special = GLUT_KEY_F9;     break;
+                    case XK_F10:    special = GLUT_KEY_F10;    break;
+                    case XK_F11:    special = GLUT_KEY_F11;    break;
+                    case XK_F12:    special = GLUT_KEY_F12;    break;
+
+                    case XK_KP_Left:
+                    case XK_Left:   special = GLUT_KEY_LEFT;   break;
+                    case XK_KP_Right:
+                    case XK_Right:  special = GLUT_KEY_RIGHT;  break;
+                    case XK_KP_Up:
+                    case XK_Up:     special = GLUT_KEY_UP;     break;
+                    case XK_KP_Down:
+                    case XK_Down:   special = GLUT_KEY_DOWN;   break;
+
+                    case XK_KP_Prior:
+                    case XK_Prior:  special = GLUT_KEY_PAGE_UP; break;
+                    case XK_KP_Next:
+                    case XK_Next:   special = GLUT_KEY_PAGE_DOWN; break;
+                    case XK_KP_Home:
+                    case XK_Home:   special = GLUT_KEY_HOME;   break;
+                    case XK_KP_End:
+                    case XK_End:    special = GLUT_KEY_END;    break;
+                    case XK_KP_Insert:
+                    case XK_Insert: special = GLUT_KEY_INSERT; break;
+
+                    case XK_Num_Lock :  special = GLUT_KEY_NUM_LOCK;  break;
+                    case XK_KP_Begin :  special = GLUT_KEY_BEGIN;     break;
+                    case XK_KP_Delete:  special = GLUT_KEY_DELETE;    break;
+                    }
+
+                    /*
+                     * Execute the callback (if one has been specified),
+                     * given that the special code seems to be valid...
+                     */
+                    if( special_cb && (special != -1) )
+                    {
+                        fgSetWindow( window );
+                        fgState.Modifiers = fghGetXModifiers( event.xkey.state );
+                        special_cb( special, event.xkey.x, event.xkey.y );
+                        fgState.Modifiers = INVALID_MODIFIERS;
+                    }
+                }
+            }
+        }
+        break;
 
-  /*
-   * The windows processing is considerably smaller
-   */
-  while( PeekMessage( &stMsg, NULL, 0, 0, PM_NOREMOVE ) )
-  {
-    /*
-     * Grab the message now, checking for WM_QUIT
-     */
-    if( GetMessage( &stMsg, NULL, 0, 0 ) == 0 )
-      fgState.ExecState = GLUT_EXEC_STATE_STOP ;
+        case ReparentNotify:
+            break; /* XXX Should disable this event */
 
-    /*
-     * Translate virtual-key messages and send them to the window...
-     */
-    TranslateMessage( &stMsg );
-    DispatchMessage( &stMsg );
-  }
+        /* Not handled */
+        case GravityNotify:
+            break;
 
-  {
-    /*
-     * Have all the timers checked.
-     */
-    fghCheckTimers();
+        default:
+            fgWarning ("Unknown X event type: %d\n", event.type);
+            break;
+        }
+    }
 
-    /*
-     * Poll the joystick and notify all windows that want to be notified...
-     */
-    fghCheckJoystickPolls();
+#elif TARGET_HOST_MS_WINDOWS
 
-    /*
-     * No messages in the queue, which means we are idling...
-     */
-    if( fgState.IdleCallback != NULL )
-      fgState.IdleCallback();
+    MSG stMsg;
 
-    /*
-     * Remember about displaying all the windows that have
-     * been marked for a redisplay (possibly in the idle call):
-     */
-    fghDisplayAll();
-  }
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" );
+
+    while( PeekMessage( &stMsg, NULL, 0, 0, PM_NOREMOVE ) )
+    {
+        if( GetMessage( &stMsg, NULL, 0, 0 ) == 0 )
+        {
+            if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )
+            {
+                fgDeinitialize( );
+                exit( 0 );
+            }
+            else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )
+                fgState.ExecState = GLUT_EXEC_STATE_STOP;
+
+            return;
+        }
+
+        TranslateMessage( &stMsg );
+        DispatchMessage( &stMsg );
+    }
 #endif
 
-    /* 
-     * If an event caused a window to be closed, do the actual closing here
-     */
-    fgCloseWindows () ;
+    if( fgState.Timers.First )
+        fghCheckTimers( );
+    fghCheckJoystickPolls( );
+    fghDisplayAll( );
+
+    fgCloseWindows( );
 }
 
 /*
- * Enters the freeglut processing loop. Stays until the "ExecState" changes to "GLUT_EXEC_STATE_STOP".
+ * Enters the freeglut processing loop.
+ * Stays until the "ExecState" changes to "GLUT_EXEC_STATE_STOP".
  */
 void FGAPIENTRY glutMainLoop( void )
 {
-#if TARGET_HOST_WIN32
-  SFG_Window *window = (SFG_Window *)fgStructure.Windows.First ;
+    int action;
+
+#if TARGET_HOST_MS_WINDOWS
+    SFG_Window *window = (SFG_Window *)fgStructure.Windows.First ;
 #endif
 
-  /*
-   * Make sure the display has been created etc.
-   */
-  freeglut_assert_ready;
-
-#if TARGET_HOST_WIN32
-  /*
-   * Processing before the main loop:  If there is a window which is open and which
-   * has a visibility callback, call it.  I know this is an ugly hack, but I'm not sure
-   * what else to do about it.  Ideally we should leave something uninitialized in the
-   * create window code and initialize it in the main loop, and have that initialization
-   * create a "WM_ACTIVATE" message.  Then we would put the visibility callback code in
-   * the "case WM_ACTIVATE" block below.         - John Fay -- 10/24/02
-   */
-  while ( window != NULL )
-  {
-    if ( window->Callbacks.Visibility != NULL )
-    {
-      SFG_Window *current_window = fgStructure.Window ;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoop" );
 
-      /*
-       * Set the current window
-       */
-      fgSetWindow( window );
+#if TARGET_HOST_MS_WINDOWS
+    /*
+     * Processing before the main loop:  If there is a window which is open and
+     * which has a visibility callback, call it.  I know this is an ugly hack,
+     * but I'm not sure what else to do about it.  Ideally we should leave
+     * something uninitialized in the create window code and initialize it in
+     * the main loop, and have that initialization create a "WM_ACTIVATE"
+     * message.  Then we would put the visibility callback code in the
+     * "case WM_ACTIVATE" block below.         - John Fay -- 10/24/02
+     */
+    while( window )
+    {
+        if ( FETCH_WCB( *window, Visibility ) )
+        {
+            SFG_Window *current_window = fgStructure.CurrentWindow ;
 
-      window->Callbacks.Visibility ( window->State.Visible ) ;
+            INVOKE_WCB( *window, Visibility, ( window->State.Visible ) );
+            fgSetWindow( current_window );
+        }
 
-      /*
-       * Restore the current window
-       */
-      fgSetWindow( current_window );
+        window = (SFG_Window *)window->Node.Next ;
     }
-
-    window = (SFG_Window *)window->Node.Next ;
-  }
 #endif
 
-  /*
-   * Set freeglut to be running
-   */
-  fgState.ExecState = GLUT_EXEC_STATE_RUNNING ;
+    fgState.ExecState = GLUT_EXEC_STATE_RUNNING ;
+    while( fgState.ExecState == GLUT_EXEC_STATE_RUNNING )
+    {
+        SFG_Window *window;
 
-  /*
-   * Enter the main loop itself.  Inside the loop, process events and check for loop exit.
-   */
-  while ( fgState.ExecState == GLUT_EXEC_STATE_RUNNING )
-  {
-    glutMainLoopEvent () ;
+        glutMainLoopEvent( );
+        /*
+         * Step through the list of windows, seeing if there are any
+         * that are not menus
+         */
+        for( window = ( SFG_Window * )fgStructure.Windows.First;
+             window;
+             window = ( SFG_Window * )window->Node.Next )
+            if ( ! ( window->IsMenu ) )
+                break;
 
-    /*
-     * If there are no more windows open, stop execution
-     */
-    if ( fgStructure.Windows.First == NULL )
-      fgState.ExecState = GLUT_EXEC_STATE_STOP ;
-    else
-      fgSleepForEvents();
-  }
+        if( ! window )
+            fgState.ExecState = GLUT_EXEC_STATE_STOP;
+        else
+        {
+            if( fgState.IdleCallback )
+            {
+                if( fgStructure.CurrentWindow &&
+                    fgStructure.CurrentWindow->IsMenu )
+                    /* fail safe */
+                    fgSetWindow( window );
+                fgState.IdleCallback( );
+            }
 
-  {
-    fgExecutionState execState = fgState.ActionOnWindowClose;
+            fghSleepForEvents( );
+        }
+    }
 
     /*
      * When this loop terminates, destroy the display, state and structure
      * of a freeglut session, so that another glutInit() call can happen
+     *
+     * Save the "ActionOnWindowClose" because "fgDeinitialize" resets it.
      */
-    fgDeinitialize();
-
-    /*
-     * Check whether we return to the calling program or simply exit
-     */
-    if ( execState == GLUT_ACTION_EXIT )
-      exit ( 0 ) ;
-  }
+    action = fgState.ActionOnWindowClose;
+    fgDeinitialize( );
+    if( action == GLUT_ACTION_EXIT )
+        exit( 0 );
 }
 
 /*
@@ -1283,308 +1532,249 @@ void FGAPIENTRY glutMainLoop( void )
  */
 void FGAPIENTRY glutLeaveMainLoop( void )
 {
-  fgState.ExecState = GLUT_EXEC_STATE_STOP ;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutLeaveMainLoop" );
+    fgState.ExecState = GLUT_EXEC_STATE_STOP ;
+}
+
+
+#if TARGET_HOST_MS_WINDOWS
+/*
+ * Determine a GLUT modifer mask based on MS-WINDOWS system info.
+ */
+static int fghGetWin32Modifiers (void)
+{
+    return
+        ( ( ( GetKeyState( VK_LSHIFT   ) < 0 ) ||
+            ( GetKeyState( VK_RSHIFT   ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |
+        ( ( ( GetKeyState( VK_LCONTROL ) < 0 ) ||
+            ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL  : 0 ) |
+        ( ( ( GetKeyState( VK_LMENU    ) < 0 ) ||
+            ( GetKeyState( VK_RMENU    ) < 0 )) ? GLUT_ACTIVE_ALT   : 0 );
 }
 
 /*
  * The window procedure for handling Win32 events
  */
-#if TARGET_HOST_WIN32
-LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam )
+LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam,
+                               LPARAM lParam )
 {
-    SFG_Window* window = fgWindowByHandle( hWnd );
+    SFG_Window* window;
     PAINTSTRUCT ps;
-    LONG lRet = 1;
+    LRESULT lRet = 1;
+
+    FREEGLUT_INTERNAL_ERROR_EXIT_IF_NOT_INITIALISED ( "Event Handler" ) ;
+
+    window = fgWindowByHandle( hWnd );
 
     if ( ( window == NULL ) && ( uMsg != WM_CREATE ) )
-      return( DefWindowProc( hWnd, uMsg, wParam, lParam ) );
+      return DefWindowProc( hWnd, uMsg, wParam, lParam );
 
-/*    printf ( "Window %3d message <%04x> %12d %12d\n", window?window->ID:0, uMsg, wParam, lParam ) ; */
-    /*
-     * Check what type of message are we receiving
-     */
+    /* printf ( "Window %3d message <%04x> %12d %12d\n", window?window->ID:0,
+             uMsg, wParam, lParam ); */
     switch( uMsg )
     {
     case WM_CREATE:
-        /*
-         * The window structure is passed as the creation structure paramter...
-         */
+        /* The window structure is passed as the creation structure paramter... */
         window = (SFG_Window *) (((LPCREATESTRUCT) lParam)->lpCreateParams);
-        assert( window != NULL );
+        FREEGLUT_INTERNAL_ERROR_EXIT ( ( window != NULL ), "Cannot create window",
+                                       "fgWindowProc" );
 
-        /*
-         * We can safely store the window's handle now:
-         */
         window->Window.Handle = hWnd;
-
-        /*
-         * Get the window's device context
-         */
         window->Window.Device = GetDC( hWnd );
-
-        /*
-         * Create or get the OpenGL rendering context now
-         */
-        if ( fgState.BuildingAMenu )
+        if( window->IsMenu )
         {
-          /*
-           * Setup the pixel format of our window
-           */
-          unsigned int current_DisplayMode = fgState.DisplayMode ;
-          fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH ;
-          fgSetupPixelFormat( window, FALSE, PFD_MAIN_PLANE );
-          fgState.DisplayMode = current_DisplayMode ;
+            unsigned int current_DisplayMode = fgState.DisplayMode;
+            fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH;
+#if !defined(_WIN32_WCE)
+            fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );
+#endif
+            fgState.DisplayMode = current_DisplayMode;
 
-          /*
-           * If there isn't already an OpenGL rendering context for menu windows, make one
-           */
-          if ( !fgStructure.MenuContext )
-          {
-            fgStructure.MenuContext = (SFG_MenuContext *)malloc ( sizeof(SFG_MenuContext) ) ;
-            fgStructure.MenuContext->Context = wglCreateContext( window->Window.Device );
-          }
-          else
-            wglMakeCurrent ( window->Window.Device, fgStructure.MenuContext->Context ) ;
-
-/*          window->Window.Context = wglGetCurrentContext () ;   */
-          window->Window.Context = wglCreateContext( window->Window.Device );
+            if( fgStructure.MenuContext )
+                wglMakeCurrent( window->Window.Device,
+                                fgStructure.MenuContext->MContext
+                );
+            else
+            {
+                fgStructure.MenuContext =
+                    (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) );
+                fgStructure.MenuContext->MContext =
+                    wglCreateContext( window->Window.Device );
+            }
+
+            /* window->Window.Context = wglGetCurrentContext ();   */
+            window->Window.Context = wglCreateContext( window->Window.Device );
         }
         else
         {
-          /*
-           * Setup the pixel format of our window
-           */
-          fgSetupPixelFormat( window, FALSE, PFD_MAIN_PLANE );
-
-          if ( fgState.UseCurrentContext == TRUE )
-          {
-            window->Window.Context = wglGetCurrentContext();
-            if ( ! window->Window.Context )
-              window->Window.Context = wglCreateContext( window->Window.Device );
-          }
-          else
-            window->Window.Context = wglCreateContext( window->Window.Device );
+#if !defined(_WIN32_WCE)
+            fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );
+#endif
+
+            if( ! fgState.UseCurrentContext )
+                window->Window.Context =
+                    wglCreateContext( window->Window.Device );
+            else
+            {
+                window->Window.Context = wglGetCurrentContext( );
+                if( ! window->Window.Context )
+                    window->Window.Context =
+                        wglCreateContext( window->Window.Device );
+            }
+
+#if !defined(_WIN32_WCE)
+            fgNewWGLCreateContext( window );
+#endif
         }
 
-        /*
-         * Still, we'll be needing to explicitly resize the window
-         */
-        window->State.NeedToResize = TRUE;
+        window->State.NeedToResize = GL_TRUE;
+        if( ( window->State.Width < 0 ) || ( window->State.Height < 0 ) )
+        {
+            SFG_Window *current_window = fgStructure.CurrentWindow;
+
+            fgSetWindow( window );
+            window->State.Width = glutGet( GLUT_WINDOW_WIDTH );
+            window->State.Height = glutGet( GLUT_WINDOW_HEIGHT );
+            fgSetWindow( current_window );
+        }
 
-        /*
-         * Finally, have the window's device context released
-         */
         ReleaseDC( window->Window.Handle, window->Window.Device );
+
+#if defined(_WIN32_WCE)
+        /* Take over button handling */
+        {
+            HINSTANCE dxDllLib=LoadLibrary(_T("gx.dll"));
+            if (dxDllLib)
+            {
+                GXGetDefaultKeys_=(GXGETDEFAULTKEYS)GetProcAddress(dxDllLib, _T("?GXGetDefaultKeys@@YA?AUGXKeyList@@H@Z"));
+                GXOpenInput_=(GXOPENINPUT)GetProcAddress(dxDllLib, _T("?GXOpenInput@@YAHXZ"));
+            }
+
+            if(GXOpenInput_)
+                (*GXOpenInput_)();
+            if(GXGetDefaultKeys_)
+                gxKeyList = (*GXGetDefaultKeys_)(GX_LANDSCAPEKEYS);
+        }
+
+#endif /* defined(_WIN32_WCE) */
         break;
 
     case WM_SIZE:
         /*
-         * We got resized... But check if the window has been already added...
+         * If the window is visible, then it is the user manually resizing it.
+         * If it is not, then it is the system sending us a dummy resize with
+         * zero dimensions on a "glutIconifyWindow" call.
          */
-        fghReshapeWindowByHandle( hWnd, LOWORD(lParam), HIWORD(lParam) );
+        if( window->State.Visible )
+        {
+            window->State.NeedToResize = GL_TRUE;
+#if defined(_WIN32_WCE)
+            window->State.Width  = HIWORD(lParam);
+            window->State.Height = LOWORD(lParam);
+#else
+            window->State.Width  = LOWORD(lParam);
+            window->State.Height = HIWORD(lParam);
+#endif /* defined(_WIN32_WCE) */
+        }
+
         break;
 #if 0
-    case WM_SETFOCUS: 
-        printf("WM_SETFOCUS: %p\n", window );
+    case WM_SETFOCUS:
+/*        printf("WM_SETFOCUS: %p\n", window ); */
         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
         break;
 
-    case WM_ACTIVATE: 
+    case WM_ACTIVATE:
         if (LOWORD(wParam) != WA_INACTIVE)
         {
-          /* glutSetCursor( fgStructure.Window->State.Cursor ); */
-               printf("WM_ACTIVATE: glutSetCursor( %p, %d)\n", window, window->State.Cursor );
-
-          glutSetCursor( window->State.Cursor );
+/*            printf("WM_ACTIVATE: fgSetCursor( %p, %d)\n", window,
+                   window->State.Cursor ); */
+            fgSetCursor( window, window->State.Cursor );
         }
 
         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
         break;
 #endif
 
-    case WM_SETCURSOR: 
-        /*
-         * Windows seems to need reminding to erase the cursor for NONE.
-         */
-#if 0
-        if ((LOWORD(lParam) == HTCLIENT) &&
-           (fgStructure.Window->State.Cursor == GLUT_CURSOR_NONE))
-         SetCursor( NULL );
-#else
-       /* Set the cursor AND change it for this window class. */
-#      define MAP_CURSOR(a,b) case a: SetCursor( LoadCursor( NULL, b ) ); \
-        break;
-       /* Nuke the cursor AND change it for this window class. */
-#      define ZAP_CURSOR(a,b) case a: SetCursor( NULL ); \
-        break;
-
-        if (LOWORD(lParam) == HTCLIENT)
-         switch( window->State.Cursor )
-         {
-               MAP_CURSOR( GLUT_CURSOR_RIGHT_ARROW, IDC_ARROW     );
-               MAP_CURSOR( GLUT_CURSOR_LEFT_ARROW,  IDC_ARROW     );
-               MAP_CURSOR( GLUT_CURSOR_INFO,        IDC_HELP      );
-               MAP_CURSOR( GLUT_CURSOR_DESTROY,     IDC_CROSS     );
-               MAP_CURSOR( GLUT_CURSOR_HELP,        IDC_HELP      );
-               MAP_CURSOR( GLUT_CURSOR_CYCLE,       IDC_SIZEALL   );
-               MAP_CURSOR( GLUT_CURSOR_SPRAY,       IDC_CROSS     );
-               MAP_CURSOR( GLUT_CURSOR_WAIT,            IDC_WAIT      );
-               MAP_CURSOR( GLUT_CURSOR_TEXT,        IDC_UPARROW   );
-               MAP_CURSOR( GLUT_CURSOR_CROSSHAIR,   IDC_CROSS     );
-               /* MAP_CURSOR( GLUT_CURSOR_NONE,        IDC_NO             ); */
-               ZAP_CURSOR( GLUT_CURSOR_NONE,        NULL          );
-
-               default:
-               MAP_CURSOR( GLUT_CURSOR_UP_DOWN,     IDC_ARROW     );
-         }
-#endif
-       else
-         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
-       break;
-
-    case WM_SHOWWINDOW:
-        /*
-         * We are now Visible!
-         */
-        window->State.Visible = TRUE;
-        window->State.Redisplay = TRUE;
+    case WM_SETCURSOR:
+/*      printf ( "Cursor event %x %x %x %x\n", window, window->State.Cursor, lParam, wParam ) ; */
+        if( LOWORD( lParam ) == HTCLIENT )
+            fgSetCursor ( window, window->State.Cursor ) ;
+        else
+            lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
         break;
 
-    case WM_PAINT:
-        /*
-         * Start the painting job
-         */
-
-        BeginPaint( hWnd, &ps );
-
-        /*
-         * Call the engine's main frame drawing method
-         */
-        fghRedrawWindowByHandle( hWnd );
+    case WM_SHOWWINDOW:
+        window->State.Visible = GL_TRUE;
+        window->State.Redisplay = GL_TRUE;
+        break;
 
-        /*
-         * End the painting job, release the device context
-         */
+    case WM_PAINT:
+        /* Turn on the visibility in case it was turned off somehow */
+        window->State.Visible = GL_TRUE;
+        BeginPaint( hWnd, &ps );
+        fghRedrawWindow( window );
         EndPaint( hWnd, &ps );
         break;
 
     case WM_CLOSE:
-        /*
-         * Make sure we don't close a window with current context active
-         */
-        if( fgStructure.Window == window )
-        {
-          int used = FALSE ;
-          SFG_Window *iter ;
-
-            wglMakeCurrent( NULL, NULL );
-            /* Step through the list of windows.  If the rendering context is notbeing used
-             * by another window, then we delete it.
-             */
-            for ( iter = (SFG_Window *)fgStructure.Windows.First; iter; iter = (SFG_Window *)iter->Node.Next )
-            {
-              if ( ( iter->Window.Context == window->Window.Context ) && ( iter != window ) )
-                used = TRUE ;
-            }
-
-            if ( used == FALSE ) wglDeleteContext( window->Window.Context );
-        }
-
-        /*
-         * Put on a linked list of windows to be removed after all the callbacks have returned
-         */
-        fgAddToWindowDestroyList ( window, FALSE ) ;
-
-        /*
-         * Proceed with the window destruction
-         */
-        DestroyWindow( hWnd );
+        fgDestroyWindow ( window );
+        if ( fgState.ActionOnWindowClose != GLUT_ACTION_CONTINUE_EXECUTION )
+            PostQuitMessage(0);
         break;
 
     case WM_DESTROY:
         /*
          * The window already got destroyed, so don't bother with it.
          */
-        return( 0 );
+        return 0;
+
+    /* XXX For a future patch:  we need a mouse entry event.  Unfortunately Windows
+     * XXX doesn't give us one, so we will probably need a "MouseInWindow" flag in
+     * XXX the SFG_Window structure.  Set it to true to begin with and then have the
+     * XXX WM_MOUSELEAVE code set it to false.  Then when we get a WM_MOUSEMOVE event,
+     * XXX if the flag is false we invoke the Entry callback and set the flag to true.
+     */
+    case 0x02a2:  /* This is the message we get when the mouse is leaving the window */
+        if( window->IsMenu &&
+            window->ActiveMenu && window->ActiveMenu->IsActive )
+            fgUpdateMenuHighlight( window->ActiveMenu );
+
+        INVOKE_WCB( *window, Entry, ( GLUT_LEFT ) );
+        break ;
 
     case WM_MOUSEMOVE:
     {
-        /*
-         * The mouse cursor has moved. Remember the new mouse cursor's position
-         */
+#if defined(_WIN32_WCE)
+        window->State.MouseX = 320-HIWORD( lParam );
+        window->State.MouseY = LOWORD( lParam );
+#else
         window->State.MouseX = LOWORD( lParam );
         window->State.MouseY = HIWORD( lParam );
+#endif /* defined(_WIN32_WCE) */
+        /* Restrict to [-32768, 32767] to match X11 behaviour       */
+        /* See comment in "freeglut_developer" mailing list 10/4/04 */
+        if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;
+        if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;
 
-        /*
-         * Fallback if there's an active menu hooked to this window
-         */
-        if ( window->ActiveMenu != NULL )
+        if ( window->ActiveMenu )
         {
-            /*
-             * Let's make the window redraw as a result of the mouse motion.
-             */
-            window->State.Redisplay = TRUE ;
-
-            /*
-             * Since the window is a menu, make the parent window current
-             */
-            fgSetWindow ( window->ActiveMenu->ParentWindow ) ;
-
+            fgUpdateMenuHighlight( window->ActiveMenu );
             break;
         }
 
-        /*
-         * Remember the current modifiers state.
-         */
-        window->State.Modifiers = 
-            ( ( (GetKeyState( VK_LSHIFT   ) < 0 ) || ( GetKeyState( VK_RSHIFT   ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |
-            ( ( (GetKeyState( VK_LCONTROL ) < 0 ) || ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL  : 0 ) |
-            ( ( (GetKeyState( VK_LMENU    ) < 0 ) || ( GetKeyState( VK_RMENU    ) < 0 )) ? GLUT_ACTIVE_ALT   : 0 );
-
-        /*
-         * Check if any of the mouse buttons is pressed...
-         */
-        if( (wParam & MK_LBUTTON) || (wParam & MK_MBUTTON) || (wParam & MK_RBUTTON) )
-        {
-            /*
-             * Yeah, indeed. We need to use the motion callback then:
-             */
-            if( window->Callbacks.Motion != NULL )
-            {
-                /*
-                 * Make sure the current window is set...
-                 */
-                fgSetWindow( window );
+        fgState.Modifiers = fghGetWin32Modifiers( );
 
-                /*
-                 * Execute the active mouse motion callback now
-                 */
-                window->Callbacks.Motion( window->State.MouseX, window->State.MouseY );
-            }
-        }
+        if( ( wParam & MK_LBUTTON ) ||
+            ( wParam & MK_MBUTTON ) ||
+            ( wParam & MK_RBUTTON ) )
+            INVOKE_WCB( *window, Motion, ( window->State.MouseX,
+                                           window->State.MouseY ) );
         else
-        {
-            /*
-             * All mouse buttons are up, execute the passive mouse motion callback
-             */
-            if( window->Callbacks.Passive != NULL )
-            {
-                /*
-                 * Make sure the current window is set
-                 */
-                fgSetWindow( window );
-
-                /*
-                 * Execute the passive mouse motion callback
-                 */
-                window->Callbacks.Passive( window->State.MouseX, window->State.MouseY );
-            }
-        }
+            INVOKE_WCB( *window, Passive, ( window->State.MouseX,
+                                            window->State.MouseY ) );
 
-        /*
-         * Thrash the current modifiers state now
-         */
-        window->State.Modifiers = 0xffffffff;
+        fgState.Modifiers = INVALID_MODIFIERS;
     }
     break;
 
@@ -1595,143 +1785,175 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
     case WM_MBUTTONUP:
     case WM_RBUTTONUP:
     {
-        GLboolean pressed = TRUE;
+        GLboolean pressed = GL_TRUE;
         int button;
 
-        /*
-         * The mouse cursor has moved. Remember the new mouse cursor's position
-         */
+#if defined(_WIN32_WCE)
+        window->State.MouseX = 320-HIWORD( lParam );
+        window->State.MouseY = LOWORD( lParam );
+#else
         window->State.MouseX = LOWORD( lParam );
         window->State.MouseY = HIWORD( lParam );
+#endif /* defined(_WIN32_WCE) */
+
+        /* Restrict to [-32768, 32767] to match X11 behaviour       */
+        /* See comment in "freeglut_developer" mailing list 10/4/04 */
+        if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;
+        if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;
 
-        /*
-         * We're curious about the GLUT API button name...
-         */
         switch( uMsg )
         {
-        case WM_LBUTTONDOWN: pressed = TRUE;  button = GLUT_LEFT_BUTTON;   break;
-        case WM_MBUTTONDOWN: pressed = TRUE;  button = GLUT_MIDDLE_BUTTON; break;
-        case WM_RBUTTONDOWN: pressed = TRUE;  button = GLUT_RIGHT_BUTTON;  break;
-        case WM_LBUTTONUP:   pressed = FALSE; button = GLUT_LEFT_BUTTON;   break;
-        case WM_MBUTTONUP:   pressed = FALSE; button = GLUT_MIDDLE_BUTTON; break;
-        case WM_RBUTTONUP:   pressed = FALSE; button = GLUT_RIGHT_BUTTON;  break;
-        default:             pressed = FALSE; button = -1;                 break;
+        case WM_LBUTTONDOWN:
+            pressed = GL_TRUE;
+            button = GLUT_LEFT_BUTTON;
+            break;
+        case WM_MBUTTONDOWN:
+            pressed = GL_TRUE;
+            button = GLUT_MIDDLE_BUTTON;
+            break;
+        case WM_RBUTTONDOWN:
+            pressed = GL_TRUE;
+            button = GLUT_RIGHT_BUTTON;
+            break;
+        case WM_LBUTTONUP:
+            pressed = GL_FALSE;
+            button = GLUT_LEFT_BUTTON;
+            break;
+        case WM_MBUTTONUP:
+            pressed = GL_FALSE;
+            button = GLUT_MIDDLE_BUTTON;
+            break;
+        case WM_RBUTTONUP:
+            pressed = GL_FALSE;
+            button = GLUT_RIGHT_BUTTON;
+            break;
+        default:
+            pressed = GL_FALSE;
+            button = -1;
+            break;
         }
 
-        /*
-         * The left and right mouse buttons might have been swapped...
-         */
+#if !defined(_WIN32_WCE)
         if( GetSystemMetrics( SM_SWAPBUTTON ) )
-            if( button == GLUT_LEFT_BUTTON ) button = GLUT_RIGHT_BUTTON;
-            else if( button == GLUT_RIGHT_BUTTON ) button = GLUT_LEFT_BUTTON;
+        {
+            if( button == GLUT_LEFT_BUTTON )
+                button = GLUT_RIGHT_BUTTON;
+            else
+                if( button == GLUT_RIGHT_BUTTON )
+                    button = GLUT_LEFT_BUTTON;
+        }
+#endif /* !defined(_WIN32_WCE) */
 
-        /*
-         * Hey, what's up with you?
-         */
         if( button == -1 )
-            return( DefWindowProc( hWnd, uMsg, lParam, wParam ) );
+            return DefWindowProc( hWnd, uMsg, lParam, wParam );
 
         /*
-         * Do not execute the application's mouse callback if a menu is hooked to this button.
-         * In that case an appropriate private call should be generated.
-         * Near as I can tell, this is the menu behaviour:
-         *  - Down-click the menu button, menu not active:  activate the menu with its upper left-hand corner at the mouse location.
-         *  - Down-click any button outside the menu, menu active:  deactivate the menu
-         *  - Down-click any button inside the menu, menu active:  select the menu entry and deactivate the menu
-         *  - Up-click the menu button, menu not active:  nothing happens
-         *  - Up-click the menu button outside the menu, menu active:  nothing happens
-         *  - Up-click the menu button inside the menu, menu active:  select the menu entry and deactivate the menu
+         * Do not execute the application's mouse callback if a menu
+         * is hooked to this button.  In that case an appropriate
+         * private call should be generated.
          */
-        if ( window->ActiveMenu != NULL )  /* Window has an active menu, it absorbs any mouse click */
-        {
-          if ( fgCheckActiveMenu ( window, window->ActiveMenu ) == TRUE )  /* Inside the menu, invoke the callback and deactivate the menu*/
-          {
-            /* Save the current window and menu and set the current window to the window whose menu this is */
-            SFG_Window *save_window = fgStructure.Window ;
-            SFG_Menu *save_menu = fgStructure.Menu ;
-            SFG_Window *parent_window = window->ActiveMenu->ParentWindow ;
-            fgSetWindow ( parent_window ) ;
-            fgStructure.Menu = window->ActiveMenu ;
-
-            /* Execute the menu callback */
-            fgExecuteMenuCallback ( window->ActiveMenu ) ;
-            fgDeactivateMenu ( parent_window ) ;
-
-            /* Restore the current window and menu */
-            fgSetWindow ( save_window ) ;
-            fgStructure.Menu = save_menu ;
-          }
-          else  /* Outside the menu, deactivate the menu if it's a downclick */
-          {
-            if ( pressed == TRUE ) fgDeactivateMenu ( window->ActiveMenu->ParentWindow ) ;
-          }
-
-          /*
-           * Let's make the window redraw as a result of the mouse click and menu activity.
-           */
-          if ( ! window->IsMenu ) window->State.Redisplay = TRUE ;
-
-          break ;
-        }
+        if( fgCheckActiveMenu( window, button, pressed,
+                               window->State.MouseX, window->State.MouseY ) )
+            break;
 
+        /* Set capture so that the window captures all the mouse messages */
         /*
-         * No active menu, let's check whether we need to activate one.
+         * XXX - Multiple button support:  Under X11, the mouse is not released
+         * XXX - from the window until all buttons have been released, even if the
+         * XXX - user presses a button in another window.  This will take more
+         * XXX - code changes than I am up to at the moment (10/5/04).  The present
+         * XXX - is a 90 percent solution.
          */
-        if ( ( window->Menu[ button ] != NULL ) && ( pressed == TRUE ) )
-        {
-            /*
-             * Let's make the window redraw as a result of the mouse click.
-             */
-            window->State.Redisplay = TRUE ;
+        if ( pressed == GL_TRUE )
+          SetCapture ( window->Window.Handle ) ;
+        else
+          ReleaseCapture () ;
 
-            /*
-             * Set the current window
-             */
-            fgSetWindow( window );
+        if( ! FETCH_WCB( *window, Mouse ) )
+            break;
 
-            /*
-             * Activate the appropriate menu structure...
-             */
-            fgActivateMenu( window, button );
+        fgSetWindow( window );
+        fgState.Modifiers = fghGetWin32Modifiers( );
+
+        INVOKE_WCB(
+            *window, Mouse,
+            ( button,
+              pressed ? GLUT_DOWN : GLUT_UP,
+              window->State.MouseX,
+              window->State.MouseY
+            )
+        );
 
-            break;
-        }
+        fgState.Modifiers = INVALID_MODIFIERS;
+    }
+    break;
 
+    case 0x020a:
+        /* Should be WM_MOUSEWHEEL but my compiler doesn't recognize it */
+    {
         /*
-         * Check if there is a mouse callback hooked to the window
+         * XXX THIS IS SPECULATIVE -- John Fay, 10/2/03
+         * XXX Should use WHEEL_DELTA instead of 120
          */
-        if( window->Callbacks.Mouse == NULL )
-            break;
+        int wheel_number = LOWORD( wParam );
+        short ticks = ( short )HIWORD( wParam ) / 120;
+        int direction = 1;
 
-        /*
-         * Set the current window
-         */
-        fgSetWindow ( window );
+        if( ticks < 0 )
+        {
+            direction = -1;
+            ticks = -ticks;
+        }
 
         /*
-         * Remember the current modifiers state.
+         * The mouse cursor has moved. Remember the new mouse cursor's position
          */
-        fgStructure.Window->State.Modifiers = 
-            ( ( (GetKeyState( VK_LSHIFT   ) < 0 ) || ( GetKeyState( VK_RSHIFT   ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |
-            ( ( (GetKeyState( VK_LCONTROL ) < 0 ) || ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL  : 0 ) |
-            ( ( (GetKeyState( VK_LMENU    ) < 0 ) || ( GetKeyState( VK_RMENU    ) < 0 )) ? GLUT_ACTIVE_ALT   : 0 );
+        /*        window->State.MouseX = LOWORD( lParam ); */
+        /* Need to adjust by window position, */
+        /*        window->State.MouseY = HIWORD( lParam ); */
+        /* change "lParam" to other parameter */
 
-        /*
-         * Finally execute the mouse callback
-         */
-        window->Callbacks.Mouse(
-            button,
-            pressed == TRUE ? GLUT_DOWN : GLUT_UP,
-            window->State.MouseX,
-            window->State.MouseY
-        );
+        if( ! FETCH_WCB( *window, MouseWheel ) &&
+            ! FETCH_WCB( *window, Mouse ) )
+            break;
 
-        /*
-         * Trash the modifiers state
-         */
-        fgStructure.Window->State.Modifiers = 0xffffffff;
+        fgSetWindow( window );
+        fgState.Modifiers = fghGetWin32Modifiers( );
+
+        while( ticks-- )
+            if( FETCH_WCB( *window, MouseWheel ) )
+                INVOKE_WCB( *window, MouseWheel,
+                            ( wheel_number,
+                              direction,
+                              window->State.MouseX,
+                              window->State.MouseY
+                            )
+                );
+            else  /* No mouse wheel, call the mouse button callback twice */
+            {
+                /*
+                 * Map wheel zero to button 3 and 4; +1 to 3, -1 to 4
+                 *  "    "   one                     +1 to 5, -1 to 6, ...
+                 *
+                 * XXX The below assumes that you have no more than 3 mouse
+                 * XXX buttons.  Sorry.
+                 */
+                int button = wheel_number * 2 + 3;
+                if( direction < 0 )
+                    ++button;
+                INVOKE_WCB( *window, Mouse,
+                            ( button, GLUT_DOWN,
+                              window->State.MouseX, window->State.MouseY )
+                );
+                INVOKE_WCB( *window, Mouse,
+                            ( button, GLUT_UP,
+                              window->State.MouseX, window->State.MouseY )
+                );
+            }
+
+        fgState.Modifiers = INVALID_MODIFIERS;
     }
-    break;
+    break ;
 
     case WM_SYSKEYDOWN:
     case WM_KEYDOWN:
@@ -1739,86 +1961,84 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
         int keypress = -1;
         POINT mouse_pos ;
 
-        /*
-         * Ignore the automatic key repetition if needed:
-         */
-        if( fgState.IgnoreKeyRepeat && (lParam & KF_REPEAT) )
+        if( ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE ) && (HIWORD(lParam) & KF_REPEAT) )
             break;
 
         /*
-         * Remember the current modifiers state. This is done here in order 
+         * Remember the current modifiers state. This is done here in order
          * to make sure the VK_DELETE keyboard callback is executed properly.
          */
-        window->State.Modifiers = 
-            ( ( (GetKeyState( VK_LSHIFT   ) < 0 ) || ( GetKeyState( VK_RSHIFT   ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |
-            ( ( (GetKeyState( VK_LCONTROL ) < 0 ) || ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL  : 0 ) |
-            ( ( (GetKeyState( VK_LMENU    ) < 0 ) || ( GetKeyState( VK_RMENU    ) < 0 )) ? GLUT_ACTIVE_ALT   : 0 );
+        fgState.Modifiers = fghGetWin32Modifiers( );
 
-        /*
-         * Set the mouse position
-         */
-        GetCursorPos ( &mouse_pos ) ;
-        ScreenToClient ( window->Window.Handle, &mouse_pos ) ;
+        GetCursorPos( &mouse_pos );
+        ScreenToClient( window->Window.Handle, &mouse_pos );
 
-        window->State.MouseX = mouse_pos.x ;
-        window->State.MouseY = mouse_pos.y ;
+        window->State.MouseX = mouse_pos.x;
+        window->State.MouseY = mouse_pos.y;
 
-        /*
-         * Convert the Win32 keystroke codes to GLUTtish way
-         */
+        /* Convert the Win32 keystroke codes to GLUTtish way */
 #       define KEY(a,b) case a: keypress = b; break;
 
         switch( wParam )
         {
-            /*
-             * Most of the special characters can be handled automagically...
-             */
-            KEY( VK_F1,     GLUT_KEY_F1        ); KEY( VK_F2,     GLUT_KEY_F2        );
-            KEY( VK_F3,     GLUT_KEY_F3        ); KEY( VK_F4,     GLUT_KEY_F4        );
-            KEY( VK_F5,     GLUT_KEY_F5        ); KEY( VK_F6,     GLUT_KEY_F6        );
-            KEY( VK_F7,     GLUT_KEY_F7        ); KEY( VK_F8,     GLUT_KEY_F8        );
-            KEY( VK_F9,     GLUT_KEY_F9        ); KEY( VK_F10,    GLUT_KEY_F10       );
-            KEY( VK_F11,    GLUT_KEY_F11       ); KEY( VK_F12,    GLUT_KEY_F12       );
-            KEY( VK_PRIOR,  GLUT_KEY_PAGE_UP   ); KEY( VK_NEXT,   GLUT_KEY_PAGE_DOWN );
-            KEY( VK_HOME,   GLUT_KEY_HOME      ); KEY( VK_END,    GLUT_KEY_END       );
-            KEY( VK_LEFT,   GLUT_KEY_LEFT      ); KEY( VK_UP,     GLUT_KEY_UP        );
-            KEY( VK_RIGHT,  GLUT_KEY_RIGHT     ); KEY( VK_DOWN,   GLUT_KEY_DOWN      );
+            KEY( VK_F1,     GLUT_KEY_F1        );
+            KEY( VK_F2,     GLUT_KEY_F2        );
+            KEY( VK_F3,     GLUT_KEY_F3        );
+            KEY( VK_F4,     GLUT_KEY_F4        );
+            KEY( VK_F5,     GLUT_KEY_F5        );
+            KEY( VK_F6,     GLUT_KEY_F6        );
+            KEY( VK_F7,     GLUT_KEY_F7        );
+            KEY( VK_F8,     GLUT_KEY_F8        );
+            KEY( VK_F9,     GLUT_KEY_F9        );
+            KEY( VK_F10,    GLUT_KEY_F10       );
+            KEY( VK_F11,    GLUT_KEY_F11       );
+            KEY( VK_F12,    GLUT_KEY_F12       );
+            KEY( VK_PRIOR,  GLUT_KEY_PAGE_UP   );
+            KEY( VK_NEXT,   GLUT_KEY_PAGE_DOWN );
+            KEY( VK_HOME,   GLUT_KEY_HOME      );
+            KEY( VK_END,    GLUT_KEY_END       );
+            KEY( VK_LEFT,   GLUT_KEY_LEFT      );
+            KEY( VK_UP,     GLUT_KEY_UP        );
+            KEY( VK_RIGHT,  GLUT_KEY_RIGHT     );
+            KEY( VK_DOWN,   GLUT_KEY_DOWN      );
             KEY( VK_INSERT, GLUT_KEY_INSERT    );
 
-            /*
-             * ...yet there is a small exception we need to have handled...
-             */
-            case VK_DELETE:
-                /*
-                 * The delete key should be treated as an ASCII keypress:
-                 */
-                if( window->Callbacks.Keyboard != NULL )
-                {
-                    fgSetWindow( window );
-                    window->Callbacks.Keyboard( 127, window->State.MouseX, window->State.MouseY );
-                }
+        case VK_DELETE:
+            /* The delete key should be treated as an ASCII keypress: */
+            INVOKE_WCB( *window, Keyboard,
+                        ( 127, window->State.MouseX, window->State.MouseY )
+            );
         }
 
-        /*
-         * Execute the special callback, if present, given the conversion was a success:
-         */
-        if( (keypress != -1) && (window->Callbacks.Special != NULL) )
+#if defined(_WIN32_WCE)
+        if(!(lParam & 0x40000000)) /* Prevent auto-repeat */
         {
-            /*
-             * Set the current window
-             */
-            fgSetWindow( window );
-
-            /*
-             * Have the special callback executed:
-             */
-            window->Callbacks.Special( keypress, window->State.MouseX, window->State.MouseY );
+            if(wParam==(unsigned)gxKeyList.vkRight)
+                keypress = GLUT_KEY_RIGHT;
+            else if(wParam==(unsigned)gxKeyList.vkLeft)
+                keypress = GLUT_KEY_LEFT;
+            else if(wParam==(unsigned)gxKeyList.vkUp)
+                keypress = GLUT_KEY_UP;
+            else if(wParam==(unsigned)gxKeyList.vkDown)
+                keypress = GLUT_KEY_DOWN;
+            else if(wParam==(unsigned)gxKeyList.vkA)
+                keypress = GLUT_KEY_F1;
+            else if(wParam==(unsigned)gxKeyList.vkB)
+                keypress = GLUT_KEY_F2;
+            else if(wParam==(unsigned)gxKeyList.vkC)
+                keypress = GLUT_KEY_F3;
+            else if(wParam==(unsigned)gxKeyList.vkStart)
+                keypress = GLUT_KEY_F4;
         }
+#endif
 
-        /*
-         * Thrash the modifiers register now
-         */
-        window->State.Modifiers = 0xffffffff;
+        if( keypress != -1 )
+            INVOKE_WCB( *window, Special,
+                        ( keypress,
+                          window->State.MouseX, window->State.MouseY )
+            );
+
+        fgState.Modifiers = INVALID_MODIFIERS;
     }
     break;
 
@@ -1826,206 +2046,243 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
     case WM_KEYUP:
     {
         int keypress = -1;
-        POINT mouse_pos ;
+        POINT mouse_pos;
 
         /*
-         * Remember the current modifiers state. This is done here in order 
+         * Remember the current modifiers state. This is done here in order
          * to make sure the VK_DELETE keyboard callback is executed properly.
          */
-        window->State.Modifiers = 
-            ( ( (GetKeyState( VK_LSHIFT   ) < 0 ) || ( GetKeyState( VK_RSHIFT   ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |
-            ( ( (GetKeyState( VK_LCONTROL ) < 0 ) || ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL  : 0 ) |
-            ( ( (GetKeyState( VK_LMENU    ) < 0 ) || ( GetKeyState( VK_RMENU    ) < 0 )) ? GLUT_ACTIVE_ALT   : 0 );
+        fgState.Modifiers = fghGetWin32Modifiers( );
 
-        /*
-         * Set the mouse position
-         */
-        GetCursorPos ( &mouse_pos ) ;
-        ScreenToClient ( window->Window.Handle, &mouse_pos ) ;
+        GetCursorPos( &mouse_pos );
+        ScreenToClient( window->Window.Handle, &mouse_pos );
 
-        window->State.MouseX = mouse_pos.x ;
-        window->State.MouseY = mouse_pos.y ;
+        window->State.MouseX = mouse_pos.x;
+        window->State.MouseY = mouse_pos.y;
 
         /*
-         * Convert the Win32 keystroke codes to GLUTtish way.  "KEY(a,b)" was defined under "WM_KEYDOWN"
+         * Convert the Win32 keystroke codes to GLUTtish way.
+         * "KEY(a,b)" was defined under "WM_KEYDOWN"
          */
 
         switch( wParam )
         {
-          /*
-           * Most of the special characters can be handled automagically...
-           */
-          KEY( VK_F1,     GLUT_KEY_F1        ); KEY( VK_F2,     GLUT_KEY_F2        );
-          KEY( VK_F3,     GLUT_KEY_F3        ); KEY( VK_F4,     GLUT_KEY_F4        );
-          KEY( VK_F5,     GLUT_KEY_F5        ); KEY( VK_F6,     GLUT_KEY_F6        );
-          KEY( VK_F7,     GLUT_KEY_F7        ); KEY( VK_F8,     GLUT_KEY_F8        );
-          KEY( VK_F9,     GLUT_KEY_F9        ); KEY( VK_F10,    GLUT_KEY_F10       );
-          KEY( VK_F11,    GLUT_KEY_F11       ); KEY( VK_F12,    GLUT_KEY_F12       );
-          KEY( VK_PRIOR,  GLUT_KEY_PAGE_UP   ); KEY( VK_NEXT,   GLUT_KEY_PAGE_DOWN );
-          KEY( VK_HOME,   GLUT_KEY_HOME      ); KEY( VK_END,    GLUT_KEY_END       );
-          KEY( VK_LEFT,   GLUT_KEY_LEFT      ); KEY( VK_UP,     GLUT_KEY_UP        );
-          KEY( VK_RIGHT,  GLUT_KEY_RIGHT     ); KEY( VK_DOWN,   GLUT_KEY_DOWN      );
-          KEY( VK_INSERT, GLUT_KEY_INSERT    );
+            KEY( VK_F1,     GLUT_KEY_F1        );
+            KEY( VK_F2,     GLUT_KEY_F2        );
+            KEY( VK_F3,     GLUT_KEY_F3        );
+            KEY( VK_F4,     GLUT_KEY_F4        );
+            KEY( VK_F5,     GLUT_KEY_F5        );
+            KEY( VK_F6,     GLUT_KEY_F6        );
+            KEY( VK_F7,     GLUT_KEY_F7        );
+            KEY( VK_F8,     GLUT_KEY_F8        );
+            KEY( VK_F9,     GLUT_KEY_F9        );
+            KEY( VK_F10,    GLUT_KEY_F10       );
+            KEY( VK_F11,    GLUT_KEY_F11       );
+            KEY( VK_F12,    GLUT_KEY_F12       );
+            KEY( VK_PRIOR,  GLUT_KEY_PAGE_UP   );
+            KEY( VK_NEXT,   GLUT_KEY_PAGE_DOWN );
+            KEY( VK_HOME,   GLUT_KEY_HOME      );
+            KEY( VK_END,    GLUT_KEY_END       );
+            KEY( VK_LEFT,   GLUT_KEY_LEFT      );
+            KEY( VK_UP,     GLUT_KEY_UP        );
+            KEY( VK_RIGHT,  GLUT_KEY_RIGHT     );
+            KEY( VK_DOWN,   GLUT_KEY_DOWN      );
+            KEY( VK_INSERT, GLUT_KEY_INSERT    );
 
-          /*
-           * ...yet there is a small exception we need to have handled...
-           */
           case VK_DELETE:
-            /*
-             * The delete key should be treated as an ASCII keypress:
-             */
-            if( window->Callbacks.KeyboardUp != NULL )
-            {
-                fgSetWindow ( window ) ;
-                window->Callbacks.KeyboardUp( 127, window->State.MouseX, window->State.MouseY );
-            }
+              /* The delete key should be treated as an ASCII keypress: */
+              INVOKE_WCB( *window, KeyboardUp,
+                          ( 127, window->State.MouseX, window->State.MouseY )
+              );
+              break;
 
-            break ;
-          default:
-            {
-              /*
-               * Call the KeyboardUp callback for a regular character if there is one.
-               */
-              BYTE state[ 256 ];
-              WORD code[ 2 ];
+        default:
+        {
+#if !defined(_WIN32_WCE)
+            BYTE state[ 256 ];
+            WORD code[ 2 ];
 
-              GetKeyboardState(state);
+            GetKeyboardState( state );
 
-              if ( ToAscii( wParam, 0, state, code, 0 ) == 1 )
+            if( ToAscii( (UINT)wParam, 0, state, code, 0 ) == 1 )
                 wParam=code[ 0 ];
 
-              if( window->Callbacks.KeyboardUp != NULL )
-              {
-                /*
-                 * Set the current window
-                 */
-                fgSetWindow( window );
-
-                window->Callbacks.KeyboardUp( (char)wParam, window->State.MouseX, window->State.MouseY );
-              }
-            }
+            INVOKE_WCB( *window, KeyboardUp,
+                        ( (char)wParam,
+                          window->State.MouseX, window->State.MouseY )
+            );
+#endif /* !defined(_WIN32_WCE) */
         }
-
-        /*
-         * Execute the special callback, if present, given the conversion was a success:
-         */
-        if( (keypress != -1) && (window->Callbacks.SpecialUp != NULL) )
-        {
-            /*
-             * Set the current window
-             */
-            fgSetWindow( window );
-
-            /*
-             * Have the special callback executed:
-             */
-            window->Callbacks.SpecialUp( keypress, window->State.MouseX, window->State.MouseY );
         }
 
-        /*
-         * Thrash the modifiers register now
-         */
-        window->State.Modifiers = 0xffffffff;
+        if( keypress != -1 )
+            INVOKE_WCB( *window, SpecialUp,
+                        ( keypress,
+                          window->State.MouseX, window->State.MouseY )
+            );
+
+        fgState.Modifiers = INVALID_MODIFIERS;
     }
     break;
 
     case WM_SYSCHAR:
     case WM_CHAR:
     {
-        /*
-         * Ignore the automatic key repetition if needed:
-         */
-        if( fgState.IgnoreKeyRepeat && (lParam & KF_REPEAT) )
+      if( (fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE) && (HIWORD(lParam) & KF_REPEAT) )
             break;
 
-        /*
-         * Clear to go with the keyboard callback, if registered:
-         */
-        if( window->Callbacks.Keyboard != NULL )
-        {
-            /*
-             * Set the current window
-             */
-            fgSetWindow( window );
+        fgState.Modifiers = fghGetWin32Modifiers( );
+        INVOKE_WCB( *window, Keyboard,
+                    ( (char)wParam,
+                      window->State.MouseX, window->State.MouseY )
+        );
+        fgState.Modifiers = INVALID_MODIFIERS;
+    }
+    break;
 
-            /*
-             * Remember the current modifiers state
-             */
-            window->State.Modifiers = 
-                ( ( (GetKeyState( VK_LSHIFT   ) < 0 ) || ( GetKeyState( VK_RSHIFT   ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |
-                ( ( (GetKeyState( VK_LCONTROL ) < 0 ) || ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL  : 0 ) |
-                ( ( (GetKeyState( VK_LMENU    ) < 0 ) || ( GetKeyState( VK_RMENU    ) < 0 )) ? GLUT_ACTIVE_ALT   : 0 );
+    case WM_CAPTURECHANGED:
+        /* User has finished resizing the window, force a redraw */
+        INVOKE_WCB( *window, Display, ( ) );
 
-            /*
-             * Have the special callback executed:
-             */
-            window->Callbacks.Keyboard( (char)wParam, window->State.MouseX, window->State.MouseY );
+        /*lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); */
+        break;
 
-            /*
-             * Thrash the modifiers register now
-             */
-            window->State.Modifiers = 0xffffffff;
-        }
-    }
-    break;
+        /* Other messages that I have seen and which are not handled already */
+    case WM_SETTEXT:  /* 0x000c */
+        lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
+        /* Pass it on to "DefWindowProc" to set the window text */
+        break;
 
-    case WM_CAPTURECHANGED :  /* User has finished resizing the window, force a redraw */
-      if ( window->Callbacks.Display )
-      {
-        /*
-         * Set the current window
-         */
-        fgSetWindow( window );
+    case WM_GETTEXT:  /* 0x000d */
+        /* Ideally we would copy the title of the window into "lParam" */
+        /* strncpy ( (char *)lParam, "Window Title", wParam );
+           lRet = ( wParam > 12 ) ? 12 : wParam;  */
+        /* the number of characters copied */
+        lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
+        break;
+
+    case WM_GETTEXTLENGTH:  /* 0x000e */
+        /* Ideally we would get the length of the title of the window */
+        lRet = 12;
+        /* the number of characters in "Window Title\0" (see above) */
+        break;
+
+    case WM_ERASEBKGND:  /* 0x0014 */
+        lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
+        break;
+
+#if !defined(_WIN32_WCE)
+    case WM_SYNCPAINT:  /* 0x0088 */
+        /* Another window has moved, need to update this one */
+        window->State.Redisplay = GL_TRUE;
+        lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
+        /* Help screen says this message must be passed to "DefWindowProc" */
+        break;
 
-        window->Callbacks.Display () ;
-      }
-
-/*      lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ) ; */
-      break ;
-
-      /*
-       * Other messages that I have seen and which are not handled already
-       */
-    case WM_SETTEXT :  /* 0x000c */
-      lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );  /* Pass it on to "DefWindowProc" to set the window text */
-      break ;
-
-    case WM_GETTEXT :  /* 0x000d */
-      /* Ideally we would copy the title of the window into "lParam" */
-/*      strncpy ( (char *)lParam, "Window Title", wParam ) ;
-      lRet = ( wParam > 12 ) ? 12 : wParam ;  */ /* the number of characters copied */
-      lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
-      break ;
-
-    case WM_GETTEXTLENGTH :  /* 0x000e */
-      /* Ideally we would get the length of the title of the window */
-      lRet = 12 ;  /* the number of characters in "Window Title\0" (see above) */
-      break ;
-
-    case WM_ERASEBKGND :  /* 0x0014 */
-      lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
-      break ;
-
-    case WM_SYNCPAINT :  /* 0x0088 */
-      /* Another window has moved, need to update this one */
-      window->State.Redisplay = TRUE ;
-      lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );  /* Help screen says this message must be passed to "DefWindowProc" */
-      break ;
-
-    case WM_NCPAINT :  /* 0x0085 */
+    case WM_NCPAINT:  /* 0x0085 */
       /* Need to update the border of this window */
-      lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );  /* Pass it on to "DefWindowProc" to repaint a standard border */
-      break ;
+        lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
+        /* Pass it on to "DefWindowProc" to repaint a standard border */
+        break;
+
+    case WM_SYSCOMMAND :  /* 0x0112 */
+        {
+          /*
+           * We have received a system command message.  Try to act on it.
+           * The commands are passed in through the "wParam" parameter:
+           * The least significant digit seems to be which edge of the window
+           * is being used for a resize event:
+           *     4  3  5
+           *     1     2
+           *     7  6  8
+           * Congratulations and thanks to Richard Rauch for figuring this out..
+           */
+            switch ( wParam & 0xfff0 )
+            {
+            case SC_SIZE       :
+                break ;
+
+            case SC_MOVE       :
+                break ;
+
+            case SC_MINIMIZE   :
+                /* User has clicked on the "-" to minimize the window */
+                /* Turn off the visibility */
+                window->State.Visible = GL_FALSE ;
+
+                break ;
+
+            case SC_MAXIMIZE   :
+                break ;
+
+            case SC_NEXTWINDOW :
+                break ;
+
+            case SC_PREVWINDOW :
+                break ;
+
+            case SC_CLOSE      :
+                /* Followed very closely by a WM_CLOSE message */
+                break ;
+
+            case SC_VSCROLL    :
+                break ;
+
+            case SC_HSCROLL    :
+                break ;
+
+            case SC_MOUSEMENU  :
+                break ;
+
+            case SC_KEYMENU    :
+                break ;
+
+            case SC_ARRANGE    :
+                break ;
+
+            case SC_RESTORE    :
+                break ;
+
+            case SC_TASKLIST   :
+                break ;
+
+            case SC_SCREENSAVE :
+                break ;
+
+            case SC_HOTKEY     :
+                break ;
+
+#if(WINVER >= 0x0400)
+            case SC_DEFAULT    :
+                break ;
+
+            case SC_MONITORPOWER    :
+                break ;
+
+            case SC_CONTEXTHELP    :
+                break ;
+#endif /* WINVER >= 0x0400 */
+
+            default:
+#if _DEBUG
+                fgWarning( "Unknown wParam type 0x%x", wParam );
+#endif
+                break;
+            }
+        }
+#endif /* !defined(_WIN32_WCE) */
+
+        /* We need to pass the message on to the operating system as well */
+        lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
+        break;
 
     default:
-        /*
-         * Handle unhandled messages
-         */
+        /* Handle unhandled messages */
         lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
         break;
     }
 
-    return( lRet );
+    return lRet;
 }
 #endif