Mercurial > emacs
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 } |