mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 08:20:41 -08:00
Code Issues Projects Releases Wiki Activity

* xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.

Browse source 
Record unwind with clean_up_file_dialog.
This commit is contained in:
Jan Djärv 2004-11-14 09:59:02 +00:00
parent 6babdce9e8
commit 24ca7c5a6f
1 changed files with 40 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

45
src/xfns.c
View file

@ -5105,6 +5105,23 @@ file_dialog_unmap_cb (widget, client_data, call_data)
*result = XmCR_CANCEL;
}
static Lisp_Object
clean_up_file_dialog (arg)
Lisp_Object arg;
{
struct Lisp_Save_Value *p = XSAVE_VALUE (arg);
Widget dialog = (Widget) p->pointer;
/* Clean up. */
BLOCK_INPUT;
XtUnmanageChild (dialog);
XtDestroyWidget (dialog);
x_menu_set_in_use (0);
UNBLOCK_INPUT;
return Qnil;
}
DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
doc: /* Read file name, prompting with PROMPT in directory DIR.
@ -5126,6 +5143,10 @@ or directory must exist. ONLY-DIR-P is ignored." */)
struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file);
if (x_menu_in_use ())
error ("Trying to use a menu from within a menu-entry");
CHECK_STRING (prompt);
CHECK_STRING (dir);
@ -5208,13 +5229,16 @@ or directory must exist. ONLY-DIR-P is ignored." */)
XmStringFree (default_xmstring);
}
record_unwind_protect (clean_up_file_dialog, make_save_value (dialog, 0));
/* Process events until the user presses Cancel or OK. */
result = 0;
while (result == 0)
{
XEvent event;
x_menu_wait_for_event (0);
XtAppNextEvent (Xt_app_con, &event);
(void) x_dispatch_event (&event, FRAME_X_DISPLAY (f) );
(void) x_dispatch_event (&event, FRAME_X_DISPLAY (f));
}
/* Get the result. */
@ -5232,9 +5256,6 @@ or directory must exist. ONLY-DIR-P is ignored." */)
else
file = Qnil;
/* Clean up. */
XtUnmanageChild (dialog);
XtDestroyWidget (dialog);
UNBLOCK_INPUT;
UNGCPRO;
@ -5249,6 +5270,15 @@ or directory must exist. ONLY-DIR-P is ignored." */)
#ifdef USE_GTK
static Lisp_Object
clean_up_dialog (arg)
Lisp_Object arg;
{
x_menu_set_in_use (0);
return Qnil;
}
DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
doc: /* Read file name, prompting with PROMPT in directory DIR.
Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
@ -5261,16 +5291,21 @@ directories. */)
FRAME_PTR f = SELECTED_FRAME ();
char *fn;
Lisp_Object file = Qnil;
int count = specpdl_ptr - specpdl;
int count = SPECPDL_INDEX ();
struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
char *cdef_file;
GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file);
if (x_menu_in_use ())
error ("Trying to use a menu from within a menu-entry");
CHECK_STRING (prompt);
CHECK_STRING (dir);
/* Prevent redisplay. */
specbind (Qinhibit_redisplay, Qt);
record_unwind_protect (clean_up_dialog, Qnil);
BLOCK_INPUT;