Cosmetic changes (mostly deleted a few more say-nothing-new comments).
[freeglut] / src / freeglut_menu.c
index 921deec..45ff5ea 100644 (file)
 /*
  * TODO BEFORE THE STABLE RELEASE:
  *
- * It would be cool if the submenu entries were somehow marked, for example with a dings
- * on the right menu border or something like that. Think about the possibility of doing
- * the menu on layers *or* using the native window system instead of OpenGL.
+ * Wouldn't 1.0 have been "the" stable release?  Now we are past 2.0,
+ * so this comment is probably just out of date.  (20031026; rkr)
+ *
+ * Think about the possibility of doing the menu on layers *or* using the
+ * native window system instead of OpenGL.
  */
 
 /* -- DEFINITIONS ---------------------------------------------------------- */
 
 /*
- * We'll be using freeglut fonts to draw the menu
+ * FREEGLUT_MENU_FONT can be any freeglut bitmapped font.
+ * (Stroked fonts would not be out of the question, but we'd need to alter
+ *  code, since GLUT (hence freeglut) does not quite unify stroked and
+ *  bitmapped font handling.)
+ * Old UNIX/X11 GLUT (BSD, UNIX, IRIX, LINUX, HPUX, ...) used a system
+ * font best approximated by an 18-pixel HELVETICA, I think.  MS-WINDOWS
+ * GLUT used something closest to the 8x13 fixed-width font.  (Old
+ * GLUT apparently uses host-system menus rather than building its own.
+ * freeglut is building its own menus from scratch.)
+ *
+ * FREEGLUT_MENU_HEIGHT gives the height of ONE menu box.  This should be
+ * the distances between two adjacent menu entries.  It should scale
+ * automatically with the font choice, so you needn't alter it---unless you
+ * use a stroked font.
+ *
+ * FREEGLUT_MENU_BORDER says how many pixels to allow around the edge of a
+ * menu.  (It also seems to be the same as the number of pixels used as
+ * a border around *items* to separate them from neighbors.  John says
+ * that that wasn't the original intent...if not, perhaps we need another
+ * symbolic constant, FREEGLUT_MENU_ITEM_BORDER, or such.)
+ */
+#if TARGET_HOST_WIN32
+#define FREEGLUT_MENU_FONT    GLUT_BITMAP_8_BY_13
+#else
+#define FREEGLUT_MENU_FONT    GLUT_BITMAP_HELVETICA_18
+#endif
+
+#define FREEGLUT_MENU_HEIGHT  (glutBitmapHeight(FREEGLUT_MENU_FONT) + FREEGLUT_MENU_BORDER)
+#define  FREEGLUT_MENU_BORDER   2
+
+
+/*
+ * These variables should be moved into the freeglut global state, but for now,
+ * we'll put them here.  They are for rendering the freeglut menu items.
+ * The choices are fore- and background, with and without h for Highlighting.
+ * Old GLUT appeared to be system-dependant for its colors (sigh) so we are
+ * too.  These variables should be stuffed into global state and initialized
+ * via the glutInit*() system.
  */
