Last of the hard TABs in the src/*.c files.
[freeglut] / src / freeglut_main.c
index f6c2239..5ddf375 100644 (file)
@@ -70,6 +70,7 @@
  * Calls a window's redraw method. This is used when
  * a redraw is forced by the incoming window messages.
  */
+
 static void fghRedrawWindowByHandle
 #if TARGET_HOST_UNIX_X11
     ( Window handle )
@@ -78,13 +79,12 @@ static void fghRedrawWindowByHandle
 #endif
 {
     SFG_Window* window = fgWindowByHandle( handle );
-
     freeglut_return_if_fail( window != NULL );
     freeglut_return_if_fail( window->Callbacks.Display != NULL );
     freeglut_return_if_fail( window->State.Visible == TRUE );
+
     fgSetWindow( window );
     window->State.Redisplay = FALSE;
-
     window->Callbacks.Display();
 }
 
@@ -100,10 +100,11 @@ static void fghReshapeWindowByHandle
     ( HWND handle, int width, int height )
 #endif
 {
-    SFG_Window *current_window = fgStructure.Window ;
+  SFG_Window *current_window = fgStructure.Window ;
 
     SFG_Window* window = fgWindowByHandle( handle );
     freeglut_return_if_fail( window != NULL );
+
     fgSetWindow( window );
     if( window->Callbacks.Reshape != NULL )
         window->Callbacks.Reshape( width, height );
@@ -120,7 +121,7 @@ static void fghReshapeWindowByHandle
     window->State.Redisplay = TRUE ;
 
     if ( window->IsMenu )
-       fgSetWindow ( current_window ) ;
+      fgSetWindow ( current_window ) ;
 }
 
 /*
@@ -164,10 +165,11 @@ static void fghcbDisplayWindow( SFG_Window *window, SFG_Enumerator *enumerator )
         (window->State.Visible == TRUE) )
     {
       window->State.Redisplay = FALSE;
+
       RedrawWindow( 
         window->Window.Handle, NULL, NULL, 
         RDW_NOERASE | RDW_INTERNALPAINT | RDW_INVALIDATE | RDW_UPDATENOW
-       );
+        );
     }
 
 #endif
@@ -184,6 +186,7 @@ static void fghDisplayAll( void )
 
     enumerator.found = FALSE;
     enumerator.data  =  NULL;
+
     fgEnumWindows( fghcbDisplayWindow, &enumerator );
 }
 
@@ -199,6 +202,7 @@ static void fghcbCheckJoystickPolls( SFG_Window *window, SFG_Enumerator *enumera
         fgJoystickPollWindow( window );
         window->State.JoystickLastPoll = checkTime;
     }
+
     fgEnumSubWindows( window, fghcbCheckJoystickPolls, enumerator );
 }
 
@@ -211,6 +215,7 @@ static void fghCheckJoystickPolls( void )
 
     enumerator.found = FALSE;
     enumerator.data  =  NULL;
+
     fgEnumWindows( fghcbCheckJoystickPolls, &enumerator );
 }
 
@@ -229,13 +234,14 @@ static void fghCheckTimers( void )
      * For every timer that is waiting for triggering
      */
     for( timer = (SFG_Timer *)fgState.Timers.First;
-        timer;
-        timer = (SFG_Timer *)next )
+         timer;
+         timer = (SFG_Timer *)next )
     {
-       next = (SFG_Timer *)timer->Node.Next;
+              next = (SFG_Timer *)timer->Node.Next;
+
         if( timer->TriggerTime <= checkTime )
         {
-           fgListRemove( &fgState.Timers, &timer->Node );
+          fgListRemove( &fgState.Timers, &timer->Node );
             fgListAppend( &timedOut, &timer->Node );
         }
     }
@@ -246,10 +252,10 @@ static void fghCheckTimers( void )
      */
     while ( (timer = (SFG_Timer *)timedOut.First) )
     {
-       if( timer->Callback != NULL )
-           timer->Callback( timer->ID );
-       fgListRemove( &timedOut, &timer->Node );
-       free( timer );
+        if( timer->Callback != NULL )
+            timer->Callback( timer->ID );
+        fgListRemove( &timedOut, &timer->Node );
+        free( timer );
     }
 }
 
@@ -262,12 +268,12 @@ 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);
@@ -283,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" );
 
@@ -298,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" );
 
@@ -329,8 +339,8 @@ static void fgCheckJoystickCallback( SFG_Window* w, SFG_Enumerator* e)
 {
     if( w->Callbacks.Joystick )
     {
-       e->found = TRUE;
-       e->data = w;
+        e->found = TRUE;
+        e->data = w;
     }
     fgEnumSubWindows( w, fgCheckJoystickCallback, e );
 }
