xemacs-beta: src/menubar-x.c comparison

comparison src/menubar-x.c @ 185:3d6bfa290dbd r20-3b19

Import from CVS: tag r20-3b19

author	cvs
date	Mon, 13 Aug 2007 09:55:28 +0200
parents	2d532a89d707
children	d44af0c54775

comparison

equal deleted inserted replaced

-:bcd2674570bf
+:3d6bfa290dbd
 We do not have to worry about the pointers to Lisp_String data after
 this function successfully finishes.  lwlib copies all such data with
 strdup().  */
 static widget_value *
 menu_item_descriptor_to_widget_value_1 (Lisp_Object desc,
 					int menu_type, int deep_p,
 					int filter_p,
 					int depth)
 {
 /* This function cannot GC.
 string_chars = GETTEXT (string_chars);
 #endif
 if (wv->type == SEPARATOR_TYPE)
 	{
 	  wv->value = menu_separator_style (string_chars);
 	}
 else
 	{
 	  wv->name = string_chars;
 	  wv->enabled = 1;
 	}
 	    {
 	      Lisp_Object cascade = desc;
 	      desc = Fcdr (desc);
 	      if (NILP (desc))
 		signal_simple_error ("keyword in menu lacks a value",
 				     cascade);
 	      val = Fcar (desc);
 	      desc = Fcdr (desc);
 	      if (EQ (key, Q_included))
 		include_p = val, included_spec = 1;
 	      else if (EQ (key, Q_config))
 		       || CHARP (val))
 		    wv->accel = LISP_TO_VOID (val);
 		  else
 		    signal_simple_error ("bad keyboard accelerator", val);
 		}
 	      else
 		signal_simple_error ("unknown menu cascade keyword", cascade);
 	    }
 	  if ((!NILP (config_tag)
 	       && NILP (Fmemq (config_tag, Vmenubar_configuration)))
 	  if (!NILP (hook_fn))
 	    {
 #ifdef LWLIB_MENUBARS_LUCID
 	      if (filter_p || depth == 0)
 		{
 #endif
 		  desc = call1_trapping_errors ("Error in menubar filter",
 						hook_fn, desc);
 		  if (UNBOUNDP (desc))
 		    desc = Qnil;
 #ifdef LWLIB_MENUBARS_LUCID
 	      title_wv->enabled = 1;
 	      title_wv->next = sep_wv;
 	      sep_wv->type = SEPARATOR_TYPE;
 	      sep_wv->value = menu_separator_style ("==");
 	      sep_wv->next = 0;
 	      wv->contents = title_wv;
 	      prev = sep_wv;
 	    }
 	}
 else if (menubar_root_p)
 unbind_to (count, Qnil);
 return wv;
 }
 static widget_value *
 menu_item_descriptor_to_widget_value (Lisp_Object desc,
 				      int menu_type, /* if this is a menubar,
 						     popup or sub menu */
 				      int deep_p,    /*  */
 				      int filter_p)  /* if :filter forms
 							should run now */
 {
 widget_value *wv;
 int count = specpdl_depth ();
 record_unwind_protect (restore_gc_inhibit,
 			 make_int (gc_currently_forbidden));
 The pre_activate_callback() *IS* intentionally called multiple times.
 If client_data == NULL, then it's being called before the menu is posted.
 If client_data != NULL, then client_data is a (widget_value *) and
 client_data->data is a Lisp_Object pointing to a lisp submenu description
 that must be converted into widget_values.  *client_data is destructively
 modified.
 #### Stig thinks that there may be a GC problem here due to the
 fact that pre_activate_callback() is called multiple times, but I
 think he's wrong.
 	 function, just to simplify things. */
 if (!NILP (Vactivate_menubar_hook) &&
 	  (!CONSP (Vactivate_menubar_hook) ||
 	   EQ (XCAR (Vactivate_menubar_hook), Qlambda)))
 	Vactivate_menubar_hook = Fcons (Vactivate_menubar_hook, Qnil);
 GCPRO1 (rest);
 for (rest = Vactivate_menubar_hook; !NILP (rest); rest = Fcdr (rest))
 	if (!EQ (call0 (XCAR (rest)), Qt))
 	  any_changes = 1;
 #if 0
 	 It is difficult to undo the destructive operation in lwlib because
 	 a pointer back to lisp data needs to be hidden away somewhere.  So
 	 that an INCREMENTAL_TYPE widget_value can be recreated...  Hmmmmm. */
 if (any_changes ||
 	  !XFRAME_MENUBAR_DATA (f)->menubar_contents_up_to_date)
 #endif
 	set_frame_menubar (f, 1, 0);
 DEVICE_X_MOUSE_TIMESTAMP (XDEVICE (FRAME_DEVICE (f))) =
 	DEVICE_X_GLOBAL_MOUSE_TIMESTAMP (XDEVICE (FRAME_DEVICE (f))) =
 	x_focus_timestamp_really_sucks_fix_me_better;
 UNGCPRO;
 menubar_visible = !NILP (w->menubar_visible_p);
 data = compute_menubar_data (f, menubar, deep_p);
 if (!data || (!data->next && !data->contents))
 abort ();
 if (NILP (FRAME_MENUBAR_DATA (f)))
 {
 struct popup_data *mdata =
-	alloc_lcrecord (sizeof (struct popup_data), lrecord_popup_data);
+	alloc_lcrecord_type (struct popup_data, lrecord_popup_data);
 mdata->id = new_lwlib_id ();
 mdata->last_menubar_buffer = Qnil;
 mdata->menubar_contents_up_to_date = 0;
 XSETPOPUP_DATA (FRAME_MENUBAR_DATA (f), mdata);
 else
 {
 lw_modify_all_widgets (id, data, deep_p ? True : False);
 }
 free_popup_widget_value_tree (data);
 XFRAME_MENUBAR_DATA (f)->menubar_contents_up_to_date = deep_p;
 XFRAME_MENUBAR_DATA (f)->last_menubar_buffer =
 XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f))->buffer;
 return menubar_visible;
 }
 }
 static void
 make_dummy_xbutton_event (XEvent *dummy,
 			  Widget daddy,
 			  struct Lisp_Event *eev)
 /* NULL for eev means query pointer */
 {
 XButtonPressedEvent *btn = (XButtonPressedEvent *) dummy;
 Boolean menubar_was_visible = XtIsManaged (FRAME_X_MENUBAR_WIDGET (f));
 Boolean menubar_will_be_visible = menubar_was_visible;
 Boolean menubar_visibility_changed;
 Cardinal new_num_top_widgets = 1; /* for the menubar */
 Widget container = FRAME_X_CONTAINER_WIDGET (f);
 #ifdef ENERGIZE
 int *old_sheets = FRAME_X_CURRENT_PSHEETS (f);
 int *new_sheets = FRAME_X_DESIRED_PSHEETS (f);
 int old_count = FRAME_X_CURRENT_PSHEET_COUNT (f);
 int new_count = FRAME_X_DESIRED_PSHEET_COUNT (f);
 /* Set menubar visibility */
 if (menubar_visibility_changed)
 (menubar_will_be_visible ? XtManageChild : XtUnmanageChild)
 (FRAME_X_MENUBAR_WIDGET (f));
 #ifdef ENERGIZE
 /* Set debugger panel visibility */
 if (debuggerpanel_changed)
 {
 x_free_frame_menubars (struct frame *f)
 {
 Widget menubar_widget;
 assert (FRAME_X_P (f));
 menubar_widget = FRAME_X_MENUBAR_WIDGET (f);
 if (menubar_widget)
 {
 LWLIB_ID id = XFRAME_MENUBAR_DATA (f)->id;
 lw_destroy_all_widgets (id);
 CHECK_CONS (menu_desc);
 CHECK_STRING (XCAR (menu_desc));
 data = menu_item_descriptor_to_widget_value (menu_desc, POPUP_TYPE, 1, 1);
 if (! data) error ("no menu");
 menu_id = new_lwlib_id ();
 menu = lw_create_widget ("popup", "popup" /* data->name */, menu_id, data,
 			   parent, 1, 0,
 			   popup_menu_selection_callback,
 			   popup_menu_down_callback);
 from a menu is really a two-command process: the first command (bound to
 the button-click) simply pops up the menu, and returns.  This causes a
 sequence of magic-events (destined for the popup-menu widget) to begin.
 Eventually, a menu item is selected, and a menu-event blip is pushed onto
 the end of the input stream, which is then executed by the event loop.
 So there are two command-events, with a bunch of magic-events between
 them.  We don't want the *first* command event to alter the state of the
 region, so that the region can be available as an argument for the second
 command.
 */

Mercurial > hg > xemacs-beta

comparison src/menubar-x.c @ 185:3d6bfa290dbd r20-3b19