comparison src/xmenu.c @ 6324:fa8040a2bba9

(Fx_popup_dialog): Define only if USE_X_TOOLKIT.
author Richard M. Stallman <rms@gnu.org>
date Mon, 14 Mar 1994 00:08:07 +0000
parents 1f9fa4022502
children d6817c9c0413
comparison
equal deleted inserted replaced
6323:30bb1685217f 6324:fa8040a2bba9
826 826
827 if (error_name) error (error_name); 827 if (error_name) error (error_name);
828 return selection; 828 return selection;
829 } 829 }
830 830
831 #ifdef USE_X_TOOLKIT
832
831 DEFUN ("x-popup-dialog", Fx_popup_dialog, Sx_popup_dialog, 1, 2, 0, 833 DEFUN ("x-popup-dialog", Fx_popup_dialog, Sx_popup_dialog, 1, 2, 0,
832 "Pop up a dialog box and return user's selection.\n\ 834 "Pop up a dialog box and return user's selection.\n\
833 POSITION is a position specification. This is either a mouse button event\n\ 835 POSITION is a position specification. This is either a mouse button event\n\
834 or a list ((XOFFSET YOFFSET) WINDOW)\n\ 836 or a list ((XOFFSET YOFFSET) WINDOW)\n\
835 where XOFFSET and YOFFSET are positions in characters from the top left\n\ 837 where XOFFSET and YOFFSET are positions in characters from the top left\n\
952 UNGCPRO; 954 UNGCPRO;
953 955
954 if (error_name) error (error_name); 956 if (error_name) error (error_name);
955 return selection; 957 return selection;
956 } 958 }
959 #endif
957 960
958 #ifdef USE_X_TOOLKIT 961 #ifdef USE_X_TOOLKIT
959 962
960 static void 963 static void
961 dispatch_dummy_expose (w, x, y) 964 dispatch_dummy_expose (w, x, y)
2095 staticpro (&menu_items); 2098 staticpro (&menu_items);
2096 menu_items = Qnil; 2099 menu_items = Qnil;
2097 2100
2098 popup_id_tick = (1<<16); 2101 popup_id_tick = (1<<16);
2099 defsubr (&Sx_popup_menu); 2102 defsubr (&Sx_popup_menu);
2103 #ifdef USE_X_TOOLKIT
2100 defsubr (&Sx_popup_dialog); 2104 defsubr (&Sx_popup_dialog);
2101 } 2105 #endif
2106 }