Grrr. My attempt to commit got aborted, and the commit message was lost.
[freeglut] / src / freeglut_main.c
index ee20be9..e54fc81 100644 (file)
@@ -78,38 +78,13 @@ static void fghRedrawWindowByHandle
     ( HWND handle )
 #endif
 {
-    /*
-     * Find the window we have to redraw...
-     */
     SFG_Window* window = fgWindowByHandle( handle );
     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 );
 
-    /*
-     * Set the window as the current one.
-     */
     fgSetWindow( window );
-
-    /*
-     * Do not exagerate with the redisplaying
-     */
     window->State.Redisplay = FALSE;
-
-    /*
-     * Have the callback executed now. The buffers should
-     * be swapped by the glutSwapBuffers() execution inside
-     * the callback itself.
-     */
-
     window->Callbacks.Display();
 }
 
@@ -127,46 +102,24 @@ static void fghReshapeWindowByHandle
 {
   SFG_Window *current_window = fgStructure.Window ;
 
-    /*
-     * Find the window that received the reshape event
-     */
     SFG_Window* window = fgWindowByHandle( handle );
     freeglut_return_if_fail( window != NULL );
 
-    /*
-     * Remember about setting the current window...
-     */
     fgSetWindow( window );
-
-    /*
-     * Check if there is a reshape callback hooked
-     */
     if( window->Callbacks.Reshape != NULL )
-    {
-        /*
-         * OKi, have it called immediately
-         */
         window->Callbacks.Reshape( width, height );
-    }
     else
-    {
-        /*
-         * Otherwise just resize the viewport
-         */
         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 ;
 
-    /*
-     * If this is a menu, restore the active window
-     */
     if ( window->IsMenu )
       fgSetWindow ( current_window ) ;
 }
@@ -177,38 +130,20 @@ static void fghReshapeWindowByHandle
 static void fghcbDisplayWindow( SFG_Window *window, SFG_Enumerator *enumerator )
 {
 #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 );
-
-        /*
-         * Do not exagerate with the redisplaying
-         */
         window->State.Redisplay = FALSE;
-
-        /*
-         * And execute the display callback immediately after
-         */
         window->Callbacks.Display();
-
         fgSetWindow ( current_window ) ;
     }
 
 #elif TARGET_HOST_WIN32
 
-    /*
-     * Do we need to explicitly resize the window?
-     */
     if( window->State.NeedToResize )
     {
         SFG_Window *current_window = fgStructure.Window ;
@@ -221,24 +156,14 @@ static void fghcbDisplayWindow( SFG_Window *window, SFG_Enumerator *enumerator )
             glutGet( GLUT_WINDOW_HEIGHT )
         );
 
-        /*
-         * Never ever do that again:
-         */
         window->State.NeedToResize = FALSE;
-
         fgSetWindow ( current_window ) ;
     }
 
-    /*
-     * 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( 
@@ -249,9 +174,6 @@ static void fghcbDisplayWindow( SFG_Window *window, SFG_Enumerator *enumerator )
 
 #endif
 
-    /*
-     * Process this window's children (if any)
-     */
     fgEnumSubWindows( window, fghcbDisplayWindow, enumerator );
 }
 
@@ -262,15 +184,9 @@ static void fghDisplayAll( void )
 {
     SFG_Enumerator enumerator;
 
-    /*
-     * Uses a method very similiar for fgWindowByHandle...
-     */
     enumerator.found = FALSE;
     enumerator.data  =  NULL;
 
-    /*
-     * Start the enumeration now:
-     */
     fgEnumWindows( fghcbDisplayWindow, &enumerator );
 }
 
@@ -281,25 +197,12 @@ static void fghcbCheckJoystickPolls( SFG_Window *window, SFG_Enumerator *enumera
 {
     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 )
     {
-        /*
-         * Yeah, that's it. Poll the joystick...
-         */
         fgJoystickPollWindow( window );
-
-        /*
-         * ...and reset the polling counters:
-         */
         window->State.JoystickLastPoll = checkTime;
     }
 
-    /*
-     * Process this window's children (if any)
-     */
     fgEnumSubWindows( window, fghcbCheckJoystickPolls, enumerator );
 }
 
@@ -310,15 +213,9 @@ static void fghCheckJoystickPolls( void )
 {
     SFG_Enumerator enumerator;
 
-    /*
-     * Uses a method very similiar for fgWindowByHandle...
-     */
     enumerator.found = FALSE;
     enumerator.data  =  NULL;
 
-    /*
-     * Start the enumeration now:
-     */
     fgEnumWindows( fghcbCheckJoystickPolls, &enumerator );
 }
 
