Mercurial > hg > xemacs-beta

comparison src/dialog.c @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 558f606b08ae
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
61 */ 61 */
62 (dbox_desc)) 62 (dbox_desc))
63 { 63 {
64 struct frame *f = selected_frame (); 64 struct frame *f = selected_frame ();
65 struct device *d = XDEVICE (f->device); 65 struct device *d = XDEVICE (f->device);
66 66
67 MAYBE_DEVMETH (d, popup_dialog_box, (f, dbox_desc)); 67 if (!HAS_DEVMETH_P (d, popup_dialog_box))
68 signal_simple_error ("Device does not support dialogs", f->device);
69
70 if (SYMBOLP (dbox_desc))
71 dbox_desc = Fsymbol_value (dbox_desc);
72 CHECK_CONS (dbox_desc);
73 CHECK_STRING (XCAR (dbox_desc));
74 if (!CONSP (XCDR (dbox_desc)))
75 signal_simple_error ("Dialog descriptor must supply at least one button", dbox_desc);
76
77 DEVMETH (d, popup_dialog_box, (f, dbox_desc));
68 78
69 return Qnil; 79 return Qnil;
70 } 80 }
71 81
72 void 82 void