comparison src/dialog-x.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 9ee227acff29
children 131b0175ea99
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
210 unbind_to (count, Qnil); 210 unbind_to (count, Qnil);
211 return dbox; 211 return dbox;
212 } 212 }
213 } 213 }
214 214
215 DEFUN ("popup-dialog-box", Fpopup_dialog_box, Spopup_dialog_box, 1, 1, 0 /* 215 DEFUN ("popup-dialog-box", Fpopup_dialog_box, 1, 1, 0, /*
216 Pop up a dialog box. 216 Pop up a dialog box.
217 A dialog box description is a list. 217 A dialog box description is a list.
218 218
219 The first element of a dialog box must be a string, which is the title or 219 The first element of a dialog box must be a string, which is the title or
220 question. 220 question.
239 following buttons should be flushright instead of flushleft. 239 following buttons should be flushright instead of flushleft.
240 240
241 Though the keyword/value syntax is supported for dialog boxes just as in 241 Though the keyword/value syntax is supported for dialog boxes just as in
242 popup menus, the only keyword which is both meaningful and fully implemented 242 popup menus, the only keyword which is both meaningful and fully implemented
243 for dialog box buttons is `:active'. 243 for dialog box buttons is `:active'.
244 */ ) 244 */
245 (dbox_desc) 245 (dbox_desc))
246 Lisp_Object dbox_desc;
247 { 246 {
248 int dbox_id; 247 int dbox_id;
249 struct frame *f = selected_frame (); 248 struct frame *f = selected_frame ();
250 widget_value *data; 249 widget_value *data;
251 Widget parent, dbox; 250 Widget parent, dbox;
292 } 291 }
293 292
294 void 293 void
295 syms_of_dialog_x (void) 294 syms_of_dialog_x (void)
296 { 295 {
297 defsubr (&Spopup_dialog_box); 296 DEFSUBR (Fpopup_dialog_box);
298 } 297 }
299 298
300 void 299 void
301 vars_of_dialog_x (void) 300 vars_of_dialog_x (void)
302 { 301 {