Mercurial > hg > xemacs-beta

comparison src/dialog-x.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents a8d8f419b459
children 4d52aea479a2
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
126 widget_value *prev = 0, *kids = 0; 126 widget_value *prev = 0, *kids = 0;
127 int n = 0; 127 int n = 0;
128 int count; 128 int count;
129 Lisp_Object wv_closure, gui_item; 129 Lisp_Object wv_closure, gui_item;
130 Lisp_Object question = Qnil; 130 Lisp_Object question = Qnil;
131 Lisp_Object title = Qnil; /* #### currently unused */
132 Lisp_Object buttons = Qnil; 131 Lisp_Object buttons = Qnil;
132 /* Lisp_Object title = Qnil; #### currently unused */
133 133
134 { 134 {
135 EXTERNAL_PROPERTY_LIST_LOOP_3 (key, value, keys) 135 EXTERNAL_PROPERTY_LIST_LOOP_3 (key, value, keys)
136 { 136 {
137 if (EQ (key, Q_question)) 137 if (EQ (key, Q_question))
140 question = value; 140 question = value;
141 } 141 }
142 else if (EQ (key, Q_title)) 142 else if (EQ (key, Q_title))
143 { 143 {
144 CHECK_STRING (value); 144 CHECK_STRING (value);
145 title = value; 145 /* title = value; */
146 } 146 }
147 else if (EQ (key, Q_buttons)) 147 else if (EQ (key, Q_buttons))
148 { 148 {
149 CHECK_LIST (value); 149 CHECK_LIST (value);
150 buttons = value; 150 buttons = value;
251 x_make_dialog_box_internal (struct frame* f, Lisp_Object type, 251 x_make_dialog_box_internal (struct frame* f, Lisp_Object type,
252 Lisp_Object keys) 252 Lisp_Object keys)
253 { 253 {
254 int dbox_id; 254 int dbox_id;
255 widget_value *data; 255 widget_value *data;
256 Widget parent, dbox; 256 Widget parent;
257 257
258 if (!EQ (type, Qquestion)) 258 if (!EQ (type, Qquestion))
259 signal_error (Qunimplemented, "Dialog box type", type); 259 signal_error (Qunimplemented, "Dialog box type", type);
260 260
261 data = dbox_descriptor_to_widget_value (keys); 261 data = dbox_descriptor_to_widget_value (keys);
262 262
263 parent = FRAME_X_SHELL_WIDGET (f); 263 parent = FRAME_X_SHELL_WIDGET (f);
264 264
265 dbox_id = new_lwlib_id (); 265 dbox_id = new_lwlib_id ();
266 dbox = lw_create_widget (data->name, "dialog", dbox_id, data, parent, 1, 0, 266 (void) lw_create_widget (data->name, "dialog", dbox_id, data, parent, 1, 0,
267 dbox_selection_callback, 0); 267 dbox_selection_callback, 0);
268 lw_modify_all_widgets (dbox_id, data, True); 268 lw_modify_all_widgets (dbox_id, data, True);
269 lw_modify_all_widgets (dbox_id, data->contents, True); 269 lw_modify_all_widgets (dbox_id, data->contents, True);
270 free_popup_widget_value_tree (data); 270 free_popup_widget_value_tree (data);
271 271