@@ -336,19 +233,15 @@ static void fghCheckTimers( void )
     /*
      * For every timer that is waiting for triggering
      */
-    for( timer = (SFG_Timer *)fgState.Timers.First; timer; timer = (SFG_Timer *)next )
+    for( timer = (SFG_Timer *)fgState.Timers.First;
+         timer;
+         timer = (SFG_Timer *)next )
     {
              next = (SFG_Timer *)timer->Node.Next;
 
-        /*
-         * Check for the timeout:
-         */
         if( timer->TriggerTime <= checkTime )
         {
-            /*
-             * Add the timer to the timed out timers list
-             */
-                 fgListRemove( &fgState.Timers, &timer->Node );
+          fgListRemove( &fgState.Timers, &timer->Node );
             fgListAppend( &timedOut, &timer->Node );
         }
     }
@@ -361,7 +254,7 @@ static void fghCheckTimers( void )
     {
         if( timer->Callback != NULL )
             timer->Callback( timer->ID );
-       fgListRemove( &timedOut, &timer->Node );
+        fgListRemove( &timedOut, &timer->Node );
         free( timer );
     }
 }
@@ -373,17 +266,17 @@ static void fghCheckTimers( void )
 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 );
+    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);
+    return (timeGetTime() - fgState.Time.Value);
 #endif
 }
 
@@ -396,7 +289,9 @@ void fgError( const char *fmt, ... )
 
     va_start( ap, fmt );
 
-    fprintf( stderr, "freeglut (%s): ", fgState.ProgramName || "");
+    fprintf( stderr, "freeglut ");
+    if( fgState.ProgramName )
+        fprintf (stderr, "(%s): ", fgState.ProgramName);
     vfprintf( stderr, fmt, ap );
     fprintf( stderr, "\n" );
 
@@ -411,7 +306,9 @@ void fgWarning( const char *fmt, ... )
 
     va_start( ap, fmt );
 
-    fprintf( stderr, "freeglut (%s): ", fgState.ProgramName || "");
+    fprintf( stderr, "freeglut ");
+    if( fgState.ProgramName )
+        fprintf( stderr, "(%s): ", fgState.ProgramName );
     vfprintf( stderr, fmt, ap );
     fprintf( stderr, "\n" );
 
@@ -545,27 +442,21 @@ void FGAPIENTRY glutMainLoopEvent( void )
   /*
    * 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;
+# 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 );
 
-    /*
-     * Check the event's type
-     */
     switch( event.type )
     {
     case DestroyNotify:
@@ -759,10 +650,10 @@ void FGAPIENTRY glutMainLoopEvent( void )
          */
         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 ;
+           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 ;
             }
 
             /*
@@ -775,7 +666,7 @@ void FGAPIENTRY glutMainLoopEvent( void )
              */
             fgSetWindow ( window->ActiveMenu->ParentWindow ) ;
 
-            break;  /* I think this should stay in -- an active menu should absorb the mouse motion */
+            break;
         }
 
         /*
@@ -837,15 +728,15 @@ void FGAPIENTRY glutMainLoopEvent( void )
          */
         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;
+        /*
+        * 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.
@@ -860,47 +751,46 @@ void FGAPIENTRY glutMainLoopEvent( void )
          */
         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 ) ;
