Mercurial > hg > xemacs-beta

comparison src/menubar-x.c @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents f220cc83d72e
children c42ec1d1cded
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
748 widget_value *data; 748 widget_value *data;
749 Widget parent; 749 Widget parent;
750 Widget menu; 750 Widget menu;
751 struct Lisp_Event *eev = NULL; 751 struct Lisp_Event *eev = NULL;
752 XEvent xev; 752 XEvent xev;
753 Lisp_Object frame = Qnil; 753 Lisp_Object frame;
754 754
755 XSETFRAME (frame, f); 755 XSETFRAME (frame, f);
756 CHECK_X_FRAME (frame); 756 CHECK_X_FRAME (frame);
757 parent = FRAME_X_SHELL_WIDGET (f); 757 parent = FRAME_X_SHELL_WIDGET (f);
758 758
828 } 828 }
829 829
830 void 830 void
831 vars_of_menubar_x (void) 831 vars_of_menubar_x (void)
832 { 832 {
833 last_popup_menu_selection_callback_id = -1; 833 last_popup_menu_selection_callback_id = (LWLIB_ID) -1;
834 834
835 #if defined (LWLIB_MENUBARS_LUCID) 835 #if defined (LWLIB_MENUBARS_LUCID)
836 Fprovide (intern ("lucid-menubars")); 836 Fprovide (intern ("lucid-menubars"));
837 #elif defined (LWLIB_MENUBARS_MOTIF) 837 #elif defined (LWLIB_MENUBARS_MOTIF)
838 Fprovide (intern ("motif-menubars")); 838 Fprovide (intern ("motif-menubars"));