Mercurial > hg > xemacs-beta

comparison src/gui.c @ 321:19dcec799385 r21-0-58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-58
author cvs
date Mon, 13 Aug 2007 10:46:44 +0200
parents e11d67e05968
children 3b3709405255
comparison
equal deleted inserted replaced
320:73c75c43c1f2 321:19dcec799385
27 #include "lisp.h" 27 #include "lisp.h"
28 #include "gui.h" 28 #include "gui.h"
29 #include "bytecode.h" /* for struct Lisp_Compiled_Function */ 29 #include "bytecode.h" /* for struct Lisp_Compiled_Function */
30 30
31 Lisp_Object Q_active, Q_suffix, Q_keys, Q_style, Q_selected; 31 Lisp_Object Q_active, Q_suffix, Q_keys, Q_style, Q_selected;
32 Lisp_Object Q_filter, Q_config, Q_included; 32 Lisp_Object Q_filter, Q_config, Q_included, Q_key_sequence;
33 Lisp_Object Q_accelerator; 33 Lisp_Object Q_accelerator, Q_label;
34 Lisp_Object Qtoggle, Qradio; 34 Lisp_Object Qtoggle, Qradio;
35 35
36 #ifdef HAVE_POPUPS 36 #ifdef HAVE_POPUPS
37 37
38 /* count of menus/dboxes currently up */ 38 /* count of menus/dboxes currently up */
132 else if (EQ (key, Q_config)) pgui_item->config = val; 132 else if (EQ (key, Q_config)) pgui_item->config = val;
133 else if (EQ (key, Q_filter)) pgui_item->filter = val; 133 else if (EQ (key, Q_filter)) pgui_item->filter = val;
134 else if (EQ (key, Q_style)) pgui_item->style = val; 134 else if (EQ (key, Q_style)) pgui_item->style = val;
135 else if (EQ (key, Q_selected)) pgui_item->selected = val; 135 else if (EQ (key, Q_selected)) pgui_item->selected = val;
136 else if (EQ (key, Q_keys)) pgui_item->keys = val; 136 else if (EQ (key, Q_keys)) pgui_item->keys = val;
137 else if (EQ (key, Q_key_sequence)) ; /* ignored for FSF compatability */
138 else if (EQ (key, Q_label)) ; /* ignored for 21.0 implement in 21.2 */
137 else 139 else
138 signal_simple_error_2 ("Unknown keyword in gui item", key, pgui_item->name); 140 signal_simple_error_2 ("Unknown keyword in gui item", key, pgui_item->name);
139 } 141 }
140 142
141 /* 143 /*
335 syms_of_gui (void) 337 syms_of_gui (void)
336 { 338 {
337 defkeyword (&Q_active, ":active"); 339 defkeyword (&Q_active, ":active");
338 defkeyword (&Q_suffix, ":suffix"); 340 defkeyword (&Q_suffix, ":suffix");
339 defkeyword (&Q_keys, ":keys"); 341 defkeyword (&Q_keys, ":keys");
342 defkeyword (&Q_key_sequence,":key-sequence");
340 defkeyword (&Q_style, ":style"); 343 defkeyword (&Q_style, ":style");
341 defkeyword (&Q_selected, ":selected"); 344 defkeyword (&Q_selected, ":selected");
342 defkeyword (&Q_filter, ":filter"); 345 defkeyword (&Q_filter, ":filter");
343 defkeyword (&Q_config, ":config"); 346 defkeyword (&Q_config, ":config");
344 defkeyword (&Q_included, ":included"); 347 defkeyword (&Q_included, ":included");
345 defkeyword (&Q_accelerator, ":accelerator"); 348 defkeyword (&Q_accelerator, ":accelerator");
349 defkeyword (&Q_label, ":label");
346 350
347 defsymbol (&Qtoggle, "toggle"); 351 defsymbol (&Qtoggle, "toggle");
348 defsymbol (&Qradio, "radio"); 352 defsymbol (&Qradio, "radio");
349 353
350 #ifdef HAVE_POPUPS 354 #ifdef HAVE_POPUPS