return selection;
}
-/* If F's terminal is not capable to display popup dialog,
+/* If F's terminal is not capable of displaying a popup dialog,
emulate it with a menu. */
static Lisp_Object
x_coord -= SCHARS (prompt);
y_coord = FRAME_LINES (f);
}
-
+
XSETFRAME (frame, f);
XSETINT (x, x_coord / 2);
XSETINT (y, y_coord / 2);
Lisp_Object selection
= FRAME_TERMINAL (f)->popup_dialog_hook (f, header, contents);
#ifdef HAVE_NTGUI
+ /* NTGUI supports only simple dialogs with Yes/No choices. For
+ other dialogs, it returns the symbol 'unsupported--w32-dialog',
+ as a signal for the caller to fall back to the emulation code. */
if (!EQ (selection, Qunsupported__w32_dialog))
-#endif
- return selection;
+#endif
+ return selection;
}
/* ... or emulate it with a menu. */
return emulate_dialog_with_menu (f, contents);