-          }
-
-          /*
-           * Let's make the window redraw as a result of the mouse click and menu activity.
-           */
-          window->State.Redisplay = TRUE ;
-
-          break ;
+           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 ) ;
+
+           /*
+            * Let's make the window redraw as a result of the mouse click and menu activity.
+            */
+           window->State.Redisplay = TRUE ;
+           
+           break ;
         }
 
         /*
          * No active menu, let's check whether we need to activate one.
          */
         if (( 0 <= button ) && ( 2 >= button ) &&
-           ( window->Menu[ button ] != NULL ) && ( pressed == TRUE ) )
+           ( window->Menu[ button ] != NULL ) && ( pressed == TRUE ) )
         {
           /*
            * Let's make the window redraw as a result of the mouse click.
@@ -921,19 +811,15 @@ void FGAPIENTRY glutMainLoopEvent( void )
         }
 
         /*
-         * Check if there is a mouse callback hooked to the window
+         * Check if there is a mouse or mouse wheel callback hooked to the
+         * window
          */
-        if( window->Callbacks.Mouse == NULL )
+        if ( ( window->Callbacks.Mouse == NULL ) &&
+             ( window->Callbacks.MouseWheel == NULL ) )
           break;
 
-        /*
-         * Set the current window
-         */
         fgSetWindow ( window );
 
-        /*
-         * Remember the current modifiers state
-         */
         modifiers = 0;
         if (event.xbutton.state & (ShiftMask|LockMask))
           modifiers |= GLUT_ACTIVE_SHIFT;
@@ -944,14 +830,53 @@ void FGAPIENTRY glutMainLoopEvent( void )
         fgStructure.Window->State.Modifiers = modifiers;
 
         /*
-         * Finally execute the mouse callback
+         * Finally execute the mouse or mouse wheel callback
+         *
+         * XXX Use a symbolic constant, *not* "4"!
          */
-        fgStructure.Window->Callbacks.Mouse(
-            button,
-            event.type == ButtonPress ? GLUT_DOWN : GLUT_UP,
-            event.xbutton.x,
-            event.xbutton.y
-        );
+        if ( button < 4 )
+        {
+          fgStructure.Window->Callbacks.Mouse(
+              button,
+              event.type == ButtonPress ? GLUT_DOWN : GLUT_UP,
+              event.xbutton.x,
+              event.xbutton.y
+          );
+        }
+        else
+        {
+          if ( window->Callbacks.MouseWheel )
+          {
+              /*
+               * 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).
+               */
+            int wheel_number = (button - 4) / 2;
+            int direction = (button & 1)*2 - 1;
+
+            if( ButtonPress )
+                fgStructure.Window->Callbacks.MouseWheel(
+                    wheel_number,
+                    direction,
+                    event.xbutton.x,
+                    event.xbutton.y
+                );
+          }
+          else
+          {
+            fgStructure.Window->Callbacks.Mouse(
+                button,
+                event.type == ButtonPress ? GLUT_DOWN : GLUT_UP,
+                event.xbutton.x,
+                event.xbutton.y
+               );
+          }
+        }
 
         /*
          * Trash the modifiers state
@@ -969,7 +894,8 @@ void FGAPIENTRY glutMainLoopEvent( void )
         /*
          * A key has been pressed, find the window that had the focus:
          */
-        GETWINDOW( xkey ); GETMOUSE( xkey );
+        GETWINDOW( xkey );
+       GETMOUSE( xkey );
 
         if( event.type == KeyPress )
         {
@@ -1086,9 +1012,6 @@ void FGAPIENTRY glutMainLoopEvent( void )
              */
             if( (special_cb != NULL) && (special != -1) )
             {
-              /*
-               * Set the current window
-               */
               fgSetWindow( window );
 
               /*
@@ -1117,81 +1040,25 @@ void FGAPIENTRY glutMainLoopEvent( void )
     }
   }
 
-  {
-    /*
-     * Have all the timers checked.
-     */
-    fghCheckTimers();
-
-    /*
-     * Poll the joystick and notify all windows that want to be notified...
-     */
-    fghCheckJoystickPolls();
-
-    /*
-     * No messages in the queue, which means we are idling...
-     */
-    if( fgState.IdleCallback != NULL )
-        fgState.IdleCallback();
-
-    /*
-     * Remember about displaying all the windows that have
-     * been marked for a redisplay (possibly in the idle call):
-     */
-    fghDisplayAll();
-  }
-
 #elif TARGET_HOST_WIN32
 
   MSG stMsg;
 
-  /*
-   * The windows processing is considerably smaller
-   */
-  while( PeekMessage( &stMsg, NULL, 0, 0, PM_NOREMOVE ) )
+  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 ;
 
-    /*
-     * Translate virtual-key messages and send them to the window...
-     */
     TranslateMessage( &stMsg );
     DispatchMessage( &stMsg );
   }
-
-  {
-    /*
-     * Have all the timers checked.
-     */
-    fghCheckTimers();
-
-    /*
-     * Poll the joystick and notify all windows that want to be notified...
-     */
-    fghCheckJoystickPolls();
-
-    /*
-     * No messages in the queue, which means we are idling...
-     */
-    if( fgState.IdleCallback != NULL )
-      fgState.IdleCallback();
-
-    /*
-     * Remember about displaying all the windows that have
-     * been marked for a redisplay (possibly in the idle call):
-     */
-    fghDisplayAll();
-  }
 #endif
 
-    /* 
-     * If an event caused a window to be closed, do the actual closing here
-     */
-    fgCloseWindows () ;
+  fghCheckTimers();
+  fghCheckJoystickPolls();
+  fghDisplayAll();
+
+  fgCloseWindows () ;
 }
 
 /*
@@ -1203,19 +1070,17 @@ void FGAPIENTRY glutMainLoop( void )
   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
+   * 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 )
   {
@@ -1223,16 +1088,8 @@ void FGAPIENTRY glutMainLoop( void )
     {
       SFG_Window *current_window = fgStructure.Window ;
 
-      /*
-       * Set the current window
-       */
       fgSetWindow( window );
