comparison src/xmenu.c @ 6200:01c57ae8ca57

(update_one_frame_psheets): Call EmacsFrameSetCharSize to force the paned widget to resize to the right value. (xmenu_show): No need to check a second time whether the mouse has moved to another menu bar item. This slows down execution.

6199:044dcf8b9066

  BLOCK_INPUT;
  free_widget_value (wv);
  UNBLOCK_INPUT;
}

static void
update_one_frame_psheets (f)
     FRAME_PTR f;
{
  struct x_display *x = f->display.x;
  
  int menubar_changed;
  
  menubar_changed = (x->menubar_widget
		     && !XtIsManaged (x->menubar_widget));

  if (! (menubar_changed))
    return;

  BLOCK_INPUT;
  XawPanedSetRefigureMode (x->column_widget, 0);
  
  /* the order in which children are managed is the top to
     bottom order in which they are displayed in the paned window.
     First, remove the text-area widget.

  /* Re-manage the text-area widget */
  XtManageChild (x->edit_widget);

  /* and now thrash the sizes */
  XawPanedSetRefigureMode (x->column_widget, 1);
  UNBLOCK_INPUT;
}

void
set_frame_menubar (f)

    /* We activate directly the lucid implementation.  */
    pop_up_menu (mw, &dummy);
  }

  /* Check again whether the mouse has moved to another menu bar item.  */
  if (check_mouse_other_menu_bar (f))
    {
      /* The mouse moved into a different menu bar item. 
	 We should bring up that item's menu instead.

			((CompositeWidget)menu)->composite.children[0]),
		       CurrentTime);
      lw_destroy_all_widgets (menu_id); 
      goto pop_down;
    }

  /* Process events that apply to the menu.  */
  while (1)
    {
      XEvent event;

6200:01c57ae8ca57

  BLOCK_INPUT;
  free_widget_value (wv);
  UNBLOCK_INPUT;
}

extern void EmacsFrameSetCharSize ();

static void
update_one_frame_psheets (f)
     FRAME_PTR f;
{
  struct x_display *x = f->display.x;
  int columns, rows;
  int menubar_changed;
  
  menubar_changed = (x->menubar_widget
		     && !XtIsManaged (x->menubar_widget));

  if (! (menubar_changed))
    return;

  BLOCK_INPUT;
  /* Save the size of the frame because the pane widget doesn't accept to
     resize itself. So force it.  */
  columns = f->width;
  rows = f->height;


  XawPanedSetRefigureMode (x->column_widget, 0);
  
  /* the order in which children are managed is the top to
     bottom order in which they are displayed in the paned window.
     First, remove the text-area widget.

  /* Re-manage the text-area widget */
  XtManageChild (x->edit_widget);

  /* and now thrash the sizes */
  XawPanedSetRefigureMode (x->column_widget, 1);

  /* Force the pane widget to resize itself with the right values.  */
  EmacsFrameSetCharSize (x->edit_widget, columns, rows);

  UNBLOCK_INPUT;
}

void
set_frame_menubar (f)

    /* We activate directly the lucid implementation.  */
    pop_up_menu (mw, &dummy);
  }

  /* No need to check a second time since this is done in the XEvent loop.
     This slows done the execution.  */
#if 0
  /* Check again whether the mouse has moved to another menu bar item.  */
  if (check_mouse_other_menu_bar (f))
    {
      /* The mouse moved into a different menu bar item. 
	 We should bring up that item's menu instead.

			((CompositeWidget)menu)->composite.children[0]),
		       CurrentTime);
      lw_destroy_all_widgets (menu_id); 
      goto pop_down;
    }
#endif

  /* Process events that apply to the menu.  */
  while (1)
    {
      XEvent event;