Mercurial > hg > xemacs-beta
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 { |