-
       window->Callbacks.Visibility ( window->State.Visible ) ;
-
-      /*
-       * Restore the current window
-       */
       fgSetWindow( current_window );
     }
 
@@ -1240,25 +1097,20 @@ void FGAPIENTRY glutMainLoop( void )
   }
 #endif
 
-  /*
-   * Set freeglut to be running
-   */
   fgState.ExecState = GLUT_EXEC_STATE_RUNNING ;
-
-  /*
-   * Enter the main loop itself.  Inside the loop, process events and check for loop exit.
-   */
   while ( fgState.ExecState == GLUT_EXEC_STATE_RUNNING )
   {
     glutMainLoopEvent () ;
 
-    /*
-     * If there are no more windows open, stop execution
-     */
     if ( fgStructure.Windows.First == NULL )
       fgState.ExecState = GLUT_EXEC_STATE_STOP ;
     else
+    {
+      if ( fgState.IdleCallback )
+        fgState.IdleCallback ();
+
       fgSleepForEvents();
+    }
   }
 
   {
@@ -1270,9 +1122,6 @@ void FGAPIENTRY glutMainLoop( void )
      */
     fgDeinitialize();
 
-    /*
-     * Check whether we return to the calling program or simply exit
-     */
     if ( execState == GLUT_ACTION_EXIT )
       exit ( 0 ) ;
   }
@@ -1300,9 +1149,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
       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
-     */
     switch( uMsg )
     {
     case WM_CREATE:
@@ -1312,32 +1158,15 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
         window = (SFG_Window *) (((LPCREATESTRUCT) lParam)->lpCreateParams);
         assert( window != NULL );
 
-        /*
-         * 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 )
         {
-          /*
-           * 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 ;
 
-          /*
-           * 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) ) ;
@@ -1351,9 +1180,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
         }
         else
         {
-          /*
-           * Setup the pixel format of our window
-           */
           fgSetupPixelFormat( window, FALSE, PFD_MAIN_PLANE );
 
           if ( fgState.UseCurrentContext == TRUE )
@@ -1366,14 +1192,7 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
             window->Window.Context = wglCreateContext( window->Window.Device );
         }
 
-        /*
-         * Still, we'll be needing to explicitly resize the window
-         */
         window->State.NeedToResize = TRUE;
-
-        /*
-         * Finally, have the window's device context released
-         */
         ReleaseDC( window->Window.Handle, window->Window.Device );
         break;
 
@@ -1443,28 +1262,13 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
        break;
 
     case WM_SHOWWINDOW:
-        /*
-         * We are now Visible!
-         */
         window->State.Visible = TRUE;
         window->State.Redisplay = TRUE;
         break;
 
     case WM_PAINT:
-        /*
-         * Start the painting job
-         */
-
         BeginPaint( hWnd, &ps );
-
-        /*
-         * Call the engine's main frame drawing method
-         */
         fghRedrawWindowByHandle( hWnd );
-
-        /*
-         * End the painting job, release the device context
-         */
         EndPaint( hWnd, &ps );
         break;
 
@@ -1478,7 +1282,7 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
           SFG_Window *iter ;
 
             wglMakeCurrent( NULL, NULL );
-            /* Step through the list of windows.  If the rendering context is notbeing used
+            /* Step through the list of windows.  If the rendering context is not being used
              * by another window, then we delete it.
              */
             for ( iter = (SFG_Window *)fgStructure.Windows.First; iter; iter = (SFG_Window *)iter->Node.Next )
@@ -1494,10 +1298,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
          * 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 );
         break;
 
