Mercurial > hg > xemacs-beta

comparison src/dialog-x.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 8626e4521993
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
217 x_popup_dialog_box (struct frame* f, Lisp_Object dbox_desc) 217 x_popup_dialog_box (struct frame* f, Lisp_Object dbox_desc)
218 { 218 {
219 int dbox_id; 219 int dbox_id;
220 widget_value *data; 220 widget_value *data;
221 Widget parent, dbox; 221 Widget parent, dbox;
222 Lisp_Object frame; 222
223
224 XSETFRAME (frame, f);
225
226 CHECK_X_FRAME (frame);
227 if (SYMBOLP (dbox_desc))
228 dbox_desc = Fsymbol_value (dbox_desc);
229 CHECK_CONS (dbox_desc);
230 CHECK_STRING (XCAR (dbox_desc));
231 data = dbox_descriptor_to_widget_value (dbox_desc); 223 data = dbox_descriptor_to_widget_value (dbox_desc);
232 224
233 parent = FRAME_X_SHELL_WIDGET (f); 225 parent = FRAME_X_SHELL_WIDGET (f);
234 226
235 dbox_id = new_lwlib_id (); 227 dbox_id = new_lwlib_id ();