@@ -346,11 +356,11 @@ static void fgHavePendingRedisplaysCallback( SFG_Window* w, SFG_Enumerator* e)
 {
     if( w->State.Redisplay )
     {
-       e->found = TRUE;
-       e->data = w;
+        e->found = TRUE;
+        e->data = w;
     }
     fgEnumSubWindows( w, fgHavePendingRedisplaysCallback, e );
-}      
+}        
 static int fgHavePendingRedisplays (void)
 {
     SFG_Enumerator enumerator;
@@ -376,9 +386,9 @@ static long fgNextTimer( void )
     SFG_Timer *timer;
 
     for( timer = (SFG_Timer *)fgState.Timers.First;
-        timer;
-        timer = (SFG_Timer *)timer->Node.Next )
-       ret = MIN( ret, MAX( 0, (timer->TriggerTime) - now ) );
+         timer;
+         timer = (SFG_Timer *)timer->Node.Next )
+        ret = MIN( ret, MAX( 0, (timer->TriggerTime) - now ) );
 
     return ret;
 }
@@ -396,22 +406,22 @@ static void fgSleepForEvents( void )
     long msec;    
     
     if( fgState.IdleCallback ||
-       fgHavePendingRedisplays() )
-       return;
+        fgHavePendingRedisplays() )
+        return;
     socket = ConnectionNumber( fgDisplay.Display );
     FD_ZERO( &fdset );
     FD_SET( socket, &fdset );
     
     msec = fgNextTimer();
     if( fgHaveJoystick() )
-       msec = MIN( msec, 10 );
+        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 );
+        printf( "freeglut select() error: %d\n", errno );
     
 #elif TARGET_HOST_WIN32
 #endif
@@ -436,14 +446,17 @@ void FGAPIENTRY glutMainLoopEvent( void )
   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_assert_ready;
+
   while( XPending( fgDisplay.Display ) )
   {
     XNextEvent( fgDisplay.Display, &event );
+
     switch( event.type )
     {
     case DestroyNotify:
@@ -637,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 ;
             }
 
             /*
@@ -653,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;
         }
 
         /*
@@ -715,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.
@@ -738,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 ;
+            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 ) ;
 
-          break ;
+            /*
+             * 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.
@@ -799,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;
@@ -822,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
@@ -847,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 )
         {
@@ -964,9 +1012,6 @@ void FGAPIENTRY glutMainLoopEvent( void )
              */
             if( (special_cb != NULL) && (special != -1) )
             {
-              /*
-               * Set the current window
-               */
               fgSetWindow( window );
 
               /*
@@ -995,69 +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();
-
-    /*
-     * 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();
-
-    /*
-     * 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 () ;
 }
 
 /*
@@ -1069,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 )
   {
@@ -1089,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 );
     }
 
@@ -1106,27 +1097,18 @@ 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();
     }
   }
@@ -1140,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 ) ;
   }
@@ -1170,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:
@@ -1182,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) ) ;
@@ -1221,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 )
@@ -1236,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;
 
@@ -1263,7 +1212,7 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
         if (LOWORD(wParam) != WA_INACTIVE)
         {
           /* glutSetCursor( fgStructure.Window->State.Cursor ); */
-               printf("WM_ACTIVATE: glutSetCursor( %p, %d)\n", window, window->State.Cursor );
+                printf("WM_ACTIVATE: glutSetCursor( %p, %d)\n", window, window->State.Cursor );
 
           glutSetCursor( window->State.Cursor );
         }
@@ -1278,63 +1227,48 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara
          */
 #if 0
         if ((LOWORD(lParam) == HTCLIENT) &&
-           (fgStructure.Window->State.Cursor == GLUT_CURSOR_NONE))
-         SetCursor( NULL );
+            (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 ) ); \
+        /* 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 ); \
+        /* 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     );
-         }
+          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;
+        else
+          lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
+        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;
 
@@ -1348,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 )
@@ -1364,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;
 
@@ -1379,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 ;
 
             /*
@@ -1403,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;
@@ -1468,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;
@@ -1488,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 ) );
 
@@ -1544,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,
@@ -1596,22 +1450,80 @@ 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 ticks = HIWORD ( lParam ) / 120 ;
+        /* Should be WHEEL_DELTA instead of 120 */
+        int direction = 1;
+
+        if( ticks < 0 )
+        {
+            direction = -1;
+            ticks = -ticks;
+        }
+
+        /*
+         * 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 );
+
+        while( ticks-- )
+            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 */
+            {
+                /*
+                 * XXX The below assumes that you have no more than 3 mouse
+                 * XXX buttons.  Sorry.
+                 */
+                int button = wheel_number * 2 + 4;
+                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;
 
@@ -1624,9 +1536,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 ) ;
 
@@ -1640,9 +1549,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        );
@@ -1655,10 +1561,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:
                  */
@@ -1669,25 +1572,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;
@@ -1707,9 +1597,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 ) ;
 
@@ -1722,9 +1609,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        );
@@ -1737,9 +1621,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:
@@ -1753,9 +1634,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 ];
 
@@ -1766,35 +1644,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;
@@ -1802,38 +1663,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;
         }
     }
@@ -1842,9 +1683,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 () ;