@@ -1509,20 +1309,11 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
 
     case WM_MOUSEMOVE:
     {
-        /*
-         * The mouse cursor has moved. Remember the new mouse cursor's position
-         */
         window->State.MouseX = LOWORD( lParam );
         window->State.MouseY = HIWORD( lParam );
 
-        /*
-         * Fallback if there's an active menu hooked to this window
-         */
         if ( window->ActiveMenu != NULL )
         {
-            /*
-             * Let's make the window redraw as a result of the mouse motion.
-             */
             window->State.Redisplay = TRUE ;
 
             /*
@@ -1533,57 +1324,28 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
             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 );
-
-                /*
-                 * Execute the active mouse motion callback now
-                 */
                 window->Callbacks.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 );
             }
         }
 
-        /*
-         * Thrash the current modifiers state now
-         */
         window->State.Modifiers = 0xffffffff;
     }
     break;
@@ -1598,15 +1360,9 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
         GLboolean pressed = TRUE;
         int button;
 
-        /*
-         * The mouse cursor has moved. Remember the new mouse cursor's position
-         */
         window->State.MouseX = LOWORD( lParam );
         window->State.MouseY = HIWORD( lParam );
 
-        /*
-         * We're curious about the GLUT API button name...
-         */
         switch( uMsg )
         {
         case WM_LBUTTONDOWN: pressed = TRUE;  button = GLUT_LEFT_BUTTON;   break;
@@ -1618,16 +1374,10 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
         default:             pressed = FALSE; button = -1;                 break;
         }
 
-        /*
-         * The left and right mouse buttons might have been swapped...
-         */
         if( GetSystemMetrics( SM_SWAPBUTTON ) )
             if( button == GLUT_LEFT_BUTTON ) button = GLUT_RIGHT_BUTTON;
             else if( button == GLUT_RIGHT_BUTTON ) button = GLUT_LEFT_BUTTON;
 
-        /*
-         * Hey, what's up with you?
-         */
         if( button == -1 )
             return( DefWindowProc( hWnd, uMsg, lParam, wParam ) );
 
@@ -1674,51 +1424,25 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
           break ;
         }
 
-        /*
-         * No active menu, let's check whether we need to activate one.
-         */
         if ( ( window->Menu[ button ] != NULL ) && ( pressed == TRUE ) )
         {
-            /*
-             * Let's make the window redraw as a result of the mouse click.
-             */
             window->State.Redisplay = TRUE ;
-
-            /*
-             * Set the current window
-             */
             fgSetWindow( window );
-
-            /*
-             * Activate the appropriate menu structure...
-             */
             fgActivateMenu( window, button );
 
             break;
         }
 
-        /*
-         * Check if there is a mouse callback hooked to the window
-         */
         if( window->Callbacks.Mouse == NULL )
             break;
 
-        /*
-         * Set the current window
-         */
         fgSetWindow ( window );
 
-        /*
-         * Remember the current modifiers state.
-         */
         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 );
 
-        /*
-         * Finally execute the mouse callback
-         */
         window->Callbacks.Mouse(
             button,
             pressed == TRUE ? GLUT_DOWN : GLUT_UP,
@@ -1726,22 +1450,72 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
             window->State.MouseY
         );
 
-        /*
-         * Trash the modifiers state
-         */
         fgStructure.Window->State.Modifiers = 0xffffffff;
     }
     break;
 