-#define  FREEGLUT_MENU_FONT    GLUT_BITMAP_8_BY_13
-#define  FREEGLUT_MENU_HEIGHT  15
-#define  FREEGLUT_MENU_BORDER   8
+
+#if TARGET_HOST_WIN32
+static float menu_pen_fore  [4] = {0.0f,  0.0f,  0.0f,  1.0f};
+static float menu_pen_back  [4] = {0.85f, 0.85f, 0.85f, 1.0f};
+static float menu_pen_hfore [4] = {1.0f,  1.0f,  1.0f,  1.0f};
+static float menu_pen_hback [4] = {0.15f, 0.15f, 0.45f, 1.0f};
+#else
+static float menu_pen_fore  [4] = {0.0f,  0.0f,  0.0f,  1.0f};
+static float menu_pen_back  [4] = {0.70f, 0.70f, 0.70f, 1.0f};
+static float menu_pen_hfore [4] = {0.0f,  0.0f,  0.0f,  1.0f};
+static float menu_pen_hback [4] = {1.0f,  1.0f,  1.0f,  1.0f};
+#endif
 
 
 /* -- PRIVATE FUNCTIONS ---------------------------------------------------- */
 
 /*
- * Private static function to find a menu entry by index
+ * Private function to find a menu entry by index
  */
 static SFG_MenuEntry *fghFindMenuEntry( SFG_Menu* menu, int index )
 {
     SFG_MenuEntry *entry;
     int i = 1;
 
-    for( entry = menu->Entries.First; entry; entry = entry->Node.Next)
+    for( entry = (SFG_MenuEntry *)menu->Entries.First; entry; entry = (SFG_MenuEntry *)entry->Node.Next)
     {
         if (i == index)
             break;
@@ -73,7 +121,7 @@ static SFG_MenuEntry *fghFindMenuEntry( SFG_Menu* menu, int index )
 }
 
 /*
- * Private static function to check for the current menu/sub menu activity state
+ * Private function to check for the current menu/sub menu activity state
  */
 static GLboolean fghCheckMenuStatus( SFG_Window* window, SFG_Menu* menu )
 {
@@ -83,12 +131,9 @@ static GLboolean fghCheckMenuStatus( SFG_Window* window, SFG_Menu* menu )
   /*
    * First of all check any of the active sub menus...
    */
-  for( menuEntry = menu->Entries.First; menuEntry;
-       menuEntry = menuEntry->Node.Next )
+  for( menuEntry = (SFG_MenuEntry *)menu->Entries.First; menuEntry;
+       menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next )
   {
-    /*
-     * Is that an active sub menu by any case?
-     */
     if( menuEntry->SubMenu != NULL && menuEntry->IsActive == TRUE )
     {
       /*
@@ -96,7 +141,14 @@ static GLboolean fghCheckMenuStatus( SFG_Window* window, SFG_Menu* menu )
        * that it caught the mouse cursor and we do not need to regenerate
        * the activity list, and so our parents do...
        */
-      if( fghCheckMenuStatus( window, menuEntry->SubMenu ) == TRUE )
+      GLboolean return_status = fghCheckMenuStatus( window, menuEntry->SubMenu ) ;
+
+      /*
+       * Reactivate the submenu as the checkMenuStatus may have turned it off
+       * if the mouse is in its parent menu entry.
+       */
+      menuEntry->SubMenu->IsActive = TRUE ;
+      if ( return_status == TRUE )
         return( TRUE );
     }
   }
@@ -104,29 +156,28 @@ static GLboolean fghCheckMenuStatus( SFG_Window* window, SFG_Menu* menu )
   /*
    * That much about our sub menus, let's get to checking the current menu:
    */
-  x = window->State.MouseX - menu->X;
-  y = window->State.MouseY - menu->Y;
+  x = window->State.MouseX;
+  y = window->State.MouseY;
 
-  /*
-   * Mark all menu entries inactive...
-   */
-  for( menuEntry = menu->Entries.First; menuEntry;
-       menuEntry = menuEntry->Node.Next )
+  for( menuEntry = (SFG_MenuEntry *)menu->Entries.First; menuEntry;
+       menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next )
   {
     menuEntry->IsActive = FALSE;
   }
 
+
   menu->IsActive = FALSE;
 
   /*
    * Check if the mouse cursor is contained within the current menu box
    */
-  if( x >= 0 && x < menu->Width && y >= 0 && y < menu->Height )
+  if( ( x >= FREEGLUT_MENU_BORDER ) &&
+      ( x < menu->Width  - FREEGLUT_MENU_BORDER ) &&
+      ( y >= FREEGLUT_MENU_BORDER ) &&
+      ( y < menu->Height - FREEGLUT_MENU_BORDER ) &&
+      ( window == menu->Window ) )
   {
-    /*
-     * Calculation of the highlighted menu item is easy enough now:
-     */
-    int menuID = y / FREEGLUT_MENU_HEIGHT;
+    int menuID = ( y - FREEGLUT_MENU_BORDER ) / FREEGLUT_MENU_HEIGHT ;
 
     /*
      * The mouse cursor is somewhere over our box, check it out.
@@ -134,15 +185,21 @@ static GLboolean fghCheckMenuStatus( SFG_Window* window, SFG_Menu* menu )
     menuEntry = fghFindMenuEntry( menu, menuID + 1 );
     assert( menuEntry != NULL );
 
-    /*
-     * Mark the menu as active...
-     */
     menuEntry->IsActive = TRUE;
     menuEntry->Ordinal = menuID;
 
     /*
-     * Don't forget about marking the current menu as active, too:
+     * If this is not the same as the last active menu entry, deactivate the
+     * previous entry. Specifically, if the previous active entry was a
+     * submenu then deactivate it.
      */
+    if ( menu->ActiveEntry && ( menuEntry != menu->ActiveEntry ) )
+    {
+      if ( menu->ActiveEntry->SubMenu != NULL )
+        fgDeactivateSubMenu ( menu->ActiveEntry ) ;
+    }
+
+    menu->ActiveEntry = menuEntry ;
     menu->IsActive = TRUE;
 
     /*
@@ -152,30 +209,42 @@ static GLboolean fghCheckMenuStatus( SFG_Window* window, SFG_Menu* menu )
      */
     if( menuEntry->SubMenu != NULL )
     {
-      /*
-       * Set up the initial menu position now...
-       */
+      if ( ! menuEntry->SubMenu->IsActive )
+      {
+        SFG_Window *current_window = fgStructure.Window ;
 
-      menuEntry->SubMenu->X = menu->X + menu->Width ;
-      menuEntry->SubMenu->Y = menu->Y + menuEntry->Ordinal * FREEGLUT_MENU_HEIGHT ;
+        /*
+         * Set up the initial menu position now...
+         */
 
-      /*
-       * Make sure the submenu stays within the window
-       */
-      if ( menuEntry->SubMenu->X + menuEntry->SubMenu->Width > glutGet ( GLUT_WINDOW_WIDTH ) )
-      {
-        menuEntry->SubMenu->X = menu->X - menuEntry->SubMenu->Width ;
-        if ( menuEntry->SubMenu->X < 0 )
-          menuEntry->SubMenu->X = glutGet ( GLUT_WINDOW_WIDTH ) - menuEntry->SubMenu->Width ;
+        menuEntry->SubMenu->IsActive = TRUE ;
+
+        /*
+         * Set up the initial submenu position now:
+         */
+        menuEntry->SubMenu->X = menu->X + menu->Width ;
+        menuEntry->SubMenu->Y = menu->Y + menuEntry->Ordinal * FREEGLUT_MENU_HEIGHT ;
+
+        if ( menuEntry->SubMenu->X + menuEntry->SubMenu->Width > glutGet (GLUT_SCREEN_WIDTH ) )
+        menuEntry->SubMenu->X = menu->X - menuEntry->SubMenu->Width;
+
+        if ( menuEntry->SubMenu->Y + menuEntry->SubMenu->Height > glutGet (GLUT_SCREEN_HEIGHT ) )
+        menuEntry->SubMenu->Y -= (menuEntry->SubMenu->Height -
+           FREEGLUT_MENU_HEIGHT - 2*FREEGLUT_MENU_BORDER);
+
+        fgSetWindow ( menuEntry->SubMenu->Window ) ;
+        glutPositionWindow ( menuEntry->SubMenu->X, menuEntry->SubMenu->Y ) ;
+        glutReshapeWindow ( menuEntry->SubMenu->Width, menuEntry->SubMenu->Height ) ;
+        glutPopWindow () ;
+        glutShowWindow () ;
+        menuEntry->SubMenu->Window->ActiveMenu = menuEntry->SubMenu ;
+        fgSetWindow ( current_window ) ;
       }
 
-      /*
-       * ...then check the submenu's state:
-       */
       fghCheckMenuStatus( window, menuEntry->SubMenu );
 
       /*
-       * Even if the submenu turned up inactive, activate it because its parent entry is active
+       * Activate it because its parent entry is active
        */
       menuEntry->SubMenu->IsActive = TRUE ;
     }
@@ -199,32 +268,45 @@ static void fghDisplayMenuBox( SFG_Menu* menu )
 {
   SFG_MenuEntry *menuEntry;
   int i;
+  int border = FREEGLUT_MENU_BORDER ;
 
   /*
    * Have the menu box drawn first. The +- values are
    * here just to make it more nice-looking...
    */
-  glColor4f( 0.0f, 0.0f, 0.0f, 1.0f );
-  glBegin( GL_QUADS );
-    glVertex2i( menu->X              , menu->Y - 1                );
-    glVertex2i( menu->X + menu->Width, menu->Y - 1                );
-    glVertex2i( menu->X + menu->Width, menu->Y + 4 + menu->Height );
-    glVertex2i( menu->X              , menu->Y + 4 + menu->Height );
+  glColor4f( 1.0f, 1.0f, 1.0f, 1.0f ); /* a non-black dark version of the below. */
+  glBegin( GL_QUAD_STRIP );
+    glVertex2i( menu->Width       , 0                  );
+    glVertex2i( menu->Width-border,              border);
+    glVertex2i( 0                 , 0                  );
+    glVertex2i(             border,              border);
+    glVertex2i( 0                 , menu->Height       );
+    glVertex2i(             border, menu->Height-border);
   glEnd();
 
-  glColor4f( 0.3f, 0.4f, 0.5f, 1.0f );
+  glColor4f( 0.5f, 0.5f, 0.5f, 1.0f ); /* a non-black dark version of the below. */
+  glBegin( GL_QUAD_STRIP );
+    glVertex2i( 0                 , menu->Height       );
+    glVertex2i(             border, menu->Height-border);
+    glVertex2i( menu->Width       , menu->Height       );
+    glVertex2i( menu->Width-border, menu->Height-border);
+    glVertex2i( menu->Width       , 0                  );
+    glVertex2i( menu->Width-border,              border);
+  glEnd();
+
+  glColor4fv ( menu_pen_back ) ;
   glBegin( GL_QUADS );
-    glVertex2i( menu->X - 2              , menu->Y + 1                );
-    glVertex2i( menu->X - 2 + menu->Width, menu->Y + 1                );
-    glVertex2i( menu->X - 2 + menu->Width, menu->Y + 2 + menu->Height );
-    glVertex2i( menu->X - 2              , menu->Y + 2 + menu->Height );
+    glVertex2i(             border,              border);
+    glVertex2i( menu->Width-border,              border);
+    glVertex2i( menu->Width-border, menu->Height-border);
+    glVertex2i(             border, menu->Height-border);
   glEnd();
 
   /*
    * Check if any of the submenus is currently active...
    */
-  for( menuEntry = menu->Entries.First; menuEntry;
-       menuEntry = menuEntry->Node.Next )
+  for( menuEntry = (SFG_MenuEntry *)menu->Entries.First; menuEntry;
+       menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next )
   {
     /*
      * Has the menu been marked as active, maybe?
@@ -241,12 +323,12 @@ static void fghDisplayMenuBox( SFG_Menu* menu )
       /*
        * So have the highlight drawn...
        */
-      glColor4f( 0.2f, 0.3f, 0.4f, 1.0f );
+      glColor4fv ( menu_pen_hback ) ;
       glBegin( GL_QUADS );
-        glVertex2i( menu->X - 2              , menu->Y + (menuID + 0)*FREEGLUT_MENU_HEIGHT + 1 );
-        glVertex2i( menu->X - 2 + menu->Width, menu->Y + (menuID + 0)*FREEGLUT_MENU_HEIGHT + 1 );
-        glVertex2i( menu->X - 2 + menu->Width, menu->Y + (menuID + 1)*FREEGLUT_MENU_HEIGHT + 2 );
-        glVertex2i( menu->X - 2              , menu->Y + (menuID + 1)*FREEGLUT_MENU_HEIGHT + 2 );
+        glVertex2i(             FREEGLUT_MENU_BORDER, (menuID + 0)*FREEGLUT_MENU_HEIGHT + FREEGLUT_MENU_BORDER );
+        glVertex2i( menu->Width-FREEGLUT_MENU_BORDER, (menuID + 0)*FREEGLUT_MENU_HEIGHT + FREEGLUT_MENU_BORDER );
+        glVertex2i( menu->Width-FREEGLUT_MENU_BORDER, (menuID + 1)*FREEGLUT_MENU_HEIGHT + FREEGLUT_MENU_BORDER );
+        glVertex2i(             FREEGLUT_MENU_BORDER, (menuID + 1)*FREEGLUT_MENU_HEIGHT + FREEGLUT_MENU_BORDER );
       glEnd();
     }
   }
@@ -254,17 +336,24 @@ static void fghDisplayMenuBox( SFG_Menu* menu )
   /*
    * Print the menu entries now...
    */
-  glColor4f( 1, 1, 1, 1 );
 
-  for( menuEntry = menu->Entries.First, i=0; menuEntry;
-       menuEntry = menuEntry->Node.Next, ++i )
+  glColor4fv ( menu_pen_fore );
+
+  for( menuEntry = (SFG_MenuEntry *)menu->Entries.First, i=0; menuEntry;
+       menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next, ++i )
   {
     /*
+     * If the menu entry is active, set the color to white
+     */
+    if ( menuEntry->IsActive )
+      glColor4fv ( menu_pen_hfore ) ;
+
+    /*
      * Move the raster into position...
      */
     glRasterPos2i(
-        menu->X + FREEGLUT_MENU_BORDER,
-        menu->Y + (i + 1)*FREEGLUT_MENU_HEIGHT
+        2 * FREEGLUT_MENU_BORDER,
+        (i + 1)*FREEGLUT_MENU_HEIGHT-(int)(FREEGLUT_MENU_HEIGHT*0.3 - FREEGLUT_MENU_BORDER ) /* Try to center the text - JCJ 31 July 2003*/
     );
 
     /*
@@ -277,33 +366,28 @@ static void fghDisplayMenuBox( SFG_Menu* menu )
      */
     if ( menuEntry->SubMenu != NULL )
     {
-      GLubyte arrow_char [] = { 0, 0, 32, 48, 56, 60, 62, 63, 62, 60, 56, 48, 32, 0, 0 } ;
-      int width = glutBitmapWidth ( FREEGLUT_MENU_FONT, ' ' ) ;
-
-      glPushClientAttrib( GL_CLIENT_PIXEL_STORE_BIT );
-
-      /*
-       * Set up the pixel unpacking ways
-       */
-      glPixelStorei( GL_UNPACK_SWAP_BYTES,  GL_FALSE );
-      glPixelStorei( GL_UNPACK_LSB_FIRST,   GL_FALSE );
-      glPixelStorei( GL_UNPACK_ROW_LENGTH,  0        );
-      glPixelStorei( GL_UNPACK_SKIP_ROWS,   0        );
-      glPixelStorei( GL_UNPACK_SKIP_PIXELS, 0        );
-      glPixelStorei( GL_UNPACK_ALIGNMENT,   1        );
-
-      glRasterPos2i ( menu->X + menu->Width - 2 - width,
-                      menu->Y + (i + 1)*FREEGLUT_MENU_HEIGHT ) ;
-      glBitmap ( width, FREEGLUT_MENU_HEIGHT, 0, 0, 0.0, 0.0, arrow_char ) ;
-      glPopClientAttrib();
+      int width = glutBitmapWidth ( FREEGLUT_MENU_FONT, '_' ) ;
+      int x_base = menu->Width - 2 - width;
+      int y_base = i*FREEGLUT_MENU_HEIGHT + FREEGLUT_MENU_BORDER;
+      glBegin( GL_TRIANGLES );
+      glVertex2i( x_base, y_base + 2*FREEGLUT_MENU_BORDER);
+      glVertex2i( menu->Width - 2, y_base + (FREEGLUT_MENU_HEIGHT + FREEGLUT_MENU_BORDER) / 2 );
+      glVertex2i( x_base, y_base + FREEGLUT_MENU_HEIGHT - FREEGLUT_MENU_BORDER);
+      glEnd( );
     }
+
+    /*
+     * If the menu entry is active, reset the color
+     */
+    if ( menuEntry->IsActive )
+      glColor4fv ( menu_pen_fore ) ;
   }
 
   /*
    * Now we are ready to check if any of our children needs to be redrawn:
    */
-  for( menuEntry = menu->Entries.First; menuEntry;
-       menuEntry = menuEntry->Node.Next )
+  for( menuEntry = (SFG_MenuEntry *)menu->Entries.First; menuEntry;
+       menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next )
   {
     /*
      * Is that an active sub menu by any case?
@@ -313,12 +397,31 @@ static void fghDisplayMenuBox( SFG_Menu* menu )
       /*
        * Yeah, indeed. Have it redrawn now:
        */
+      fgSetWindow ( menuEntry->SubMenu->Window ) ;
       fghDisplayMenuBox( menuEntry->SubMenu );
+      fgSetWindow ( menu->Window ) ;
     }
   }
 }
 
 /*
+ * Private static function to set the parent window of a submenu and all of its submenus
+ */
+static void fghSetSubmenuParentWindow ( SFG_Window *window, SFG_Menu *menu )
+{
+  SFG_MenuEntry *menuEntry ;
+
+  menu->ParentWindow = window ;
+
+  for ( menuEntry = (SFG_MenuEntry *)menu->Entries.First; menuEntry; menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next )
+  {
+    if ( menuEntry->SubMenu != NULL )
+      fghSetSubmenuParentWindow ( window, menuEntry->SubMenu ) ;
+  }
+}
+
+
+/*
  * Displays the currently active menu for the current window
  */
 void fgDisplayMenu( void )
@@ -337,9 +440,12 @@ void fgDisplayMenu( void )
     menu = window->ActiveMenu;
 
     /*
-     * Did we find an active window?
+     * Did we find an active menu?
      */
     freeglut_return_if_fail( menu != NULL );
+
+    fgSetWindow ( menu->Window ) ;
+
     /*
      * Prepare the OpenGL state to do the rendering first:
      */
@@ -388,6 +494,13 @@ void fgDisplayMenu( void )
     glPopMatrix();
     glMatrixMode( GL_MODELVIEW );
     glPopMatrix();
+
+    glutSwapBuffers () ;
+
+    /*
+     * Restore the current window
+     */
+    fgSetWindow ( window ) ;
 }
 
 /*
@@ -395,8 +508,6 @@ void fgDisplayMenu( void )
  */
 void fgActivateMenu( SFG_Window* window, int button )
 {
-  int x, y;
-
   /*
    * We'll be referencing this menu a lot, so remember its address:
    */
@@ -407,25 +518,28 @@ void fgActivateMenu( SFG_Window* window, int button )
    */
   window->ActiveMenu = menu;
   menu->IsActive = TRUE ;
-
-  /*
-   * Grab the mouse cursor position respective to the current window
-   */
-  x = window->State.MouseX;
-  y = window->State.MouseY;
+  fgState.ActiveMenus ++ ;
 
   /*
    * Set up the initial menu position now:
    */
-  menu->X = x ;
-  menu->Y = y ;
 
-  fgSetWindow ( window ) ;
+  menu->X = window->State.MouseX + glutGet ( GLUT_WINDOW_X ) ;
+  menu->Y = window->State.MouseY + glutGet ( GLUT_WINDOW_Y ) ;
+
+  if ( menu->X + menu->Width > glutGet ( GLUT_SCREEN_WIDTH ) )
+    menu->X -=menu->Width ;
+
+  if ( menu->Y + menu->Height > glutGet ( GLUT_SCREEN_HEIGHT ) )
+    menu->Y -=menu->Height ;
+
+  fgSetWindow ( menu->Window ) ;
+  glutPositionWindow ( menu->X, menu->Y ) ;
+  glutReshapeWindow ( menu->Width, menu->Height ) ;
+  glutPopWindow () ;
+  glutShowWindow () ;
+  menu->Window->ActiveMenu = menu ;
 
-  if( x > ( glutGet( GLUT_WINDOW_WIDTH ) - menu->Width ) )
-    menu->X = glutGet( GLUT_WINDOW_WIDTH ) - menu->Width;
-  if( y > ( glutGet( GLUT_WINDOW_HEIGHT ) - menu->Height) )
-    menu->Y = glutGet( GLUT_WINDOW_HEIGHT ) - menu->Height;
 }
 
 /*
@@ -454,7 +568,7 @@ void fgExecuteMenuCallback( SFG_Menu* menu )
   /*
    * First of all check any of the active sub menus...
    */
-  for( menuEntry = menu->Entries.First; menuEntry; menuEntry = menuEntry->Node.Next)
+  for( menuEntry = (SFG_MenuEntry *)menu->Entries.First; menuEntry; menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next)
   {
     /*
      * Is this menu entry active?
@@ -493,10 +607,13 @@ void fgExecuteMenuCallback( SFG_Menu* menu )
  */
 void fgDeactivateMenu( SFG_Window *window )
 {
+  SFG_Window *current_window = fgStructure.Window ;
+
     /*
      * Check if there is an active menu attached to this window...
      */
     SFG_Menu* menu = window->ActiveMenu;
+    SFG_MenuEntry *menuEntry ;
 
     /*
      * Did we find an active window?
@@ -504,10 +621,69 @@ void fgDeactivateMenu( SFG_Window *window )
     freeglut_return_if_fail( menu != NULL );
 
     /*
+     * Hide the present menu's window
+     */
+    fgSetWindow ( menu->Window ) ;
+    glutHideWindow () ;
+
+    /*
      * Forget about having that menu active anymore, now:
      */
-    window->ActiveMenu = NULL;
+    menu->Window->ActiveMenu = NULL ;
+    menu->ParentWindow->ActiveMenu = NULL ;
     menu->IsActive = FALSE ;
+
+    fgState.ActiveMenus -- ;
+
+    /*
+     * Hide all submenu windows, and the root menu's window.
+     */
+    for ( menuEntry = (SFG_MenuEntry *)menu->Entries.First; menuEntry;
+          menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next )
+    {
+      /*
+       * Is that an active submenu by any case?
+       */
+      if ( menuEntry->SubMenu != NULL )
+        fgDeactivateSubMenu ( menuEntry ) ;
+    }
+
+    fgSetWindow ( current_window ) ;
+}
+
+/*
+ * Deactivates a menu pointed by the function argument.
+ */
+void fgDeactivateSubMenu( SFG_MenuEntry *menuEntry )
+{
+  SFG_Window *current_window = fgStructure.Window ;
+  SFG_MenuEntry *subMenuIter ;
+    /*
+     * Hide the present menu's window
+     */
+    fgSetWindow ( menuEntry->SubMenu->Window ) ;
+    glutHideWindow () ;
+
+    /*
+     * Forget about having that menu active anymore, now:
+     */
+    menuEntry->SubMenu->Window->ActiveMenu = NULL ;
+    menuEntry->SubMenu->IsActive = FALSE ;
+
+    /*
+     * Hide all submenu windows, and the root menu's window.
+     */
+    for ( subMenuIter = (SFG_MenuEntry *)menuEntry->SubMenu->Entries.First; subMenuIter;
+          subMenuIter = (SFG_MenuEntry *)subMenuIter->Node.Next )
+    {
+      /*
+       * Is that an active submenu by any case?
+       */
+      if ( subMenuIter->SubMenu != NULL )
+        fgDeactivateSubMenu ( subMenuIter ) ;
+    }
+
+    fgSetWindow ( current_window ) ;
 }
 
 /*
@@ -526,8 +702,8 @@ void fghCalculateMenuBoxSize( void )
   /*
    * The menu's box size depends on the menu entries:
    */
-  for( menuEntry = fgStructure.Menu->Entries.First; menuEntry;
-       menuEntry = menuEntry->Node.Next)
+  for( menuEntry = (SFG_MenuEntry *)fgStructure.Menu->Entries.First; menuEntry;
+       menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next)
   {
     /*
      * Update the menu entry's width value
@@ -535,6 +711,13 @@ void fghCalculateMenuBoxSize( void )
     menuEntry->Width = glutBitmapLength( FREEGLUT_MENU_FONT, menuEntry->Text );
 
     /*
+     * If the entry is a submenu, then it needs to be wider to accomodate the arrow. JCJ 31 July 2003
+     */
+
+    if (menuEntry->SubMenu != NULL)
+       menuEntry->Width += glutBitmapLength( FREEGLUT_MENU_FONT, "_" );
+
+    /*
      * Check if it's the biggest we've found
      */
     if( menuEntry->Width > width )
@@ -546,8 +729,8 @@ void fghCalculateMenuBoxSize( void )
   /*
    * Store the menu's box size now:
    */
-  fgStructure.Menu->Height = height; 
-  fgStructure.Menu->Width  = width + 2 * FREEGLUT_MENU_BORDER ;
+  fgStructure.Menu->Height = height + 2 * FREEGLUT_MENU_BORDER ; 
+  fgStructure.Menu->Width  = width  + 4 * FREEGLUT_MENU_BORDER ;
 }
 
 
@@ -623,7 +806,7 @@ void FGAPIENTRY glutSetMenu( int menuID )
  */
 void FGAPIENTRY glutAddMenuEntry( const char* label, int value )
 {
-    SFG_MenuEntry* menuEntry = calloc( sizeof(SFG_MenuEntry), 1 );
+    SFG_MenuEntry* menuEntry = (SFG_MenuEntry *)calloc( sizeof(SFG_MenuEntry), 1 );
 
     /*
      * Make sure there is a current menu set
@@ -652,7 +835,7 @@ void FGAPIENTRY glutAddMenuEntry( const char* label, int value )
  */
 void FGAPIENTRY glutAddSubMenu( const char* label, int subMenuID )
 {
-  SFG_MenuEntry* menuEntry = calloc( sizeof(SFG_MenuEntry), 1 );
+  SFG_MenuEntry* menuEntry = (SFG_MenuEntry *)calloc( sizeof(SFG_MenuEntry), 1 );
   SFG_Menu*      subMenu = fgMenuByID( subMenuID );
 
   /*
@@ -670,6 +853,11 @@ void FGAPIENTRY glutAddSubMenu( const char* label, int subMenuID )
   menuEntry->ID      = -1;
 
   /*
+   * Make the submenu's parent window be the menu's parent window
+   */
+  fghSetSubmenuParentWindow ( fgStructure.Menu->ParentWindow, subMenu ) ;
+
+  /*
    * Have the new menu entry attached to the current menu
    */
   fgListAppend( &fgStructure.Menu->Entries, &menuEntry->Node );
@@ -819,6 +1007,11 @@ void FGAPIENTRY glutAttachMenu( int button )
      * It is safe now to attach the menu
      */
     fgStructure.Window->Menu[ button ] = fgStructure.Menu;
+
+    /*
+     * Make the parent window of the menu (and all submenus) the current window
+     */
+    fghSetSubmenuParentWindow ( fgStructure.Window, fgStructure.Menu ) ;
 }
 
 /*