+    case 0x020a:
+        /* Should be WM_MOUSEWHEEL but my compiler doesn't recognize it */
+      {
+        int wheel_number = LOWORD ( lParam ) ;
+        /* THIS IS SPECULATIVE -- John Fay, 10/2/03 */
+        int direction = HIWORD ( lParam ) / 120 ;
+        /* Should be WHEEL_DELTA instead of 120 */
+
+        /*
+         * The mouse cursor has moved. Remember the new mouse cursor's position
+         */
+        /*        window->State.MouseX = LOWORD( lParam ); */
+        /* Need to adjust by window position, */
+        /*        window->State.MouseY = HIWORD( lParam ); */
+        /* change "lParam" to other parameter */
+
+        if ( ( window->Callbacks.MouseWheel == NULL ) &&
+             ( window->Callbacks.Mouse == NULL ) )
+            break;
+
+        fgSetWindow ( window );
+        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 );
+
+        if ( window->Callbacks.MouseWheel )
+          window->Callbacks.MouseWheel(
+              wheel_number,
+              direction,
+              window->State.MouseX,
+              window->State.MouseY
+          ) ;
+        else  /* No mouse wheel, call the mouse button callback twice */
+        {
+          int button = wheel_number * 2 + 4;
+          /*
+           * XXX The above assumes that you have no more than 3 mouse
+           * XXX buttons.  Sorry.
+           */
+          button += (1 + direction)/2;
+          window->Callbacks.Mouse ( button, GLUT_DOWN,
+                                    window->State.MouseX,
+                                    window->State.MouseY ) ;
+          window->Callbacks.Mouse ( button, GLUT_UP,
+                                    window->State.MouseX,
+                                    window->State.MouseY ) ;
+        }
+
+        fgStructure.Window->State.Modifiers = 0xffffffff;
+      }
+      break ;
+
     case WM_SYSKEYDOWN:
     case WM_KEYDOWN:
     {
         int keypress = -1;
         POINT mouse_pos ;
 
-        /*
-         * Ignore the automatic key repetition if needed:
-         */
         if( fgState.IgnoreKeyRepeat && (lParam & KF_REPEAT) )
             break;
 
@@ -1754,9 +1528,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
             ( ( (GetKeyState( VK_LCONTROL ) < 0 ) || ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL  : 0 ) |
             ( ( (GetKeyState( VK_LMENU    ) < 0 ) || ( GetKeyState( VK_RMENU    ) < 0 )) ? GLUT_ACTIVE_ALT   : 0 );
 
-        /*
-         * Set the mouse position
-         */
         GetCursorPos ( &mouse_pos ) ;
         ScreenToClient ( window->Window.Handle, &mouse_pos ) ;
 
@@ -1770,9 +1541,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
 
         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        );
@@ -1785,10 +1553,7 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
             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:
+        case VK_DELETE:
                 /*
                  * The delete key should be treated as an ASCII keypress:
                  */
@@ -1799,25 +1564,12 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
                 }
         }
 
-        /*
-         * Execute the special callback, if present, given the conversion was a success:
-         */
         if( (keypress != -1) && (window->Callbacks.Special != NULL) )
         {
-            /*
-             * Set the current window
-             */
             fgSetWindow( window );
-
-            /*
-             * Have the special callback executed:
-             */
             window->Callbacks.Special( keypress, window->State.MouseX, window->State.MouseY );
         }
 
-        /*
-         * Thrash the modifiers register now
-         */
         window->State.Modifiers = 0xffffffff;
     }
     break;
@@ -1837,9 +1589,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
             ( ( (GetKeyState( VK_LCONTROL ) < 0 ) || ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL  : 0 ) |
             ( ( (GetKeyState( VK_LMENU    ) < 0 ) || ( GetKeyState( VK_RMENU    ) < 0 )) ? GLUT_ACTIVE_ALT   : 0 );
 
-        /*
-         * Set the mouse position
-         */
         GetCursorPos ( &mouse_pos ) ;
         ScreenToClient ( window->Window.Handle, &mouse_pos ) ;
 
@@ -1852,9 +1601,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
 
         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        );
@@ -1867,9 +1613,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
           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:
@@ -1883,9 +1626,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
             break ;
           default:
             {
-              /*
-               * Call the KeyboardUp callback for a regular character if there is one.
-               */
               BYTE state[ 256 ];
               WORD code[ 2 ];
 
@@ -1896,35 +1636,18 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
 
               if( window->Callbacks.KeyboardUp != NULL )
               {
-                /*
-                 * Set the current window
-                 */
                 fgSetWindow( window );
-
                 window->Callbacks.KeyboardUp( (char)wParam, window->State.MouseX, window->State.MouseY );
               }
             }
         }
 
-        /*
-         * 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;
     }
     break;
@@ -1932,38 +1655,18 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
     case WM_SYSCHAR:
     case WM_CHAR:
     {
-        /*
-         * Ignore the automatic key repetition if needed:
-         */
         if( fgState.IgnoreKeyRepeat && (lParam & KF_REPEAT) )
             break;
 
-        /*
-         * Clear to go with the keyboard callback, if registered:
-         */
         if( window->Callbacks.Keyboard != NULL )
         {
-            /*
-             * Set the current window
-             */
             fgSetWindow( window );
-
-            /*
-             * 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 );
 
-            /*
-             * Have the special callback executed:
-             */
             window->Callbacks.Keyboard( (char)wParam, window->State.MouseX, window->State.MouseY );
-
-            /*
-             * Thrash the modifiers register now
-             */
             window->State.Modifiers = 0xffffffff;
         }
     }
@@ -1972,9 +1675,6 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
     case WM_CAPTURECHANGED :  /* User has finished resizing the window, force a redraw */
       if ( window->Callbacks.Display )
       {
-        /*
-         * Set the current window
-         */
         fgSetWindow( window );
 
         window->Callbacks.Display () ;